ну как я предлагал макросы для вычисления фаз восход/закат из оскатовских библиотек, это если с RTS работать, а так я например использую функцию TIME(), преобразую её в двойное слово (целочисленное по вашему) и вычисляю разницу вышеуказанной функции с запомненым значением, получаю прошедшее время в секундах