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

tests: fixed combining date+time

Browse Source 
git-svn-id: trunk@47633 -
This commit is contained in:
mattias 2015-02-07 12:10:03 +00:00
parent 668cd2f578
commit 8d6618eb2a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/testresult-db/importtestresults.pp
View File

@ -138,7 +138,7 @@ begin
day:=StrToInt(Copy(Value,7,2)); day:=StrToInt(Copy(Value,7,2));
hour:=StrToInt(Copy(Value,9,2)); hour:=StrToInt(Copy(Value,9,2));
min:=StrToInt(Copy(Value,11,2)); min:=StrToInt(Copy(Value,11,2));
TestDate:=EncodeDate(year,month,day)+EncodeTime(hour,min,0,0); TestDate:=ComposeDateTime(EncodeDate(year,month,day),EncodeTime(hour,min,0,0));
end end
else else
Verbose(V_Error,'Error in date format, use YYYYMMDDhhmm'); Verbose(V_Error,'Error in date format, use YYYYMMDDhhmm');