Date - Typen unverträglich
09.07.2018 12:22:45
chaosoft
ich habe ein kleines Problem, und zwar habe ich folgendes Sub, welches mir ein Datum ausgeben soll.
Es ist Absicht, dass in der Variable Datum der Name des Monats als String gespeichert ist. Bis jetzt wurde, bei der Zuweisung zu Datum, das so entstehende Datum automatisch in das Format DD.MM.YYYY umgewandelt und auch so ausgegeben.
Private Sub x()
Dim Datum As Date
Dim Monat As String, Jahr As Integer
Monat = Format(DateSerial(Year(Date), 7, 1), "MMMM")
Jahr = Format(DateSerial(Year(Date), 0, 1), "YYYY")
Datum = "01." & Monat & "." & Jahr
MsgBox Datum
End Sub
Habt ihr vielleicht eine Idee?
Beste Grüße
chaosoft