Преобразование строки 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 является Double или другой числовой тип, который поддерживает .ToString() расширение с параметром формата.

EDIT

Осмотрев отредактированный вопрос:

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, так как вы не задаете тип, возвращающий функцию (у вас есть опция Strict off) => Я добавил As Double.
• Не нужно использовать Val, поскольку параметры уже являются числовыми типами.