- Posts: 46
- Thank you received: 0
×
Discussions for CodeTyphon Object Pascal Programming Language
Question GetLocalTimeOffset return 0
1 month 1 week ago - 1 month 1 week ago #15658
by Vital
or
Now 8:45 in Moscow (in systray), but functions Now() and NowUTC() show 5:45 both
Replied by Vital on topic GetLocalTimeOffset return 0
ShowMessage(DateTimeToStr(Now));ShowMessage(DateTimeToStr(NowUTC));Now 8:45 in Moscow (in systray), but functions Now() and NowUTC() show 5:45 both
Attachments:
Please Log in or Create an account to join the conversation.
1 month 5 days ago - 1 month 5 days ago #15673
by Vital
But real time in my timezone 14:27:21
Replied by Vital on topic GetLocalTimeOffset return 0
Hi, did you test the ReReadLocalTime function ?
procedure TForm1.FormCreate(Sender: TObject);
var
s: string;
begin
s:= DateTimeToStr(Now)+' UTC:'+DateTimeToStr(NowUTC)+#13#10;
ReReadLocalTime;
s+= (' ReReading:'+#13#10+DateTimeToStr(Now)+' UTC:'+DateTimeToStr(NowUTC));
Label1.Caption:= s;
end;
But real time in my timezone 14:27:21
Attachments:
Please Log in or Create an account to join the conversation.
1 month 4 days ago #15677
by Vital
Replied by Vital on topic GetLocalTimeOffset return 0
Installed NeonOS KDE 5.21, the same problem 
Please Log in or Create an account to join the conversation.
1 month 4 days ago #15679
by Vital
Replied by Vital on topic GetLocalTimeOffset return 0
In Lazarus 2.0.12, fpc 3.2.0 works as it should
procedure TForm1.FormCreate(Sender: TObject);
var
s: string;
begin
s:= DateTimeToStr(Now)+' UTC:'+DateTimeToStr(LocalTimeToUniversal(Now));
Label1.Caption:= s;
end;
Attachments:
Please Log in or Create an account to join the conversation.
1 month 3 days ago - 1 month 3 days ago #15691
by Sternas Stefanos
PilotLogic Architect and Core Programmer
Replied by Sternas Stefanos on topic GetLocalTimeOffset return 0
Sir
after today update from FPC SVN: 49001 more info
With the above source, I get this
On Fedora 33 with the same Local time with your local time (UTC+3)
Just download from SVN the file :
rtl\unix\timezone.inc
and replace the CT file:
codetyphon/fpcsrc/rtl/unix/timezone.inc
Rebuild ALL (FPC and Typhon)
We try hard to offer "On User Side Real Time Support", but sometime we want help ...
after today update from FPC SVN: 49001 more info
With the above source, I get this
On Fedora 33 with the same Local time with your local time (UTC+3)
Just download from SVN the file :
rtl\unix\timezone.inc
and replace the CT file:
codetyphon/fpcsrc/rtl/unix/timezone.inc
Rebuild ALL (FPC and Typhon)
We try hard to offer "On User Side Real Time Support", but sometime we want help ...
PilotLogic Architect and Core Programmer
Attachments:
Please Log in or Create an account to join the conversation.
1 month 5 hours ago #15702
by 𝓚𝓸𝓭𝓮𝓩𝔀𝓮𝓻𝓰
Replied by 𝓚𝓸𝓭𝓮𝓩𝔀𝓮𝓻𝓰 on topic GetLocalTimeOffset return 0
hello, i am new to CT and was searching for some practice.
i did played abit with code and for windows this solution came out, maybe usfull or not, you decide, for me just fun to do
i did played abit with code and for windows this solution came out, maybe usfull or not, you decide, for me just fun to do
program Project1;
uses Windows, SysUtils, DateUtils;
// include winapi methods
function TzSpecificLocalTimeToSystemTime(lpTimeZoneInformation: PTimeZoneInformation; var lpLocalTime, lpUniversalTime: TSystemTime): BOOL; stdcall; external kernel32 name 'TzSpecificLocalTimeToSystemTime';
function SystemTimeToTzSpecificLocalTime(lpTimeZoneInformation: PTimeZoneInformation; var lpUniversalTime, lpLocalTime: TSystemTime): BOOL; stdcall; external kernel32 name 'SystemTimeToTzSpecificLocalTime';
// convert local time to UTC
function DateTimeToUTC(const Local: TDateTime): TDateTime;
var
TZI: TTimeZoneInformation;
LocalTime,
UniversalTime: TSystemTime;
begin
GetTimeZoneInformation(TZI);
DateTimeToSystemTime(Local, LocalTime);
TzSpecificLocalTimeToSystemTime(@TZI, LocalTime, UniversalTime);
Result := SystemTimeToDateTime(UniversalTime);
end;
// convert UTC to local time
function UTCToLocalDateTime(const UTC: TDateTime): TDateTime;
var
TZI: TTimeZoneInformation;
LocalTime,
UniversalTime: TSystemTime;
begin
GetTimeZoneInformation(TZI);
DateTimeToSystemTime(UTC, UniversalTime);
SystemTimeToTzSpecificLocalTime(@TZI, UniversalTime, LocalTime);
Result := SystemTimeToDateTime(LocalTime);
end;
// example usage
var
Local,
UTC: TDateTime;
begin
Local := Now;
UTC := DateTimeToUTC(Local);
WriteLn('Local: ' + DateTimeToStr(Local));
WriteLn('UTC: ' + DateTimeToStr(UTC));
WriteLn('Offset: ' + IntToStr(SecondsBetween(Local, UTC) div 60 div 60));
ReadLn;
end.Please Log in or Create an account to join the conversation.
