Changeset 200 for Include/com/currency.ab

Timestamp:

Apr 2, 2007, 11:55:39 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Currencyにメンバを追加

File:

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

Include/com/currency.ab

@@ -1 +1 @@
 ' com/currency.ab
+
+#require <com/variant.ab>
+
+#ifndef _COM_CURRENCY_AB
+#define _COM_CURRENCY_AB
 
 Class Currency
 Public
+/*
+    Sub Currency(x As CY)
+        cy = x
+    End Sub
+*/
+    Sub Currency(x As Double)
+        VarCyFromR8(x, cy)
+    End Sub
+/*
+    Sub Currency(x As Int64)
+        VarCyFromI8(x, cy)
+    End Sub
+*/
     Const Function Operator +() As Currency
         Return New Currency(This)
@@ -68 +86 @@
         VarCyRound(This.cy, c, Round.cy)
     End Function
+
+    Const Function Cy() As CY
+        Return cy
+    End Function
+
+    Sub Cy(c As CY)
+        cy = c
+    End Sub
+
+    Const Function ToDouble() As Double
+        VarR8FromCy(cy, ToDouble)
+    End Function
+
+    Const Function ToInt64() As Int64
+        VarI8FromCy(cy, ToInt64)
+    End Function
+
+    Const Function ToVariant() As Variant
+        Return New Variant(This)
+    End Function
+
+    Override Function ToString() As String
+        Dim bs As BSTR
+        VarBstrFromCy(cy, LOCALE_USER_DEFAULT, LOCALE_USE_NLS, bs)
+        ToString = New String(bs As PCWSTR, SysStringLen(bs) As Long)
+        SysFreeString(bs)
+    End Function
+
+    Override Function GetHashCode() As Long
+        Return HIDWORD(cy) Xor LODWORD(cy)
+    End Function
 Private
     cy As CY
 End Class
+
+#endif '_COM_CURRENCY_AB