Norman vicent

Solo disponible en BuenasTareas
  • Páginas : 2 (488 palabras )
  • Descarga(s) : 0
  • Publicado : 31 de agosto de 2012
Leer documento completo
Vista previa del texto
FUNCTION CONVIERTENUMLETRA(NUMERO)
DIM TEXTO
DIM MILLONES
DIM MILES
DIM CIENTOS
DIM DECIMALESDIM CADENA
DIM CADMILLONES
DIM CADMILES
DIM CADCIENTOS
TEXTO = NUMERO
TEXTO = FORMATNUMBER(TEXTO, 2)TEXTO = RIGHT(SPACE(14) & TEXTO, 14)
MILLONES = MID(TEXTO, 1, 3)
MILES = MID(TEXTO, 5, 3)
CIENTOS = MID(TEXTO, 9, 3)DECIMALES = MID(TEXTO, 13, 2)
CADMILLONES = CONVIERTECIFRA(MILLONES, 1)
CADMILES = CONVIERTECIFRA(MILES, 1)
CADCIENTOS = CONVIERTECIFRA(CIENTOS, 0)IF TRIM(CADMILLONES) > "" THEN
IF TRIM(CADMILLONES) = "UN" THEN
CADENA = CADMILLONES & " MILLON"
ELSE
CADENA =CADMILLONES & " MILLONES"
END IF
END IF
IF TRIM(CADMILES) > "" THEN
CADENA = CADENA & " " & CADMILES & " MIL"END IF


IF TRIM(CADMILES & CADCIENTOS) = "UN" THEN
CADENA = CADENA & "UNO PESOS" & DECIMALES & "/100"& " M.N. "
ELSE
IF MILES & CIENTOS = "000000" THEN
CADENA = CADENA & " " & TRIM(CADCIENTOS) & " PESOS " & DECIMALES &"/100" & " M.N. "
ELSE
CADENA = CADENA & " " & TRIM(CADCIENTOS) & " PESOS " & DECIMALES & "/100" & " M.N. "
END IFEND IF
CONVIERTENUMLETRA = TRIM(CADENA)
END FUNCTION

FUNCTION CONVIERTECIFRA(TEXTO, SW)
DIM CENTENA...
tracking img