Changeset 207 for Include/Classes/System/DateTime.ab

Timestamp:

Apr 7, 2007, 3:03:38 PM (18 years ago)

Author:

dai

Message:

動的型情報（Object.GetType）に対応。
戻り値やクラスメンバがオブジェクトだったとき、その初期値をNothingにした（※戻り値として関数名を使っている部分、要注意！！）。

File:

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

Include/Classes/System/DateTime.ab

@@ -272 +272 @@
         End If
 
-        AddTicks.Ticks = ticks + value
-        AddTicks.Kind = Kind
+        Return New DateTime( ticks + value, Kind )
     End Function
 
@@ -315 +314 @@
         End If
         
-        AddYears.Ticks = ticks
-        AddYears.Kind = Kind
+        Return New DateTime( ticks, Kind )
     End Function
 
@@ -363 +361 @@
             .wDayOfWeek = DayOfWeek() As Word
         End With
+
+        GetDateTimeFormats = New String()
 
         Dim size As Long
@@ -481 +481 @@
         ElseIf dateData = &H03 Then
             Return DateTimeKind.Utc
+        Else
+            ' どれにも該当しなかったときはどうなるんでしょうか？？
+            Return DateTimeKind.Local
         End If
     End Function