Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как из Time вытаскивать только секунды и переводить [D6, Win2k]

Dreamer © (2001-12-15 19:34:00)
эти секунды в integer? Допустим 00:01:30->90:Double->90:Integer;

KilkennyCat (2001-12-16 06:17:00) [1]
var
Hour, Min, Sec, MSec: Word;
begin
DecodeTime(now, Hour, Min, Sec, MSec);

Dreamer (2001-12-15 22:02:00) [2]
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, соответственоо и минуты тоже должны плавно превращаться в секунды:)

Tosov (2001-12-15 22:00:00) [3]
StrToInt(Copy(TimeToStr(Time),7,2));

Anatoly Podgoretsky (2001-12-15 21:50:00) [4]
Да приводи свой код и получишь подробнее.

Dreamer (2001-12-15 21:45:00) [5]
А можно поподробнее, про decodetime я вобще в хелпе не нашел, при вводе параметров орет что не те параметры, или что они должны быть однотипными.
Про Trunc очень скудно, ругается он у меня на нечто вроде Int64 и т.д.

Anatoly Podgoretsky (2001-12-15 20:57:00) [6]
Trunc(TimeVar*86400)

Nikolay (2001-12-15 19:55:00) [7]
decodetime

Вот так!(с)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »