XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
date: Systemdatum abfragen
Déclarer Day$[7],Month$[12]
Day$[0] = dimanche
Day$[1] = lundi
Day$[2] = Diestag
Day$[3] = mercredi
Day$[4] = jeudi
Day$[5] = vendredi
Day$[6] = samedi
Month$[0] = janvier
Month$[1] = février
Month$[2] = Mars
Month$[3] = avril
Month$[4] = mai
Month$[5] = juin
Month$[6] = juillet
Month$[7] = août
Month$[8] = septembre
Month$[9] = octobre
Month$[10] = novembre
Month$[11] = décembre
Déclarer TimeStruct#
Struct _TimeStruct = wYear%,
wMonth%,
wDayOfWeek%,
wDay%,
wHour%,
wMinute%,
wSecond%,
wMilliseconds%
Faible TimeStruct#,_TimeStruct
Def GetSystemTime(1) !Kernel32,GetSystemTime
Def GetLocalTime(1) !Kernel32,GetLocalTime

Proc Ausgabe

    With TimeStruct#

        Imprimer Day$[.wDayOfWeek%] +  qui   + Str$(.wDay%) + .  + Month$[.wMonth% - 1] +   + Str$(.wYear%)
        Imprimer Str$(.wHour%) + : + Str$(.wMinute%) + : + Str$(.wSecond%) + : + Str$(.wMilliseconds%)

    EndWith

ENDPROC

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