All pastes #963007 Raw Edit

tobz

public text v1 · immutable
#963007 ·published 2008-03-30 04:48 UTC
rendered paste body
function GetPackedTime: Longword;
  var
    TimeNow: YDayTime;
  begin
    TimeNow.Hours := DivModU(DateTimeToTimeStamp(Now).Time div 60000, 60, TimeNow.Minutes);
    Result := (TimeNow.Hours shl 6) + TimeNow.Minutes;
  end;