EXCEL 2003 - měsíc slovně Vyřešeno

[George.K]

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 :-)

[Reklama]

[navstevnik]

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

[George.K]

Díky :-)
P.F. 2011