Получить значение часа из переменной даты и времени.
function HourOf(dt: double): integer;
Параметр |
Тип |
Значение |
---|---|---|
dt |
double |
дата, из которой нужно получить числовое значение часов. |
Число типа integer, от 0 до 23.
var
iHour: integer;
s: string;
dt: double;
begin
dt := Now;
iHour := HourOf(dt);
if iHour < 12 then s := 'ante meridiem'
else s := 'post meridiem';
mLogScript(s + ' (' + FormatDateTime('hh:nn', dt) + ')', '');
end.
[22:33:23] (Log "HourOf"): post meridiem (22:33)