XProfan

proc DAYLIGHTSAVING

    DECLARE UDTTZI#     !!!!!!!
    VAR UDTTZI#=NEW(TIME_ZONE_INFORMATION)
    VAR RETVAL&=GETTIMEZONEINFORMATION(UDTTZI#)
    RETURN (RETVAL&=&TIME_ZONE_ID_DAYLIGHT)

end

 {$cleq}
Def &TIME_ZONE_ID_DAYLIGHT 2
Def GetTimeZoneInformation(1) !"kernel32", "GetTimeZoneInformation"
declare StandardDate!,Bias&,StandardBias&,DaylightDate!,DaylightBias&,StandardName#,DaylightName#
declare wMonth%,wDayOfWeek%,wDay%,wHour%,wMinute%,wSecond%,wMilliseconds%
Struct SYSTEMTIME =
wYear%,
wMonth%,
wDayOfWeek%,
wDay%,
wHour%,
wMinute%,
wSecond%,
wMilliseconds%
Struct TIME_ZONE_INFORMATION =
Bias&,  la base-Zeitverschiebung dans Minuten
StandardName#(64),  nom qui Normalzeit-Zeitzone
StandardDate!SYSTEMTIME,  Beginn qui Standardzeit
StandardBias&,  Zusätzliche Zeitverschiebung qui Standardzeit
DaylightName#(64),  nom qui Sommerzeit-Zeitzone
DaylightDate!SYSTEMTIME,  Beginn qui Sommerzeit
DaylightBias& Zusätzliche Zeitverschiebung qui Sommerzeit

Proc DaylightSaving

    // Gibt zurück, si Sommerzeit besteht.
    Var udtTZI# = New(TIME_ZONE_INFORMATION)
    Var RetVal& = GetTimeZoneInformation(udtTZI#)
    Retour (RetVal& = &TIME_ZONE_ID_DAYLIGHT)

ENDPROC

Imprimer "Sommerzeit: "; Si(DaylightSaving(), "Ja", "Nein")
WaitInput
Fin

 {$pushkeyword STANDARDDATE!SYSTEMTIME}
 {$pushkeyword DAYLIGHTDATE!SYSTEMTIME}e>

mem udtTZI = New(TIME_ZONE_INFORMATION)
statt
Var udtTZI# = New(TIME_ZONE_INFORMATION)re>