| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перевод времени [D7]
hgd © (2008-03-09 22:25:00)Подскажите, есть функция
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-10 15:26:00) [1]DecimalSeparator:= '.';
myDate := StrToTime('15:06:23.456');
Спасибо!
Германн (2008-03-10 02:25:00) [2]
> sniknik © (10.03.08 01:51) [4]
Коль. Снимаю шляпу. :)
Я и не знал, что в данной строке можно вводить вещественные числа.
И не знал, что в русской Винде, по умолчанию, разделитель - запятая. (Или не обращал внимания). Что то же самое.
sniknik (2008-03-10 01:51:00) [3]
DecimalSeparator:= '.';
myDate := StrToTime('15:06:23.456');
Германн (2008-03-10 01:12:00) [4]
> 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'нуть :)
Германн (2008-03-10 01:07:00) [5]
> 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;
>
Потому, что
hgd (2008-03-09 22:51:00) [6]Пытаюсь пробовать, как думаете, почему не работает
procedure TForm1.Button10Click(Sender: TObject);
var
myDate : TDateTime;
formattedDate : string;
begin
myDate := StrToTime('15:06:23.456');
end;
| |
