paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 05:49:41 +01: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; VAR DT: TSystemTime;
BEGIN BEGIN
{$IFDEF PPC_FPC} { FPC WINDOWS COMPILER } {$IFDEF PPC_FPC} { FPC WINDOWS COMPILER }
GetSystemTime(@DT); { Get the date/time } GetLocalTime(@DT); { Get the date/time }
{$ELSE} { OTHER COMPILERS } {$ELSE} { OTHER COMPILERS }
GetSystemTime(DT); { Get the date/time } GetLocalTime(DT); { Get the date/time }
{$ENDIF} {$ENDIF}
DT.wHour := Hour; { Transfer hour } DT.wHour := Hour; { Transfer hour }
DT.wMinute := Minute; { Transfer minute } DT.wMinute := Minute; { Transfer minute }
DT.wSecond := Second; { Transfer seconds } DT.wSecond := Second; { Transfer seconds }
DT.wMilliseconds := Sec100 * 10; { Transfer millisecs } DT.wMilliseconds := Sec100 * 10; { Transfer millisecs }
SetSystemTime(DT); { Set the date/time } SetLocalTime(DT); { Set the date/time }
END; END;
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
@ -388,9 +388,9 @@ PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
VAR DT: TSystemTime; VAR DT: TSystemTime;
BEGIN BEGIN
{$IFDEF PPC_FPC} { FPC WINDOWS COMPILER } {$IFDEF PPC_FPC} { FPC WINDOWS COMPILER }
GetSystemTime(@DT); { Get the date/time } GetLocalTime(@DT); { Get the date/time }
{$ELSE} { OTHER COMPILERS } {$ELSE} { OTHER COMPILERS }
GetSystemTime(DT); { Get the date/time } GetLocalTime(DT); { Get the date/time }
{$ENDIF} {$ENDIF}
Hour := DT.wHour; { Transfer hour } Hour := DT.wHour; { Transfer hour }
Minute := DT.wMinute; { Transfer minute } Minute := DT.wMinute; { Transfer minute }
@ -438,7 +438,10 @@ END.
{ {
$Log$ $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 * fix dos assembler problem
Revision 1.3 2001/05/04 08:42:56 pierre 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; VAR DT: TSystemTime;
BEGIN BEGIN
{$IFDEF PPC_FPC} { FPC WINDOWS COMPILER } {$IFDEF PPC_FPC} { FPC WINDOWS COMPILER }
GetSystemTime(@DT); { Get the date/time } GetLocalTime(@DT); { Get the date/time }
{$ELSE} { OTHER COMPILERS } {$ELSE} { OTHER COMPILERS }
GetSystemTime(DT); { Get the date/time } GetLocalTime(DT); { Get the date/time }
{$ENDIF} {$ENDIF}
DT.wHour := Hour; { Transfer hour } DT.wHour := Hour; { Transfer hour }
DT.wMinute := Minute; { Transfer minute } DT.wMinute := Minute; { Transfer minute }
DT.wSecond := Second; { Transfer seconds } DT.wSecond := Second; { Transfer seconds }
DT.wMilliseconds := Sec100 * 10; { Transfer millisecs } DT.wMilliseconds := Sec100 * 10; { Transfer millisecs }
SetSystemTime(DT); { Set the date/time } SetLocalTime(DT); { Set the date/time }
END; END;
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
@ -388,9 +388,9 @@ PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
VAR DT: TSystemTime; VAR DT: TSystemTime;
BEGIN BEGIN
{$IFDEF PPC_FPC} { FPC WINDOWS COMPILER } {$IFDEF PPC_FPC} { FPC WINDOWS COMPILER }
GetSystemTime(@DT); { Get the date/time } GetLocalTime(@DT); { Get the date/time }
{$ELSE} { OTHER COMPILERS } {$ELSE} { OTHER COMPILERS }
GetSystemTime(DT); { Get the date/time } GetLocalTime(DT); { Get the date/time }
{$ENDIF} {$ENDIF}
Hour := DT.wHour; { Transfer hour } Hour := DT.wHour; { Transfer hour }
Minute := DT.wMinute; { Transfer minute } Minute := DT.wMinute; { Transfer minute }
@ -438,7 +438,10 @@ END.
{ {
$Log$ $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 * fix dos assembler problem
Revision 1.3 2001/05/04 08:42:56 pierre Revision 1.3 2001/05/04 08:42:56 pierre