Как да се сравни времето
как да се сравни времето
Добре дошли! процедура TForm1.Button1Click (Sender: TObject);
започвам
ако времето <01.00 then ShowMessage("Рано!") ;
ако времето> 01.00 след ShowMessage ( "Твърде късно е!");
приключи; защо тя не работи правилно в кода. Без значение колко е часът вика, че по-рано. И как да се сравни времето. Благодаря на всички, които ще отговорят
по кое време и 01.00
> Какво е времето, и 01.00
Време е текущото време система от 01.00 е времето, което се равнява на тока
> Няма значение кое време го вика, че по-рано
защото времето - дробна част от двойна, който представлява дата-време. Дробна част е винаги <1
процедура TForm1.Button1Click (Sender: TObject);
Var
# XA0; Настояще: TDateTime;
# XA0; Час, Min, Sec, мсек: Word;
започвам
# XA0; Настояще: = Сега;
# XA0; DecodeTime (настояще, Час, Min, Sec, мсек);
# XA0; ако Hour <1 then ShowMessage("Рано!") ;
# XA0; ако Час> 1 след ShowMessage ( "Твърде късно е!");
TDateTime (01,00) == == един ден 24 часа == == 1440 минути 86,400 секунди
> [8] anton773 # XA0; (11.03.11 18:44)
> Works!
Защо мислите, разбираш ли?
ако (T <1/24) then ShowMessage("Рано!");
ако (Т> 1/24), след това ShowMessage ( "Твърде късно е!");
Времето е винаги по-малко от 1
Друг въпрос остава: какво ще стане ако = 1 час, а след това на "Точно така"?
> Време е винаги по-малко от 1
тогава защо е необходимо. и обикновено се използва за? (Искам да кажа, ако това не е точното време)
> Време е винаги по-малко от 1
Затова е винаги малко време :(
Той трябва винаги да е по-малко от една и от друга страна, тя не може да бъде.
Провеждане на образователна програма, която е.
Датата и часът се съхраняват като число с плаваща точка
Вградена е-ТА Сега връща TDatetime тип, същността на която е число с плаваща точка
например
345678.334456
където цялата част от - датата и дробна - този път
което означава, че датата ще бъде = 345678
и време = 0.334456
се използва за превод на две Fct формат разбираем
DecodeDate
DecodeTime
които превръщат един номер с плаваща запетая в рамките на няколко числа, всяко от които представлява ден, месец, година, на второ място, минута, час
Като цяло, това е по-добре. ToStr
Може би защото социализирани "zadavalschika въпроси" # XA0; по някаква причина да отидат в "мрежата, вместо на разглеждане на въпроса.
Ето някои реални ползи за anton773 # XA0; от такава реакция?
> Но защо имам такива отговори са винаги са нервни заради?
ако изнервяща, тогава не се чете.
и нямам нищо против да споделят натрупаните знания.
той някога е бил, и така аз знам колко е трудно да се постигне всичкия си ум.
И така, благодарение на форум всеки може да споделят своите знания - да допринесе за ускоряването на техническия прогрес.
Ура!
345678.334456 забравих да добавите - това е по Юлианския календар
1 Джулиан век е точно 36525 дни
> Teach "zadavalschika въпроси" # XA0; по някаква причина да се изкачи
> В интернет, вместо на разглеждане на въпроса.
>
нека изкачвания.
и как да се научи без връзка с интернет? скъпи учебници, както и остарели бързо.
Памет: 0.76 MB
Време: 0,058 гр