Ansage Tag und Tag, Monat, Jahr und Uhrzeit
11.09.2016 14:12:22
Dieter(Drummer)
mit diesem Code wird der Tag, z.B. als Sonntag, dann das Datum (Zahl), Monat und Jahr und die Uhrzeit angesagt. Warum wird bei der Ansage Jahr (JJJJ) nicht das Jahr auch angesagt sondern die Buchstaben "JJJJ".
Habe einiges versucht, bekomme es nicht hin. Mit der Bitte um Hilfe.
Gruß, Dieter(Drummer)
Private Sub Workbook_Open()
Dim DatAnfang As Date
Application.Speech.Speak ("Es ist " & Format(Date, "DDD") & "der " & Format(Date, "DD MMMM _
_
JJJJ") & Format(Now, "hh:mm"))
End Sub