Changeset 211 for Include/com/currency.ab

Timestamp:

Apr 11, 2007, 9:49:17 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

Decimalを追加、OAIdl.abの一応の完成など

File:

• Include/com/currency.ab (modified) (2 diffs)

Include/com/currency.ab

@@ -8 +8 @@
 Class Currency
 Public
+    Sub Currency()
+        cy = 0
+    End Sub
+
 /*
     Sub Currency(x As CY)
@@ -201 +205 @@
         Return HIDWORD(cy) Xor LODWORD(cy)
     End Function
+
+    Function Equals(y As Currency) As Boolean
+        Dim c = Compare(This, y)
+        Return c = VARCMP_EQ
+    End Function
 Private
     cy As CY