Перевод времени

← →
hgd (2008-03-09 22:25) [0]

Подскажите, есть функция
function ConvertVideoTime(VideoTime : Int64):String;
begin
Result:=FormatDateTime("hh:mm:ss:zzz",EncodeTime(trunc(VideoTime/10000) div 3600000, (trunc(VideoTime/10000) mod 3600000) div 60000, (trunc(VideoTime/10000) mod 60000) div 1000, trunc(VideoTime/10000) mod 1000));
end;

Как сделать обратную функцию
function ConvertVideoTime(VideoTime : String):Int64;

Заранее спасибо!

← →
hgd (2008-03-09 22:51) [1]

Пытаюсь пробовать, как думаете, почему не работает
procedure TForm1.Button10Click(Sender: TObject);
var
myDate : TDateTime;
formattedDate : string;
begin
myDate := StrToTime("15:06:23.456");
end;

← →
Германн © (2008-03-10 01:07) [2]

← →
Германн © (2008-03-10 01:12) [3]

> hgd (09.03.08 22:51) [1]
>
> Пытаюсь пробовать, как думаете, почему не работает
> procedure TForm1.Button10Click(Sender: TObject);
> var
> myDate : TDateTime;
> formattedDate : string;
> begin
> myDate := StrToTime("15:06:23.456");
> end;
>

Потому что "15:06:23.456" не соответствует стандартным форматам записи времени.
А вот так сработает:
myDate := StrToTime("15:06:23")+456/(24*60*60*1000);
Только результат на будет ещё умножить и Trunc"нуть :)

← →
sniknik © (2008-03-10 01:51) [4]

DecimalSeparator:= "."; myDate := StrToTime("15:06:23.456");

> sniknik © (10.03.08 01:51) [4]

Коль. Снимаю шляпу. :)
Я и не знал, что в данной строке можно вводить вещественные числа.
И не знал, что в русской Винде, по умолчанию, разделитель - запятая. (Или не обращал внимания). Что то же самое.

← →
hgd (2008-03-10 15:26) [6]

DecimalSeparator:= ".";
myDate := StrToTime("15:06:23.456");

Спасибо!

Перевод времени Найти похожие ветки