Red de conocimiento informático - Problemas con los teléfonos móviles - VFP Cómo ingresar un número como 12345678901 en el cuadro de texto y formatearlo en 123, 456, 789.01

VFP Cómo ingresar un número como 12345678901 en el cuadro de texto y formatearlo en 123, 456, 789.01

evento de pulsación de tecla de texto:

*LPARAMETERS nKeyCode, nShiftAltCtrl

*----------Los anteriores son los parámetros predeterminados, no es necesario escribir

*---------Aunque no tiene sentido, pero parece interesante, todavía lo escribo

lcstr=ALLTRIM(TRANSFORM(this. Valor))

lcstr=STRTRAN(lcstr,',','')

lcstr=STRTRAN(lcstr,'.','')

DO CASE

CASE nKeyCode=13

IF !EMPTY(lcstr)

IF LEN(lcstr)lt;3

lcstr= '0.' PADL( lcstr, 2, '0')

ELSE

lc1=left(lcstr, LEN(lcstr)-2)

n =0

FOR i=1 TO LEN(lc1)

IF MOD(i, 3)=0

n=n 1

lc1=STUFF( lc1,i n,0,',')

ENDIF

ENDFOR

IF RIGHT(lc1, 1)=','

lc1=IZQUIERDA(lc1, LEN(lc1)-1)

ENDIF

lcstr=lc1 '.' >

ENDIF

this.Value=lcstr

ENDCASE

thisform.Refresh