Changeset 163

Timestamp:

Mar 13, 2007, 4:47:36 AM (18 years ago)

Author:

dai

Message:

Thisへの代入をコンストラクタ呼び出しに変更。
デフォルトコンストラクタを追加。

File:

• Include/Classes/System/DateTime.ab (modified) (6 diffs)

Include/Classes/System/DateTime.ab

@@ -3 +3 @@
 #ifndef __SYSTEM_DATETIME_AB__
 #define __SYSTEM_DATETIME_AB__
-
 
 Class DateTime
@@ -11 +10 @@
     Static MinValue = 316224000000000 As Int64 'Const
 
+    Sub DateTime()
+        DateTime(316224000000000)
+    End Sub
+
     Sub DateTime(ticks As Int64)
         Ticks = ticks
@@ -27 +30 @@
         End If
         DateTime(316224000000000)
-        This = AddYears(year - 1)
+        DateTime( AddYears(year - 1) )
 
         Dim days As Long
@@ -35 +38 @@
         Next
         days += day
-        This = AddDays(days - 1)
+        DateTime( AddDays(days - 1) )
     End Sub
 
@@ -48 +51 @@
             debug
         End If
+
         DateTime(year, month, day)
-        This = AddHours(hour)
-        This = AddMinutes(minute)
-        This = AddSeconds(second)
+        DateTime( AddHours(hour) )
+        DateTime( AddMinutes(minute) )
+        DateTime( AddSeconds(second) )
     End Sub
 
@@ -61 +65 @@
     Sub DateTime(year As Long, month As Long, day As Long, hour As Long, minute As Long, second As Long, millisecond As Long)
         DateTime(year, month, day, hour, minute, second)
-        This = AddMilliseconds(millisecond)
+        DateTime( AddMilliseconds(millisecond) )
     End Sub