CHARTIMETODOUBLE

Материал из Фабиус wiki
Перейти к: навигация, поиск

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() )

Смотрите также

Полезные функции

Функции Delphi