從十進制類
Dim consultAmt As Decimal
Dim foodAmt As Decimal
Decimal.TryParse(Session("ConsultingFeeAmount"), consultAmt))
Decimal.TryParse(Session("FoodAndBeverageAmount"), foodAmt))
Dim Res As Decimal = consultAmt + foodAmt
TotalAmount = Environment.NewLine & "Total Amount: " & _
consultAmt.ToString() & " " & foodAmt.ToString()
TotalAmount = "Total Amount " & Res.ToString
的Decimal.TryParse使用TryParse方法analize輸入字符串,並用轉換後的值設定的第二參數,如果有可能將字符串轉換爲十進制。如果不是,該方法不會增加任何異常,而第二個參數更不用說它的默認值。
編輯 的OP表示,變更後最初現在提出它有一個錯誤,指出消息:
從字符串轉換「合計金額:12.50 13.00」鍵入「雙師型」 不有效
問題是當Option Strict爲OFF時,用於連接字符串的+運算符。在這種情況下,VB編譯器會混淆操作符的含義並嘗試對兩個數值進行求和。我真的建議使用Option Strict On和Option Explicit On,因爲這會強制你的代碼更精確(不需要隱式轉換類型)。當然,如果你讓這種變化,你需要你的應用程序 的廣泛複試您可以this question/answer link
什麼類型的總金額? –
Dim TotalAmount As String – user1342164