Datestamp

This code has been declared by its author to be Public Domain code.

Datestamp by Diego

2007

Datestamp(Date$) returns the number of days since 1.1. Year 1. If date is not set or an empty string, the current date will be used. Otherwise set date in the format "20 Sep 2007".
Tipp: You can find out the number of Days between two events with ABS(Datestamp(Event1$) - Datestamp(Event2$)).

Datestamp(Date$) gibt die Anzahl der Tage seit dem 1.1. des Jahres 1 zurück. Wenn Date nicht angegeben oder ein leerer String ist, wird das aktuelle Datum verwendet. Andernfalls gebe das Datum im Format "20 Sep 2007" (Monate bitte in Englisch) an.
Tipp: Du kannst die Anzahl der Tage zwischen 2 Ereignissen mit folgender Formel erhalten: ABS(Datestamp(Ereignis1$) - Datestamp(Ereignis2$))

Function Datestamp(Date$ = "")
If Date$ = "" Then Date$ = CurrentDate()
Day% = Left(Date$, 2)
Year% = Right(Date$, 4)
Select Upper(Mid(Date$, 4, 3))
	Case "JAN"
		Month% = 0
	Case "FEB"
		Month% = 31
	Case "MAR"
		Month% = 59 + IstSchaltjahr(Year%)
	Case "APR"
		Month% = 90 + IstSchaltjahr(Year%)
	Case "MAY"
		Month% = 120 + IstSchaltjahr(Year%)
	Case "JUN"
		Month% = 151 + IstSchaltjahr(Year%)
	Case "JUL"
		Month% = 181 + IstSchaltjahr(Year%)
	Case "AUG"
		Month% = 212 + IstSchaltjahr(Year%)
	Case "SEP"
		Month% = 243 + IstSchaltjahr(Year%)
	Case "OCT"
		Month% = 273 + IstSchaltjahr(Year%)
	Case "NOV"
		Month% = 304 + IstSchaltjahr(Year%)
	Case "DEC"
		Month% = 334 + IstSchaltjahr(Year%)
	End Select
Year% = Year% - 1 ; To get only the days of the past years | Um nur die Tage der Vergangenen Jahre zu bekommen
Return Day% + Month% + Year% * 365 + Int(Floor(Year% / 4)) - Int(Floor(Year% / 100)) + Int(Floor(Year% / 400))
End Function

Function IstSchaltjahr(Year%)
If(Year% Mod 400 = 0) Return True
If(Year% Mod 100 = 0) Return False
If(Year% Mod 4   = 0) Return True
Return False
End Function

; If date is empty, the curent date will be used.
; Wenn das Datum nicht angegeben ist, wird das aktuelle Datum verwendet.
Print Datestamp()
WaitKey

Comments

None.

Code Archives Forum