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

* Replacetime. Bug #7680

Browse Source 
git-svn-id: trunk@5033 -
This commit is contained in:
marco 2006-10-27 18:29:00 +00:00
parent 304be38ec1
commit 2f8f88f801
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/sysutils/dati.inc
View File

@ -832,3 +832,8 @@ begin
result:=defvalue;
end;
procedure ReplaceTime(var dati:TDateTime; NewTime : TDateTime);
begin
dati:=trunc(dati)+frac(newtime);
end;

1
rtl/objpas/sysutils/datih.inc
View File

@ -139,3 +139,4 @@ function CurrentYear:Word;
{ FPC Extra }
Procedure GetLocalTime(var SystemTime: TSystemTime);
procedure ReplaceTime(var dati:TDateTime; NewTime : TDateTime); inline;