CHARTIMETODOUBLE — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
Строка 11: Строка 11:
 
   result:=0
 
   result:=0
 
  end
 
  end
 +
= Пример =
 +
[[CHARTIMETODOUBLE]]( [[TIME]]() )
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

Версия 12:20, 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() )

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

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

Функции Delphi