Hogyan összehasonlítani a két időpont
Hogyan összehasonlítani a két időpont
StrToDateTime () - visszaadja egy időpontot az igazi formátumban.
Kivonva azt az aktuális dátumot (Most) kapja a különbség -, hogy mire van szükség, és a napszakok.
Lehet kerekíteni (TRUNC, forduló)
TDateTime vezető vonal, és segítenek megtalálni a különbség a Now () vagy Date (). Az egész része lesz a különbség az egész nap folyamán. - frakcionált része a nap (0,5 = 12 óra)
# XA0; # XA0; # XA0; str: = datetostr (dátum) + "" + timetostr (idő);
# XA0; # XA0; # XA0; Jok: = strtodatetime (str) -strtodatetime (dbedit21.Text);
> Nap telt el az első napon a jelenlegi # 133
DaysBetween
és str pontosan ez az Ön esetében, a forma „17.05.07 10:46:15”. Ha egy másik, akkor strtodatetime használata nem teljesen helyes.
Pontosan - ez dörömbölt az elv datetostr (dátum) + "" + timetostr (idő);
de néhány nappal korábban
és hogyan kell dolgozni DaysBetween
Ezért az eredmény 0
Nem hiszem el. Ennek eredményeként - oschidaemye 19.5:
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
# XA0; Application.MessageBox (
# XA0; # XA0; PChar (
# XA0; # XA0; # XA0; DateTimeToStr (Most () - 19,5) + # 13 +
# XA0; # XA0; # XA0; FloatToStr (
# XA0; # XA0; # XA0; # XA0; StrToDateTime (DateTimeToStr (Now ())) -
# XA0; # XA0; # XA0; # XA0; StrToDateTime (DateTimeToStr (Now () - 19,5))
# XA0; # XA0; # XA0;)
# XA0; # XA0;),
# XA0; # XA0; PChar (DateTimeToStr (Now ()))
# XA0; # XA0; 0
# XA0;)
végén;
Memória: 0,73 MB
Idő: 0,088 c