Hogyan összehasonlítani az időt
hogyan lehet összehasonlítani idő
Üdvözlünk! eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
ha az idő <01.00 then ShowMessage("Рано!") ;
ha az idő> 01.00 majd ShowMessage ( "Túl késő!");
végén; miért nem működik rendesen a kódot. Nem számít, hogy mennyi az idő kiabál, hogy a korai. És hogyan lehet összehasonlítani az időt. Köszönöm mindenkinek, aki válaszolni fog
milyen időben és 01.00
> Mi az az idő, és a 01.00
idő a jelenlegi rendszer idején 01.00 az idő, ami összehasonlítva a jelenlegi
> Nem számít, hogy mennyi az idő kiabál, hogy előbb
mert az idő - tört része egy dupla, hogy képviseli a dátum-idő. A tört része mindig <1
eljárás TForm1.Button1Click (Sender: TObject);
var
# XA0; Present: TDateTime;
# XA0; Hour, Min, Sec, Msec: szó;
kezdődik
# XA0; Present: = Most;
# XA0; DecodeTime (Present, óra, Min, Sec, ms);
# XA0, ha órás <1 then ShowMessage("Рано!") ;
# XA0, ha Óra> 1, akkor ShowMessage ( "Túl késő!");
TDateTime (01.00) == == 1 nap 24 óra == == és 1440 perc 86.400 másodperc
> [8] anton773 # XA0; (11.03.11 18:44)
> Works!
Miért érted?
ha (T <1/24) then ShowMessage("Рано!");
if (T> 1/24), akkor ShowMessage ( "Túl késő!");
Az idő mindig kevesebb, mint 1
Egy másik kérdés is: mi van, ha = 1 óra, akkor a „csak jobb”?
> Az idő mindig kevesebb, mint 1
akkor miért van erre szükség. és általában használt? (Úgy értem, ha ez nem a pontos időt)
> Az idő mindig kevesebb, mint 1
Ezért mindig egy kis időt :(
Meg mindig kevesebb, mint egy, a másik, hogy nem lehet.
Végezzen egy oktatási program, hogy van.
A dátum és idő tárolódnak lebegőpontos szám
Beépített f-CIÓ Most visszatér a típus TDatetime, amelynek lényege egy lebegőpontos szám
például
345678.334456
ahol az egész része - az a dátum és a frakcionált - ezúttal
azaz a dátum lesz = 345678
és idő = 0.334456
használt lefordítani két funkcióban érthető formában
DecodeDate
DecodeTime
hogy konvertálni egy lebegőpontos számot egy pár szám, melyek mindegyike a nap, hónap, év, második, perc, óra
Általánosságban elmondható, hogy jobb. ToStr
Valószínűleg azért, mert szocializált „zadavalschika kérdések” # XA0; bármilyen okból, hogy menjen be a „Nettó helyett tanulmányozza a kérdést.
Íme néhány igazi előnyöket anton773 # XA0; egy ilyen válasz?
> De miért van ilyen válaszok mindig ideges?
ha nyugtalanító, akkor ne olvassa.
és nem bánom, hogy megosszák a felhalmozott tudást.
Egyszer volt, és úgy tudom, hogy milyen nehéz volt, hogy minden fejedben.
És így, hála a fórum mindenki megosztják tudásukat - hozzájárulni a felgyorsult technológiai fejlődés.
Hurrá!
345678.334456 elfelejtettem felvenni - ez a Julián-naptár
1 Julian század pontosan 36525 nap
> Teach "zadavalschika kérdések" # XA0; bármilyen okból mászni
> Az internet helyett tanulmányozza a kérdést.
>
hagyja mászik.
és hogyan kell tanulni, nincs internet? drága tankönyvek, és az elavult gyorsan.
Memória: 0,76 MB
Idő: 0.058 c