Zdravím
potřebuji zadat datum ve tvaru 28. prosince 2010 (nikoliv 28. prosinec).
Vzorečkem to umím (ZVOLIT((MĚSÍC(B2));"ledna";"února";....) kde v B2 je datum
ale potřebuji to vyřešit pomoci VBA.
Dalo by se to jistě řešit přes Select Case, mě ale zajímá zda není nějaký ekvivalent toho vzorečku.
Díky za nápady :-)
EXCEL 2003 - měsíc slovně Vyřešeno
EXCEL 2003 - měsíc slovně
George K.
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: EXCEL 2003 - měsíc slovně Vyřešeno
Treba takhle:
Kód: Vybrat vše
Option Explicit
Function DatumToDDMMMMYYYY(ByVal Datum As Date) As String
Dim MM As Variant
DatumToDDMMMMYYYY = vbNullString
MM = Array("", "ledna", "února", "března", "dubna", "května", "června", _
"července", "srpna", "září", "října", "listopadu", "prosince")
If IsDate(Datum) Then
DatumToDDMMMMYYYY = Day(Datum) & ". " & MM(Month(Datum)) & (" ") & Year(Datum)
End If
End Function
Sub Test()
Debug.Print DatumToDDMMMMYYYY(#12/30/2010#)
End Sub
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 16
- 6948
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 3
- 2346
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
-
- 5
- 2878
-
od mmmartin
Zobrazit poslední příspěvek
13 črc 2023 18:44
-
- 2
- 2063
-
od honzzicek
Zobrazit poslední příspěvek
01 črc 2023 08:57
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 3705
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti