formatcurrency
format a text field into a $ currency field.
AI
Podsumowanie 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.
Kod źródłowy
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
Oryginalne komentarze (3)
Odzyskane z Wayback Machine