CHARTIMETODOUBLE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[CHARTIMETODOUBLE]] - это программа из справочника [[R266]] | [[CHARTIMETODOUBLE]] - это программа из справочника [[R266]] | ||
Преобразование чарного времени в double формат "сек.мсек" | Преобразование чарного времени в double формат "сек.мсек" | ||
| + | = Текст = | ||
| + | parameters charTime | ||
| + | local a | ||
| + | |||
| + | try | ||
| + | a:=val(substr(charTime,1,2))*3600+val(substr(charTime,4,2))*60+val(substr(charTime,7,2)) | ||
| + | result:=val(str(a)+'.'+substr(charTime,10,3)) | ||
| + | except | ||
| + | result:=0 | ||
| + | end | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 12:19, 27 марта 2018
CHARTIMETODOUBLE - это программа из справочника R266
Преобразование чарного времени в double формат "сек.мсек"
Текст
parameters charTime local a try a:=val(substr(charTime,1,2))*3600+val(substr(charTime,4,2))*60+val(substr(charTime,7,2)) result:=val(str(a)+'.'+substr(charTime,10,3)) except result:=0 end
