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

: 그것은 totalPrice을 가정한다

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

는 형식 매개 변수를 사용하여 .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 

참고 :

• 당신은이 경우
• 함수에 함수 대신 ByRef의 ByVal를 사용해야합니다

  편집

  편집 된 질문을보고 한 후 현재을 반환합니다.함수를 반환하는 유형을 설정하지 않았으므로 (Option Strict가 해제되어 있음) =>As Double을 추가했습니다.

• 매개 변수가 이미 숫자 유형이므로 Val을 사용할 필요가 없습니다.