Переводим указанное количество секунд в дни, часы, минуты и секунды.
|
1 2 3 4 5 6 7 8 |
var sec: Integer; dhms: string; begin sec:= 2145414543; dhms:= secToDHMS(sec); ShowMessage(dhms); end; |
Параметры
sec - секунды
Результат
Строка в формате: х дней х часов х минут х секунд.
|
1 2 3 4 5 6 7 8 9 10 11 |
function secToDHMS(sec: Integer): string; var D, H, M, S, ATime: Integer; begin D:= sec div 86400; H:= (sec - D * 86400) div 60 div 60; M:= (sec - D * 86400 - H * 3600) div 60; S:= sec - D * 86400 - H * 3600 - M * 60; Result := Format('%d дней %d часов %d минут %d секунд', [D, H, M, S]); end; |
