Index: /Include/Classes/System/DateTime.ab
===================================================================
--- /Include/Classes/System/DateTime.ab	(revision 38)
+++ /Include/Classes/System/DateTime.ab	(revision 39)
@@ -8,6 +8,6 @@
 	m_Date As Int64
 Public
-	Static MaxValue = 3162240000000000000000 As Int64 'Const
-	Static MinValue = 316224000000000000 As Int64 'Const
+	Static MaxValue = 3162240000000000000 As Int64 'Const
+	Static MinValue = 316224000000000 As Int64 'Const
 
 	Sub DateTime(ticks As Int64)
@@ -270,5 +270,5 @@
 		AddTicks(intValue * 315360000000000 + 864000000000 * ((year Mod 4 + intValue) \ 4 - (year Mod 100 + intValue) \ 100 + (year Mod 400 + intValue) \ 400))
 		If value < 0 Then
-			If year Mod 4 + intValue <= 0 And year Mod 100 > 4 Then
+			If (year Mod 4 + intValue <= 0 And year Mod 100 > 4) Or (year Mod 400 <= 4) Then
 				AddTicks(-864000000000)
 			End If