|
Den Tag der Woche, die Woche des Jahres, das Quartal und viele
Datumsauswertungen mehr dieser Art können Sie mit vorhandenen
Visual Basic ermitteln. Der wievielte Tag eines Jahres ein Tag ist,
verrät Ihnen jedoch keine Funktion.
Die Funktion DayOfYear liefert Ihnen den gewünschten Wert zu
einem gegebenen Datum. Sie ermittelt die Differenz zwischen diesem
Datum und dem 1. Januar des betreffenden Jahres. Die
Differenz in Tagen zwischen diesen beiden Datumswerten, die von der
Funktion  DateDiff
zurückgegeben wird, ist natürlich um einen Tag zu klein, so dass
zu die Differenz noch um 1 erhöht werden muss, um die
Nummer des Tages zu ergeben.
Public Function DayOfYear(ThisDate As Date) As Long
DayOfYear = _
DateDiff("d", DateSerial(Year(ThisDate), 1, 1), ThisDate) + 1
End Function
|