Datum: Systemdatum abfragen

'Datum: Systemdatum abfragen

Beitrag, 15.07.2007 23:02:

'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:

'Datum: Systemdatum abfragen

Declare Day$[7],Month$[12]
Day$[0] = "Sonntag"
Day$[1] = "Montag"
Day$[2] = "Diestag"
Day$[3] = "Mittwoch"
Day$[4] = "Donnerstag"
Day$[5] = "Freitag"
Day$[6] = "Samstag"
Month$[0] = "Januar"
Month$[1] = "Februar"
Month$[2] = "März"
Month$[3] = "April"
Month$[4] = "Mai"
Month$[5] = "Juni"
Month$[6] = "Juli"
Month$[7] = "August"
Month$[8] = "September"
Month$[9] = "Oktober"
Month$[10] = "November"
Month$[11] = "Dezember"
Declare TimeStruct#
Struct _TimeStruct = wYear%,\
wMonth%,\
wDayOfWeek%,\
wDay%,\
wHour%,\
wMinute%,\
wSecond%,\
wMilliseconds%
Dim TimeStruct#,_TimeStruct
Def GetSystemTime(1) !"Kernel32","GetSystemTime"
Def GetLocalTime(1) !"Kernel32","GetLocalTime"

Proc Ausgabe

    With TimeStruct#
    Print Day$[.wDayOfWeek%] + " der "  + Str$(.wDay%) + ". " + Month$[.wMonth% - 1] + " " + Str$(.wYear%)
    Print Str$(.wHour%) + ":" + Str$(.wMinute%) + ":" + Str$(.wSecond%) + ":" + Str$(.wMilliseconds%)
    EndWith

EndProc

GetSystemTime(TimeStruct#)
Ausgabe
GetLocalTime(TimeStruct#)
Ausgabe
WaitInput

Dies ist die Offlinevariante vom Thread [Datum: Systemdatum abfragen].