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

Timestamp:

Mar 13, 2007, 11:55:49 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

GetHashCodeを実装

File:

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

Include/Classes/System/DateTime.ab

@@ -82 +82 @@
 
     'Copy Constructor
-    Sub DateTime( ByRef datetime As DateTime )
+    Sub DateTime(ByRef datetime As DateTime)
         This.m_Date = datetime.m_Date
     End Sub
@@ -89 +89 @@
     End Sub
 
-    Function Operator+ (ByRef value As TimeSpan) As DateTime
+    Function Operator + (ByRef value As TimeSpan) As DateTime
         Dim date As DateTime(Ticks + value.Ticks)
         Return date
     End Function
 
-    Function Operator- (ByRef value As DateTime) As TimeSpan
+    Function Operator - (ByRef value As DateTime) As TimeSpan
         Return TimeSpan.FromTicks(Ticks - value.Ticks)
     End Function
 
-    Function Operator- (ByRef value As TimeSpan) As DateTime
+    Function Operator - (ByRef value As TimeSpan) As DateTime
         Dim date As DateTime(Ticks - value.Ticks)
         Return date
@@ -254 +254 @@
             Return False
         End If
+    End Function
+
+    Override Function GetHashCode() As Long
+        Return HIDWORD(m_Date) Xor LODWORD(m_Date)
     End Function