MyChat Scripts: MinuteOf, получить значение минут текущего часа
Получить значение минут текущего часа из переменной даты и времени.
Синтаксис
function MinuteOf(dt: double): integer;
Параметры и возвращаемые значения
|
Параметр |
Тип |
Значение |
|
dt |
double |
дата, из которой нужно получить числовое значение минут. |
Результат функции
Число типа integer, от 0 до 59.
Пример
var
iMinute, iHour, x: integer;
s, sHour: string;
dt: double;
begin
dt := Now;
iMinute := MinuteOf(dt);
x := iMinute mod 5;
mLogScript(inttostr(x), '');
if x > 2 then iMinute := iMinute - x + 5
else iMinute := iMinute - x;
iHour := HourOf(dt);
if iMinute > 59 then begin
iMinute := 0;
inc(iHour);
end;
if iHour > 12 then iHour := iHour - 12;
if iMinute > 30 then inc(iHour);
sHour := inttostr(iHour);
case iMinute of
0: s := sHour + ' o''clock';
5: s := '5 minutes past' + sHour;
10: s := '10 minutes past ' + sHour;
15: s := 'a quarter past ' + sHour;
20: s := '20 minutes past ' + sHour;
25: s := '25 minutes past ' + sHour;
30: s := 'half past ' + sHour;
35: s := '25 minutes to ' + sHour;
40: s := '25 minutes to ' + sHour;
45: s := 'a quarter to ' + sHour;
50: s := '10 minutes to ' + sHour;
55: s := '5 minutes to ' + sHour;
end;
s := 'It''s about ' + s;
mLogScript(s + ' (' + FormatDateTime('hh:nn', dt) + ')', '');
end.
Результат работы скрипта
[14:24:49] (Log "MinuteOf"): It's about 25 minutes past 2 (14:24)