Visual Basic將字符串轉換爲貨幣格式

Question

我有一個函數可以計算totalPrice並將其返回到totalPriceOutputLabel中。我的問題是，我需要將輸出格式化爲例如「1,222」。我知道如何將它轉換爲使用

ToString("C2") 

但我不確定如何將它附加到我的函數調用中。有任何想法嗎？

Public Class tileLimitedForm 

Private enteredLength, enteredWidth As Double 
Private enteredPrice As Decimal 

Public Function area(ByRef enteredLength As Double, ByRef enteredWidth As Double) 
    area = Val(enteredLength) * Val(enteredWidth) 
End Function 

Public Function totalPrice(ByRef enteredLength As Double, ByRef enteredWidth As Double) 
    totalPrice = Val(area(enteredLength, enteredWidth)) * Val(enteredPrice) 
End Function 

Private Sub calculateButton_Click(sender As Object, e As EventArgs) Handles calculateButton.Click 

totalPriceOutputLabel.Text = totalPrice(area(enteredLength, enteredWidth),enteredPrice).ToString("C2") 

End Sub 

Answer 1

就像這樣：

totalPriceOutputLabel.Text = _ 
    totalPrice(area(enteredLength, enteredWidth), enteredPrice).ToString("C2") 

它設totalPrice是支持.ToString()擴展與格式參數一個Double或其他數字類型。

Public Class tileLimitedForm 

     Private enteredLength, enteredWidth As Double 
     Private enteredPrice As Decimal 

     Public Function area(ByVal enteredLength As Double, ByVal enteredWidth As Double) As Double 
      area = enteredLength * enteredWidth 
     End Function 

     Public Function totalPrice(ByVal enteredLength As Double, ByvalenteredWidth As Double) As Double 
      totalPrice = area(enteredLength, enteredWidth) * enteredPrice 
     End Function 

     Private Sub calculateButton_Click(sender As Object, e As EventArgs) Handles calculateButton.Click 
      totalPriceOutputLabel.Text = totalPrice(area(enteredLength, enteredWidth), enteredPrice).ToString("C2") 
     End Sub 
    End Class 

注：

• 你應該在這種情況下
• 你的功能在你的函數中使用ByVal代替ByRef

  編輯

  看到編輯的問題後，目前返回Object因爲您沒有設置返回函數的類型（您有Option Strict off）=>我已經添加了As Double。

• 不需要使用Val，因爲參數已經是數字類型。