![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как перевести секунды в DateTime? [D7, WinXP]
cvg © (2005-08-11 18:09:00)Сабж. Когда из DateTime в секунды переводил, пользовался функцией SecondsOfTheDay.
Jeer (2005-08-12 10:37:00) [1]Antonn © (11.08.05 19:41) [3]
Я по всякому пойму.:)
Marser (2005-08-11 22:21:00) [2]SecondsBetween etc
uses DateUtils
Antonn (2005-08-11 19:41:00) [3]Jeer © (11.08.05 18:25) [2]
вах, так много текста...:)
dt: TDateTime;
dt := секунды/86400;
Jeer (2005-08-11 18:25:00) [4]А подумать ?
sec: integer;
fsec: double;
dt: TDateTime;
fsec := sec;
fsec := fsec/(24*60*60);
dt := TDateTime(fsec);
troits (2005-08-11 18:16:00) [5]Если имеется в виду перевод в формат TDateTime, то есть ф-ция в sysutils
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;