formatcurrency
format a text field into a $ currency field.
AI
Resumo por IA: 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.
Código fonte
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
Comentários originais (3)
Recuperado do Wayback Machine