Cambiar de numero a letra en excel

Solo disponible en BuenasTareas
  • Páginas : 2 (438 palabras )
  • Descarga(s) : 0
  • Publicado : 21 de febrero de 2012
Leer documento completo
Vista previa del texto
FUNCTION CONVIERTENUMLETRA(NUMERO)
DIM TEXTO
DIM MILLONES
DIM MILES
DIM CIENTOS
DIM DECIMALES
DIM 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 IF
END IF
CONVIERTENUMLETRA = TRIM(CADENA)
END FUNCTION

FUNCTION CONVIERTECIFRA(TEXTO, SW)
DIM CENTENA
DIM DECENA
DIM UNIDAD
DIMTXTCENTENA
DIM TXTDECENA
DIM TXTUNIDAD
CENTENA = MID(TEXTO, 1, 1)
DECENA = MID(TEXTO, 2, 1)
UNIDAD = MID(TEXTO, 3, 1)
SELECT CASE CENTENA
CASE "1"
TXTCENTENA = "CIEN"
IF DECENA & UNIDAD "00" THENTXTCENTENA = "CIENTO"
END IF
CASE "2"
TXTCENTENA = "DOSCIENTOS"
CASE "3"
TXTCENTENA = "TRESCIENTOS"
CASE "4"
TXTCENTENA = "CUATROCIENTOS"
CASE "5"
TXTCENTENA = "QUINIENTOS"
CASE "6"TXTCENTENA = "SEISCIENTOS"
CASE "7"
TXTCENTENA = "SETECIENTOS"
CASE "8"
TXTCENTENA = "OCHOCIENTOS"
CASE "9"
TXTCENTENA = "NOVECIENTOS"
END SELECT

SELECT CASE DECENA
CASE "1"
TXTDECENA = "DIEZ"SELECT CASE UNIDAD
CASE "1"
TXTDECENA = "ONCE"
CASE "2"
TXTDECENA = "DOCE"
CASE "3"
TXTDECENA = "TRECE"
CASE "4"
TXTDECENA = "CATORCE"
CASE "5"
TXTDECENA = "QUINCE"
CASE "6"
TXTDECENA =...
tracking img