Hello,
I need the StrToTime function, but it doesn't behave well I think. A
testprogram, running on Linux, compiled with fpc 2.2.0 :
program TimeTest;
uses sysutils;
var
i : integer;
DT : TDatetime;
T1Str : string;
T2Str : string;
begin
for i:=0 to 23 do
begin
T1Str:=IntToStr(i);
if Length(T1Str)<2 then
T2str:='0'+T1Str+':00'
else
T2Str:=T1Str+':00';
DT:=StrToTime(T2str);
writeln(i,' - ',T2str,' - ',DT);
end{for}
end.
The result :
0 - 00:00 - 0.000000000000000E+000
1 - 01:00 - 4.166666666666666E-002
2 - 02:00 - 8.333333333333333E-002
3 - 03:00 - 1.250000000000000E-001
4 - 04:00 - 1.666666666666667E-001
5 - 05:00 - 2.083333333333333E-001
6 - 06:00 - 2.500000000000000E-001
7 - 07:00 - 2.916666666666667E-001
8 - 08:00 - 3.333333333333333E-001
9 - 09:00 - 3.750000000000000E-001
10 - 10:00 - 4.166666666666667E-001
11 - 11:00 - 4.583333333333333E-001
12 - 12:00 - 0.000000000000000E+000
13 - 13:00 - 5.416666666666666E-001
14 - 14:00 - 5.833333333333334E-001
15 - 15:00 - 6.250000000000000E-001
16 - 16:00 - 6.666666666666666E-001
17 - 17:00 - 7.083333333333334E-001
18 - 18:00 - 7.500000000000000E-001
19 - 19:00 - 7.916666666666666E-001
20 - 20:00 - 8.333333333333334E-001
21 - 21:00 - 8.750000000000000E-001
22 - 22:00 - 9.166666666666666E-001
23 - 23:00 - 9.583333333333334E-001
The value for 12:00 is not right IMHO.
I briefly looked at the source to see how it works, but I don't see it
immediately.
Is this a known problem ? Is someone able to solve this in a few minutes ?
I'm willing to look into this but I would like to know if I'm doing
something wrong before I start.
B.T.W. I use this to define a time-duration, not some time of the day so
AM/PM is not appropriate.
Thanks,
Koenraad Lelong.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
