DecodeDate

Top  Previous  Next

sub DecodeDate(dDateValue As DateTime, ByRef Year As Integer, ByRef Month As Integer, ByRef Day As Integer)

 

Gibt von dDateValue die Werte Jahr, Monat und Tag zurück.

 

Parameter

 

dDateValue ... DateTime-Ausdruck.
Year ... Integer-Wert.
Month ... Integer-Wert.
Day ... Integer-Wert.

 

Beispiel:

Dim iYear, iMonth, iDay
 
DecodeDate(Now, iYear, iMonth, iDay)
' returns eg. iYear = 2008, iMonth = 12, iDay = 11