typedef struct _SYSTEMTIME {
  WORD wYear;
  WORD wMonth;
  WORD wDayOfWeek;
  WORD wDay;
  WORD wHour;
  WORD wMinute;
  WORD wSecond;
  WORD wMilliseconds;
} SYSTEMTIME,
 *PSYSTEMTIME;

void WINAPI GetSystemTime(
  __out  LPSYSTEMTIME lpSystemTime
);

Strict

Extern "win32"
Function win32_LoadLibrary:Int(lpFileName$z) = "LoadLibraryA@4"
Function win32_GetProcAddress:Byte Ptr(hModule:Int, lpProcName$z) = "GetProcAddress@8"
End Extern

Function SetSystemTime()
 Local hModule:Int = win32_LoadLibrary("kernel32.dll")
 If hModule = 0 Then
    Return
 EndIf

 Type SystemTime
  Field wYear:Int
  Field wMonth:Int
  Field wDayOfWeek:Int
  Field wDay:Int
  Field wHour:Int
  Field wMinute:Int
  Field wSecond:Int
  Field wMilliseconds:Int
 End Type

 Type FileTimeDLL
  Field high:Int
  Field low:Int
 End Type

 Local GetDLLSystemTime(time:SystemTime) "win32"=win32_GetProcAddress(hModule, "GetSystemTime")
 Local GetDLLFileTime(time:SystemTime, time2:FileTimeDLL) "win32"=win32_GetProcAddress(hModule, "SystemTimeToFileTime")
 
 Local curr:SystemTime=New SystemTime
 GetDLLSystemTime(curr)
 Local currFile:FileTimeDLL=New FileTimeDLL
 GetDLLFileTime(curr,currFile)
 
 Print currFile.low
End Function

Strict

Extern "win32"
   Function GetLocalTime(structST:Byte Ptr)
   Function SetLocalTime(structST:Byte Ptr)
End Extern

Type SystemTime
  Field wYear:Short
  Field wMonth:Short
  Field wDayOfWeek:Short
  Field wDay:Short
  Field wHour:Short
  Field wMinute:Short
  Field wSecond:Short
  Field wMilliseconds:Short
End Type

Local test:SystemTime = New SystemTime
GetLocalTime(test)

Print "Jahr: "+test.wYear
Print "Monat: "+test.wMonth
Print "Tag: "+test.wDayOfWeek


'Mit den folgenden zwei Zeilen wird der Februar als Monat festgelegt.
'test.wMonth = 2
'SetLocalTime(test)

struct tm {
   int tm_sec;      /* Sekunden - [0,61] */
   int tm_min;      /* Minuten - [0,59] */
   int tm_hour;     /* Stunden - [0,23] */
   int tm_mday;     /* Tag des Monats - [1,31] */
   int tm_mon;      /* Monat im Jahr - [0,11] */
   int tm_year;     /* Jahr seit 1900 */
   int tm_wday;     /* Tage seit Sonntag (Wochentag) - [0,6] */
   int tm_yday;     /* Tage seit Neujahr (1.1.) - [0,365] */
   int tm_isdst;    /* Sommerzeit-Flag */
}