View difference between Paste ID: VWa8qHY3 and ubNLZfFP

-function TimeToInt(Value: TDateTime): Integer;
+    function TimeToInt(Value: TDayTime): Integer;
-begin
+    begin
-  Result:= (HourOf(Value) shl 26)
+	  {
-        or (MinuteOf(Value) shl 20)
+	  if Value.h > 23 then Value.h := 23 else if Value.h < 0 then Value.h := 0;
-        or (SecondOf(Value) shl 14 )
+	  if Value.m > 59 then Value.h := 59 else if Value.m < 0 then Value.m := 0;
-        or (MilliSecondOf(Value));
+	  if Value.s > 59 then Value.h := 59 else if Value.s < 0 then Value.s := 0;
-end;
+	  if Value.ms > 999 then Value.h := 999 else if Value.ms < 0 then Value.ms := 0;
-
+	  if Value.d > 7 then Value.d := 7 else if Value.d < 0 then Value.d := 0;
-function IntToTime(Value: Integer): TDateTime;
+	  }
-var h,m,s,ms: Integer;
+      Result:= (Value.h shl 26)
-begin
+            or (Value.m shl 20)
-  h := Value shr 26;
+            or (Value.s shl 14)
-  m := Value shr 20 and $3F;
+            or (Value.ms shl 3)
-  s := Value shr 14 and $3F;
+			or (Value.d);
-  ms := Value and $3FFF;
+    end;
-  Result:=EncodeTime(h,m,s,ms);
+
-end
+    function IntToTime(Value: Integer): TDayTime;
     begin
       Result.h := Value shr 26;
       Result.m := Value shr 20 and $3F;   // $3F = 111111
       Result.s := Value shr 14 and $3F;
       Result.ms := Value shr 3 and $3FFF; // $3FFF = 11111111 111111
 	  Result.d := Value and $7;           // $7 = 111
     end