formatcurrency
format a text field into a $ currency field.
AI
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에서 복구됨