I am busy writing a program in Delphi 11.3 that works with times. Specifically, a start and end time, and it's calculating the time spent between the two, as well as if the one is bigger than the other.
Things are going haywire despite using MinutesBetween()
or MinuteSpan()
. My start time may be 08:00
and my end time 09:30
. If I use if start < end
, I'll get False yet it is True. Calculating the time spent equates to over 100 years. Odd stuff like this.
As a test, I wrote a small program with the following code:
mmo1.Lines.Add(FormatDateTime('yyyy/mm/dd hh:nn:ss.zzz',tmpckr1.Time)+' '
+FormatDateTime('yyyy/mm/dd hh:nn:ss.zzz',tmpckr2.Time)+' '
+IntToStr(MinutesBetween(tmpckr1.Time,tmpckr2.Time))+' '
+FloatToStr(MinuteSpan(tmpckr1.Time,tmpckr2.Time)));
This is running in a TTimer
. The output is as expected:
2023/09/18 20:46:29.571 2023/09/18 20:46:29.571 0 0
I'll click on tmpckr1
and then OK tick at the bottom. Note I don't change anything on the time and this is the result.
1899/12/30 20:46:29.571 2023/09/18 20:46:29.571 65069280 65069280
I repeat and this time with tmpckr2
:
2023/09/18 20:46:29.571 1899/12/30 20:46:29.571 65069280 65069280
Is there a way to prevent this from happening, or will I have to do some magic using EncodeDate()
, EncodeTime()
, ReplaceDate()
and ReplaceTime()
so that the TTime
value of the TTimePicker
s actually match, or am I over-complicating things?
If I'm just dealing with TTime
, why is the date even a factor? Why is the date changing in the TTimePicker
once it has an OnChange
event?