• Home
 · 
• String Manipulation
 · 
• formatcurrency

formatcurrency

format a text field into a $ currency field.

Inputs
text box name

Assumes
Call teh module by passing any text box name that you want to have as a currency text box.

Returns
formatted value in $

API Declarations
'put as many text boxes as you want...say text1
'call the class by using the following line
Call validate(Text1)


Rate formatcurrency

• 1
• 2
• 3
• 4
• 5

(38(38 Vote))

Sub validate(textboxname As TextBox)
If KeyAscii > Asc(9) Or KeyAscii < Asc(0) Then
KeyAscii = 0
End If
mypos = InStr(1, textboxname.Text, ".")
If mypos <> 0 Then
textboxname.Text = Format(textboxname.Text, "$###,###,###,###.##")
Else
textboxname.Text = Format(textboxname.Text, "$###,###,###,###")
End If
End Sub