<font color="black"></span>
Mam dwie różne godziny. Jak sprawdzić która jest większa np.
00:12:00>14:22:30
Pomóżcie bo zaraz szlak mnie trafi!
[glowa] [glowa] [glowa]
<font color="black"></span>
Mam dwie różne godziny. Jak sprawdzić która jest większa np.
00:12:00>14:22:30
Pomóżcie bo zaraz szlak mnie trafi!
[glowa] [glowa] [glowa]
A w jakim formacie?? String? TDateTime?
<font color="black"></span>
TDateTime
Czas1 > Czas2 - po prostu. Jak masz też zapisaną date, to jest gorzej.
<font color="black"></span>
Zawsze zwraca mniejsze, bez różnicy jaką godzine wpisze do c1(może zle zapisuję format godziny w c1)?Pomóżcie.
c1,c2: TDateTime;
begin
c2:= time;
c1:= 12-21-20;
if c1 < c2 then
begin
ShowMessage('Mniejsze');
end
else
ShowMessage('Większe');
end;
zgadnij co masz w c1 ???? -25! więc nie dziw się, że jest mniejsze
zrobiłem coś takiego - u mnie działa.
procedure TForm1.Button1Click(Sender: TObject);
var
c1,c2: TTime;
begin
c2 := time;
c1 := EncodeTime(16, 20, 21, 0);
if c1 < c2 then
begin
ShowMessage('Mniejsze');
end
else
ShowMessage('Większe');
end;
<font color="black"></span>
Dzięki! [browar]