Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
VB4: Format a numeric textbox to Currency without using convert
- Thread starter Dayman
- Start date
- Thread starter
- #2
SOLUTION FOUND AS FOLLOWS:<br>
<br>
Module:<br>
<br>
' Convert any value into currency format. If the<br>
' value does not make sense, return 0.00.<br>
Public Function cvCur(ByVal Value As Variant) As Currency<br>
On Error Resume Next<br>
cvCur = CCur(Value)<br>
If Err.Number <> 0 Then cvCur = 0<br>
End Function<br>
<br>
In the textbox requiring the Currency put the following code:<br>
<br>
Private Sub txtCurrency_Change()<br>
txtCurrency.Text = Format$(cvCur(txtCurrency.Text), "Currency"
<br>
<br>
End Sub<br>
<br>
I hope this code is of help to somebody. I know I couldn't find it anywhere on the web at all.<br>
<br>
Good Luck
<br>
Module:<br>
<br>
' Convert any value into currency format. If the<br>
' value does not make sense, return 0.00.<br>
Public Function cvCur(ByVal Value As Variant) As Currency<br>
On Error Resume Next<br>
cvCur = CCur(Value)<br>
If Err.Number <> 0 Then cvCur = 0<br>
End Function<br>
<br>
In the textbox requiring the Currency put the following code:<br>
<br>
Private Sub txtCurrency_Change()<br>
txtCurrency.Text = Format$(cvCur(txtCurrency.Text), "Currency"
<br><br>
End Sub<br>
<br>
I hope this code is of help to somebody. I know I couldn't find it anywhere on the web at all.<br>
<br>
Good Luck
- Status
Similar threads
- Locked
- Question
