paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-15 08:22:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use local time for windows

Browse Source
This commit is contained in:
pierre 2002-06-03 20:26:16 +00:00
parent b947d95a46
commit 6837e079bb
2 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fv/time.pas
View File

@ -279,15 +279,15 @@ PROCEDURE SetTime (Hour, Minute, Second, Sec100: Word);
VAR DT: TSystemTime;
BEGIN
{$IFDEF PPC_FPC} { FPC WINDOWS COMPILER }
GetSystemTime(@DT); { Get the date/time }
GetLocalTime(@DT); { Get the date/time }
{$ELSE} { OTHER COMPILERS }
GetSystemTime(DT); { Get the date/time }
GetLocalTime(DT); { Get the date/time }
{$ENDIF}
DT.wHour := Hour; { Transfer hour }
DT.wMinute := Minute; { Transfer minute }
DT.wSecond := Second; { Transfer seconds }
DT.wMilliseconds := Sec100 * 10; { Transfer millisecs }
SetSystemTime(DT); { Set the date/time }
SetLocalTime(DT); { Set the date/time }
END;
{$ENDIF}
{$ENDIF}
@ -388,9 +388,9 @@ PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
VAR DT: TSystemTime;
BEGIN
{$IFDEF PPC_FPC} { FPC WINDOWS COMPILER }
GetSystemTime(@DT); { Get the date/time }
GetLocalTime(@DT); { Get the date/time }
{$ELSE} { OTHER COMPILERS }
GetSystemTime(DT); { Get the date/time }
GetLocalTime(DT); { Get the date/time }
{$ENDIF}
Hour := DT.wHour; { Transfer hour }
Minute := DT.wMinute; { Transfer minute }
@ -438,7 +438,10 @@ END.
{
$Log$
Revision 1.4 2001-05-04 09:04:08 pierre
Revision 1.5 2002-06-03 20:26:16 pierre
* use local time for windows
Revision 1.4 2001/05/04 09:04:08 pierre
* fix dos assembler problem
Revision 1.3 2001/05/04 08:42:56 pierre

15
fvision/time.pas
View File

@ -279,15 +279,15 @@ PROCEDURE SetTime (Hour, Minute, Second, Sec100: Word);
VAR DT: TSystemTime;
BEGIN
{$IFDEF PPC_FPC} { FPC WINDOWS COMPILER }
GetSystemTime(@DT); { Get the date/time }
GetLocalTime(@DT); { Get the date/time }
{$ELSE} { OTHER COMPILERS }
GetSystemTime(DT); { Get the date/time }
GetLocalTime(DT); { Get the date/time }
{$ENDIF}
DT.wHour := Hour; { Transfer hour }
DT.wMinute := Minute; { Transfer minute }
DT.wSecond := Second; { Transfer seconds }
DT.wMilliseconds := Sec100 * 10; { Transfer millisecs }
SetSystemTime(DT); { Set the date/time }
SetLocalTime(DT); { Set the date/time }
END;
{$ENDIF}
{$ENDIF}
@ -388,9 +388,9 @@ PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
VAR DT: TSystemTime;
BEGIN
{$IFDEF PPC_FPC} { FPC WINDOWS COMPILER }
GetSystemTime(@DT); { Get the date/time }
GetLocalTime(@DT); { Get the date/time }
{$ELSE} { OTHER COMPILERS }
GetSystemTime(DT); { Get the date/time }
GetLocalTime(DT); { Get the date/time }
{$ENDIF}
Hour := DT.wHour; { Transfer hour }
Minute := DT.wMinute; { Transfer minute }
@ -438,7 +438,10 @@ END.
{
$Log$
Revision 1.4 2001-05-04 09:04:08 pierre
Revision 1.5 2002-06-03 20:26:16 pierre
* use local time for windows
Revision 1.4 2001/05/04 09:04:08 pierre
* fix dos assembler problem
Revision 1.3 2001/05/04 08:42:56 pierre