Скачать: CL | DM;

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

← →
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]

> 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;
>

Потому, что

---

← →
Германн ©   (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");

---

← →
Германн ©   (2008-03-10 02:25) [5]

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

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

---

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

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

Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c