paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-09 14:38:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ simple test for Dateutils.DateOf

Browse Source
This commit is contained in:
florian 2023-10-11 22:51:48 +02:00
parent 3fbf05ec89
commit f671db3fa6
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/rtl-objpas/tests/tdateof.pp Normal file
View File

@ -0,0 +1,12 @@
uses
Sysutils,DateUtils;
var
d1,d2 : TDateTime;
begin
d1:=EncodeDateDay(2023,1);
d2:=EncodeDate(2023,1,1);
d1:=d1+0.6;
d2:=d2+0.3;
if DateOf(d1)<>DateOf(d2) then
halt(1);
end.