Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Как из Time вытаскивать только секунды и переводить   Найти похожие ветки 

 
Dreamer ©   (2001-12-15 19:34) [0]

эти секунды в integer? Допустим 00:01:30->90:Double->90:Integer;


 
Nikolay ©   (2001-12-15 19:55) [1]

decodetime

Вот так!(с)


 
Anatoly Podgoretsky ©   (2001-12-15 20:57) [2]

Trunc(TimeVar*86400)


 
Dreamer ©   (2001-12-15 21:45) [3]

А можно поподробнее, про decodetime я вобще в хелпе не нашел, при вводе параметров орет что не те параметры, или что они должны быть однотипными.
Про Trunc очень скудно, ругается он у меня на нечто вроде Int64 и т.д.


 
Anatoly Podgoretsky ©   (2001-12-15 21:50) [4]

Да приводи свой код и получишь подробнее.


 
Tosov ©   (2001-12-15 22:00) [5]

StrToInt(Copy(TimeToStr(Time),7,2));


 
Dreamer ©   (2001-12-15 22:02) [6]

Function GetCustNo(e1: Integer):integer;
begin

Form3.Query1.Close;
Form3.Query1.ParamByName("Time").AsInteger := e1;
Form3.Query1.Open;
GetCustNo:=Form3.Query1.FieldByName ("RadPor").AsInteger;
end;
В e1 мне надо секунды подставить из time, я так понимаю, что нужно подставлять в integer, соответственоо и минуты тоже должны плавно превращаться в секунды:)


 
KilkennyCat ©   (2001-12-16 06:17) [7]

var
Hour, Min, Sec, MSec: Word;
begin
DecodeTime(now, Hour, Min, Sec, MSec);



Страницы: 1 вся ветка

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
1-22249
Eugene Zelikovsky
2001-12-17 13:53
2002.01.08
Как обождать какое-то время не используя TTimer


7-22430
AlexK
2001-09-21 12:28
2002.01.08
блокировка клавиатуры


4-22462
Winnie!
2001-11-01 19:50
2002.01.08
использоание BitBlt и CreateBitmap


3-21950
Hermit
2001-12-05 11:38
2002.01.08
Неявно стартуемые транзакции


14-22341
Дремучий
2001-10-26 13:55
2002.01.08
Соревнования программ - МОРСКОЙ БОЙ