wie kann ich den ersten Tag des aktuellen Jahres per VBA ermitteln und feststellen wie viele Tage bis heute vergangen sind?
gruß
otto
Sub ttt()
MsgBox Format("01.01.2007", "ddd")
MsgBox DateDiff("d", "01.01.2007", Date)
End Sub
Gruss
Public Sub Informationen()
MsgBox "Der erste Tag im Jahr ist/war ein """ & _
Format(DateSerial(Year(Date), 1, 1), "dddd") & """."
MsgBox "der laufende Tag im Jahr ist " & Date - DateSerial(Year(Date), 1, 0)
End Sub
Gruß Peter