Beitrag, 15.07.2007 21:28: ;createCode() 'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: 'Zeit: Systemzeit 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 [Zeit: Systemzeit abfragen].
©2006 XProfan.Com