Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Как из 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);




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.029 c
3-21975           Dr. Web               2001-12-06 09:12  2002.01.08  
создание базы Interbase из программы


3-21936           vvs                   2001-12-05 06:42  2002.01.08  
Delphi5+SQL Server7 нормально, а Delphi5+SQL 2000 бред


14-22413          РУС                   2001-11-11 21:27  2002.01.08  
CD-RW


1-22110           Катерина              2001-12-19 18:09  2002.01.08  
слезно прошу помочь


1-22210           Man In Red            2001-12-15 20:12  2002.01.08  
Как намутить такое, что бы............................