Разбор даты

[VanoKing]

В приложении рабочий пример.
Можете на основе сделать функцию и загнать в библиотеку

немного неточное преобразование идет. счас пробую переделать? округляет часы преобразование real_to_int, а там нужно выделить целое число.
9:59:05 => h=10,min=-1

Вот немного исправил получилось:
sec:=mlsek/1000;
sec:=sec mod 60;
min:=(mlsek-sec*1000)/60000;
min:=min mod 60;
hour:=(mlsek-min*60000-sec*1000)/3600000;