Question

vb2010用什么代替currency

Answer 1

VB2010里有这个类型，他被隐藏了，自己声明一个吧

=========================

Friend Structure Currency
        Friend m_value As Long

        Public Sub New(value As Decimal)
            Me.m_value = Decimal.ToCurrency(value).m_value
        End Sub

        Friend Sub New(value As Long, ignored As Integer)
            Me.m_value = value
        End Sub

        Public Shared Function FromOACurrency(cy As Long) As Currency
            Return New Currency(cy, 0)
        End Function

        Public Function ToOACurrency() As Long
            Return Me.m_value
        End Function

        Public Shared Function ToDecimal(c As Currency) As Decimal
            Dim result As Decimal = 0D
            Currency.FCallToDecimal(result, c)
            Return result
        End Function

Answer 2

在VB.NET 中，Currency数据类型不再存在，它被更强大的128位Decimal（十进制）数据类型所代替。