Changeset 355 for trunk/Include/com/currency.ab

Timestamp:

Oct 13, 2007, 2:11:22 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

FormatIntegerDを実装。
UnitTestの失敗時の表示を目立つようにした。
ArrayListを名前空間System.Collectionsに入れた。

File:

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

trunk/Include/com/currency.ab

@@ -56 +56 @@
         Return ret
     End Function
-
+/*
     Const Function Operator /(y As Variant) As Double
         Dim vx = New Variant(This)
         Dim ret = vx / y
-        Return ret.ValR4
+        Return ret.ValR8
     End Function
 
@@ -67 +67 @@
         Dim vy = New Variant(y)
         Dim ret = vx / vy
-        Return ret.ValR4
-    End Function
-
+        Return ret.ValR8
+    End Function
+*/
     Const Function Operator +(y As Currency) As Currency
         Dim ret = New Currency