Changeset 370 for trunk/Include/Classes/System/DateTime.ab

Timestamp:

Nov 3, 2007, 5:18:30 PM (16 years ago)

Author:

dai

Message:

System.GCクラスを追加。
64ビットコンパイラで生じる警告を改修した。

File:

• trunk/Include/Classes/System/DateTime.ab (modified) (1 diff)

trunk/Include/Classes/System/DateTime.ab

@@ -253 +253 @@
                 - Millisecond * TimeSpan.TicksPerMillisecond As Int64
         If IsLeapYear(Year + Int(value)) Then
-            ticks += (value - Int(value)) * 366 * TimeSpan.TicksPerDay
-        Else
-            ticks += (value - Int(value)) * 365 * TimeSpan.TicksPerDay
+            ticks += ( (value - Int(value)) * 366 * TimeSpan.TicksPerDay ) As Int64
+        Else
+            ticks += ( (value - Int(value)) * 365 * TimeSpan.TicksPerDay ) As Int64
         End If
         Return date.AddTicks(ticks)