XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Datum: Systemdatum abfragen
Declarar 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
Declarar 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 Edición

    With TimeStruct#

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

    EndWith

ENDPROC

GetSystemTime(TimeStruct#)
Edición
GetLocalTime(TimeStruct#)
Edición
WaitInput