This is a way to make array type of Decimals. VB6 has no variables as decimals, you have to use a Variant type. The problem is that the Variant type always get any type we place;
A Decimal type need 16bytes the same as a Variant type. But an array of Decimals has a significant value: First has automatic conversion to decimal and overflow control.
Just put this code in a module in a project without a form and execute it to see the results.
Merry Christmas and a happy new year;
A Decimal type need 16bytes the same as a Variant type. But an array of Decimals has a significant value: First has automatic conversion to decimal and overflow control.
Just put this code in a module in a project without a form and execute it to see the results.
Code:
Private Declare Sub PutMem2 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Integer)
Function DecimalArray(size)
Dim d
ReDim d(size)
DecimalArray = d
PutMem2 VarPtr(DecimalArray), vbDecimal + vbArray
End Function
Sub Main()
Dim dArray
dArray = DecimalArray(100)
dArray(0) = 100 ' integer to decimal
Debug.Print dArray(0), VarType(dArray(0)) = vbDecimal, TypeName$(dArray) = "Decimal()"
On Error Resume Next
dArray(1) = 1.1E+100
If Err Then Debug.Print Err.Number = 6, Err.Description = "Overflow"
' if you make an array of variant
Dim faultArray
ReDim faultArray(10)
faultArray(0) = CDec("123")
Debug.Print faultArray(0), VarType(faultArray(0)) = vbDecimal, TypeName$(faultArray) = "Variant()"
faultArray(1) = 1.1E+100
Debug.Print faultArray(1), VarType(faultArray(1)) = vbDouble ' no overflow
End Sub