Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Перевод времени

Автор: Addmin 8.3.2006, 06:07

Здравствуйте. У меня небольшой вопрос: как из обычного формата времени (к примеру: 16:24:00 в DateTimePicker) перевести время в миллисекунды? Ну, чтобы можно было в таймер поставить. Всем откликнувшимя - большое спасибо!

Автор: Albinos_x 8.3.2006, 09:14

Код


TimeOut:=Tranc(Frac(DateTimePicker1.Time)/encodeTime(0,0,0,1));

или

Код


TimeOut:=Tranc(Frac(DateTimePicker1.Time)/(1/24/60/60/1000));

или

Код


TimeOut:=Tranc(Frac(DateTimePicker1.Time)*86400000);

Автор: Romikgy 9.3.2006, 11:51

Код


var ms:Comp    ;
ms:=TimeStampToMSecs(DateTimeToTimeStamp(DateTimePicker1.Time));

Автор: Sunvas 12.3.2006, 02:16

Хм.. Только вот эти миллисекунды будут же идти с шагом в 1000, раз мы входное значение округлили до секунд.