XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Time: System-Time inquire
Declare Day$[7],Month$[12]
Day$[0] = sunday
Day$[1] = monday
Day$[2] = Diestag
Day$[3] = wednesday
Day$[4] = thursday
Day$[5] = friday
Day$[6] = saturday
Month$[0] = january
Month$[1] = february
Month$[2] = March
Month$[3] = april
Month$[4] = May
Month$[5] = june
Month$[6] = july
Month$[7] = august
Month$[8] = september
Month$[9] = october
Month$[10] = november
Month$[11] = december
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 spending

    With TimeStruct#

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

    EndWith

ENDPROC

GetSystemTime(TimeStruct#)
spending
GetLocalTime(TimeStruct#)
spending
WaitInput