Convertir
-
Upload
rodolfo-bustos-vera -
Category
Documents
-
view
11 -
download
1
Transcript of Convertir
Attribute VB_Name = "Convertir"' INICIO DE LA FUNCION NumTexto 'Se usa igual que una funcion de excel, ejemplo:'=NumTexto(suma(a1:a15))'=NumTexto(Total)Public Function NumTexto(Number As Double) As StringConst MinNum = 1#Const MaxNum = 4294967295.99Dim Numbers, Tenths, Result As StringNumbers = Array("CERO", "UN ", "DOS ", "TRES ", "CUATRO ", "CINCO ", "SEIS ", "SIETE ", "OCHO ", "NUEVE ", "DIEZ ", "ONCE ", "DOCE ", "TRECE ", "CATORCE ", "QUINCE ", "DIECISEIS ", "DIECISIETE ", "DIECIOCHO ", "DIECINUEVE ")Tenths = Array("CERO", "DIEZ ", "VEINTE ", "TREINTA ", "CUARENTA ", "CINCUENTA ", "SESENTA ", "SETENTA ", "OCHENTA ", "NOVENTA ")If Round((Number - Fix(Number)) * 100) < 10 Then centavos = "0" + Mid(Str(Round((Number - Fix(Number)) * 100)), 2, 1)Else centavos = Trim(Str(Round((Number - Fix(Number)) * 100)))End IfIf (Number >= MinNum) And (Number