| MinutesApart Function | 
Unit
QESBPCSDateTime
Declaration
Function MinutesApart(const DT1, DT2: TDateTime): Word;
| Parameters | 
| DT1 | First Time, Date portion ignores - assumed to be the earlier time. | 
| DT2 | Second Time, Date portion ignores - assumed to be the later time. | 
Category
Date/Time Arithmetic RoutinesImplementation
 
| function MinutesApart (const DT1, DT2: TDateTime): Word;
var
     Hr1, Min1, Sec1, MSec1: Word;
     Hr2, Min2, Sec2, MSec2: Word;
begin
     ESBDecodeTime (DT1, Hr1, Min1, Sec1, MSec1);
     ESBDecodeTime (DT2, Hr2, Min2, Sec2, MSec2);
     if Min2 < Min1 then
     begin
          Min2 := Min2 + 60;
          if Hr2 > 0 then
               Dec (Hr2)
          else
               Hr2 := 23;
     end;
     if Hr1 > Hr2 then
          Hr2 := Hr2 + 24;
     Result := (Hr2 - Hr1) * 60 + (Min2 - Min1);
End; | 
|  |