paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 00:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: fixed combining date+time

Browse Source 
git-svn-id: branches/fixes_1_4@47632 -
This commit is contained in:
mattias 2015-02-07 12:08:55 +00:00
parent 30cb5eed7b
commit b4e4555e06
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/cleandir/svccleandirs.pp
View File

@ -225,7 +225,7 @@ begin
DT:=Now; DT:=Now;
H:=NextOKDay(DT); H:=NextOKDay(DT);
If (H<>0) then If (H<>0) then
Result:=Date+H+EncodeTime(0,FCleaner.HourlyAt,0,0) Result:=ComposeDateTime(Date+H,EncodeTime(0,FCleaner.HourlyAt,0,0))
else else
begin // Still today begin // Still today
DecodeTime(DT,H,M,S,MS); DecodeTime(DT,H,M,S,MS);
@ -240,7 +240,7 @@ begin
end; end;
end; end;
DT:=EncodeTime(H,FCleaner.HourlyAt,0,0); DT:=EncodeTime(H,FCleaner.HourlyAt,0,0);
Result:=Result+DT; Result:=ComposeDateTime(Result,DT);
end; end;
end; end;
end; end;