MyChat Scripts: MinuteOf, получить значение минут текущего часа

Получить значение минут текущего часа из переменной даты и времени.

 

Синтаксис

function MinuteOf(dt: double): integer;

 

Параметры и возвращаемые значения

 

Результат функции

Число типа 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)

 

Ещё посмотреть

Inc

IntToStr

HourOf

FormatDateTime

mLogScript

Now