formatcurrency
format a text field into a $ currency field.
AI
एआई सारांश: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
सोर्स कोड
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
मूल टिप्पणियाँ (3)
Wayback Machine से पुनर्प्राप्त