VB.NET函数返回Decimal数组报错：System.Array无法转为Decimal

错误原因解析 #

你碰到的Value of type System.Array cannot be converted to Decimal错误，核心是类型不匹配：

• 你的函数返回的是Decimal()类型的强类型数组（它是System.Array的子类），但调用该函数时，你可能试图把返回的数组直接赋值给单个Decimal类型变量，或者没有将返回的Array转换为Decimal()就直接使用，导致类型转换失败。
• 虽然函数定义返回Array是合法的，但VB.NET的类型系统会严格检查赋值时的类型匹配，不能直接把数组类型赋值给单个数值类型。

关于数组混合存储整数与Decimal的问题 #

可以实现，但分两种情况：

• 推荐方式：将整数显式转换为Decimal后，存入Decimal()数组。因为Integer可以隐式转换为Decimal，这样数组内所有元素都是统一的Decimal类型，既保证类型安全，又能满足你的需求。
• 不推荐方式：使用Object()数组存储原始Integer和Decimal，但这样会丢失类型安全，后续使用时需要频繁类型转换，容易引发错误。

是否必须用公共类实现？ #

不是必须，但非常推荐用公共类封装返回值，尤其是当这两个数值有明确的业务含义时（比如一个是转换后的整数、一个是最大余额），类封装能让代码语义更清晰、可读性和可维护性更强。

代码示例 #

修复原数组方案（强类型Decimal数组） #

' 定义返回强类型Decimal数组的函数（比返回Array更清晰）
Function CalcMaxBal() As Decimal()
    Dim sourceInt As Integer = 100
    Dim targetDec As Decimal = 256.78D
    ' 将整数转为Decimal后存入数组
    Return New Decimal() {Convert.ToDecimal(sourceInt), targetDec}
End Function

' 正确调用方式
Dim resultArray As Decimal() = CalcMaxBal()
Dim convertedIntVal As Decimal = resultArray(0)
Dim maxBalanceVal As Decimal = resultArray(1)

如果坚持返回Array类型 #

Function CalcMaxBal() As Array
    Dim sourceInt As Integer = 100
    Dim targetDec As Decimal = 256.78D
    Return New Decimal() {Convert.ToDecimal(sourceInt), targetDec}
End Function

' 调用时必须显式转换为Decimal数组
Dim resultArray As Decimal() = DirectCast(CalcMaxBal(), Decimal())

公共类封装方案（推荐） #

' 定义封装返回值的公共类
Public Class BalanceCalculationResult
    Public Property ConvertedInteger As Decimal
    Public Property MaximumBalance As Decimal
End Class

' 返回类实例的函数
Function CalcMaxBal() As BalanceCalculationResult
    Dim sourceInt As Integer = 100
    Dim targetDec As Decimal = 256.78D
    Return New BalanceCalculationResult With {
        .ConvertedInteger = Convert.ToDecimal(sourceInt),
        .MaximumBalance = targetDec
    }
End Function

' 调用方式（语义更清晰）
Dim result As BalanceCalculationResult = CalcMaxBal()
' 直接通过属性访问对应值
Console.WriteLine(result.ConvertedInteger)
Console.WriteLine(result.MaximumBalance)

内容的提问来源于stack exchange，提问作者Scot