paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Improved efficiency of Now/Date/Time

Browse Source 
git-svn-id: trunk@19572 -
This commit is contained in:
michael 2011-11-02 14:33:33 +00:00
parent da62249d6b
commit 2625b1dfa4
1 changed files with 24 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
rtl/unix/sysutils.pp
View File

@ -1026,12 +1026,11 @@ begin
GetEpochTime:=fptime;
end;
procedure GetTime(var hour,min,sec,msec,usec:word);
{
Gets the current time, adjusted to local time
}
// Now, adjusted to local time.
Procedure DoGetLocalDateTime(var year, month, day, hour, min, sec, msec, usec : word);
var
year,day,month:Word;
tz:timeval;
begin
fpgettimeofday(@tz,nil);
@ -1040,14 +1039,23 @@ begin
usec:=tz.tv_usec mod 1000;
end;
procedure GetTime(var hour,min,sec,msec,usec:word);
Var
year,day,month:Word;
begin
DoGetLocalDateTime(year,month,day,hour,min,sec,msec,usec);
end;
procedure GetTime(var hour,min,sec,sec100:word);
{
Gets the current time, adjusted to local time
}
var
usec : word;
year,day,month,usec : word;
begin
gettime(hour,min,sec,sec100,usec);
DoGetLocalDateTime(year,month,day,hour,min,sec,sec100,usec);
sec100:=sec100 div 10;
end;
@ -1056,9 +1064,9 @@ Procedure GetTime(Var Hour,Min,Sec:Word);
Gets the current time, adjusted to local time
}
var
msec,usec : Word;
year,day,month,msec,usec : Word;
Begin
gettime(hour,min,sec,msec,usec);
DoGetLocalDateTime(year,month,day,hour,min,sec,msec,usec);
End;
Procedure GetDate(Var Year,Month,Day:Word);
@ -1066,17 +1074,20 @@ Procedure GetDate(Var Year,Month,Day:Word);
Gets the current date, adjusted to local time
}
var
hour,minute,second : word;
hour,minute,second,msec,usec : word;
Begin
EpochToLocal(fptime,year,month,day,hour,minute,second);
DoGetLocalDateTime(year,month,day,hour,minute,second,msec,usec);
End;
Procedure GetDateTime(Var Year,Month,Day,hour,minute,second:Word);
{
Gets the current date, adjusted to local time
}
Var
usec,msec : word;
Begin
EpochToLocal(fptime,year,month,day,hour,minute,second);
DoGetLocalDateTime(year,month,day,hour,minute,second,msec,usec);
End;
@ -1088,9 +1099,7 @@ Procedure GetLocalTime(var SystemTime: TSystemTime);
var
usecs : Word;
begin
GetTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second, SystemTime.MilliSecond, usecs);
GetDate(SystemTime.Year, SystemTime.Month, SystemTime.Day);
// SystemTime.MilliSecond := 0;
DoGetLocalDateTime(SystemTime.Year, SystemTime.Month, SystemTime.Day,SystemTime.Hour, SystemTime.Minute, SystemTime.Second, SystemTime.MilliSecond, usecs);
end ;
{$endif}