It returns the timezone offset in seconds as well
so you can use normal "math" to modify the result of Date() directly.
Code: Select all
Procedure TimeZoneOffset()
Protected result,mode
mode=GetTimeZoneInformation_(@TZ.TIME_ZONE_INFORMATION)
If mode=1
result-TZ\Bias
ElseIf mode=2
result-TZ\Bias-TZ\DaylightBias
EndIf
ProcedureReturn result*60
EndProcedure
Debug TimeZoneOffset()