XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: GetSystemTime und GetLocalTime
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