沙特与美国CultureInfo货币转换异常问题求助

这个坑我踩过好多次了——直接用CDbl()处理带本地化格式的货币字符串真的很容易翻车，尤其是碰到非拉丁系的货币符号时。咱们来拆解问题根源，再给出靠谱的解决办法：

问题根源 #

你切换到ar-SA文化后，文本显示的是阿拉伯格式的货币（5.99 ريال‎），当切回en-US时，你用CDbl(price_2.Text)尝试解析，但CDbl默认会用当前线程的文化（也就是刚切换的en-US）来处理，它识别不了阿拉伯的货币符号，自然就崩溃了。

可行解决方案 #

方案1：跟踪原始数值，避免反复从文本解析 #

最稳妥的做法是把原始价格数值存在变量里，每次切换文化时直接用这个数值重新格式化，而不是每次都从文本里反向解析。这样既避免了解析错误，还能防止用户手动修改文本导致的异常。

' 在类里定义一个变量存储原始价格（用Decimal，避免浮点精度误差）
Private originalPrice As Decimal = 5.99D ' 初始美元价格

' 切换到沙特阿拉伯文化的按钮事件
Private Sub SwitchToArSA_Click(sender As Object, e As EventArgs) Handles SwitchToArSA.Click
    Dim targetCulture As New CultureInfo("ar-SA")
    price_2.Text = originalPrice.ToString("C", targetCulture)
End Sub

' 切换回美国英语文化的按钮事件
Private Sub SwitchToEnUS_Click(sender As Object, e As EventArgs) Handles SwitchToEnUS.Click
    Dim targetCulture As New CultureInfo("en-US")
    price_2.Text = originalPrice.ToString("C", targetCulture)
End Sub

如果允许用户手动修改文本里的价格，那就在切换前先解析一次文本，更新原始数值：

Private Sub SwitchCultureButton_Click(sender As Object, e As EventArgs) Handles SwitchCultureButton.Click
    ' 先尝试解析当前文本，更新原始数值（用当前显示的文化来解析）
    Dim parsedPrice As Decimal
    If Decimal.TryParse(price_2.Text, NumberStyles.Currency, CultureInfo.CurrentCulture, parsedPrice) Then
        originalPrice = parsedPrice
    End If

    ' 切换到目标文化并格式化
    Dim targetCulture As CultureInfo = If(current_culture.Name = "en-US", New CultureInfo("ar-SA"), New CultureInfo("en-US"))
    price_2.Text = originalPrice.ToString("C", targetCulture)
    current_culture = targetCulture
End Sub

方案2：解析时指定正确的文化 #

如果必须从文本反向解析，一定要确保解析时用的是当前文本对应的文化，而不是你要切换到的目标文化。比如当文本显示的是ar-SA格式时，必须用ar-SA文化来解析，再用en-US格式化。

' 跟踪当前文本使用的文化
Private currentDisplayCulture As CultureInfo = New CultureInfo("en-US")

Private Sub SwitchToArSA_Click(sender As Object, e As EventArgs) Handles SwitchToArSA.Click
    Dim parsedPrice As Decimal
    ' 用当前显示的文化解析文本
    If Decimal.TryParse(price_2.Text, NumberStyles.Currency, currentDisplayCulture, parsedPrice) Then
        currentDisplayCulture = New CultureInfo("ar-SA")
        price_2.Text = parsedPrice.ToString("C", currentDisplayCulture)
    End If
End Sub

Private Sub SwitchToEnUS_Click(sender As Object, e As EventArgs) Handles SwitchToEnUS.Click
    Dim parsedPrice As Decimal
    ' 此时当前显示的是ar-SA文化，所以用它来解析
    If Decimal.TryParse(price_2.Text, NumberStyles.Currency, currentDisplayCulture, parsedPrice) Then
        currentDisplayCulture = New CultureInfo("en-US")
        price_2.Text = parsedPrice.ToString("C", currentDisplayCulture)
    End If
End Sub

额外建议：用Decimal存储货币金额 #

一定要用Decimal而不是Double来存储货币！Double是浮点类型，会有精度丢失的问题（比如0.1+0.2不等于0.3），而Decimal是精确的十进制类型，完全适合财务计算场景。

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