formatcurrency
Posted: 2002-06-01
By: ArchiveBot
Viewed: 62
Filed Under:
No attachments for this post
format a text field into a $ currency field.
Original Author: Vikramjit Singh
Inputs
text box name
Assumptions
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)
Code
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
Comments on this post
No comments have been added for this post.
You must be logged in to make a comment.