CHARTIMETODOUBLE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Пример) |
||
| (не показаны 2 промежуточные версии этого же участника) | |||
| Строка 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 | ||
| + | = Пример = | ||
| + | [[CHARTIMETODOUBLE]]( [[TIME]]() ) | ||
| + | [[Файл:2018-03-27 12-21-11.png]] | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Текущая версия на 12:21, 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
Пример
CHARTIMETODOUBLE( TIME() )
