Changeset 39
 Timestamp:
 Dec 27, 2006, 9:13:33 PM (18 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Include/Classes/System/DateTime.ab
r38 r39 8 8 m_Date As Int64 9 9 Public 10 Static MaxValue = 3162240000000000000 000As Int64 'Const11 Static MinValue = 316224000000000 000As Int64 'Const10 Static MaxValue = 3162240000000000000 As Int64 'Const 11 Static MinValue = 316224000000000 As Int64 'Const 12 12 13 13 Sub DateTime(ticks As Int64) … … 270 270 AddTicks(intValue * 315360000000000 + 864000000000 * ((year Mod 4 + intValue) \ 4  (year Mod 100 + intValue) \ 100 + (year Mod 400 + intValue) \ 400)) 271 271 If value < 0 Then 272 If year Mod 4 + intValue <= 0 And year Mod 100 > 4Then272 If (year Mod 4 + intValue <= 0 And year Mod 100 > 4) Or (year Mod 400 <= 4) Then 273 273 AddTicks(864000000000) 274 274 End If
Note:
See TracChangeset
for help on using the changeset viewer.