Lo Q Sea

'**********************************************************************
'** **'
'** CONVERTIR DENUMEROS A LETRAS **'
'** AUTOR: OSCAR JAVIER LEON AVENDAÑO **'
'** licencia: USO LIBRE**'
'** http:www.oscarjleon.com **'
'** FECHA DE CREACION: NOV.1991**'
'** **'
'**********************************************************************Public Function CLetras(ByVal numero As Double, Optional fmtoUnidad As Integer = 0, Optional Unidades As String = "Kilos", Optional Unidad As String ="Kilo", Optional Genero As String = "M") As String
Dim strUnidad(0 To 5) As String
Dim strUnidades(0 To 5) As String
Dim strCifras(0 To 4) As StringDim NumeroCifras As Byte
Dim NumeroTercios As Byte
Dim strNumero As String
Dim strTMP As String
Dim dblNumeroEntero AsDouble
Dim intNumeroTmp As Integer
Dim intCentavos As Integer
Dim J As Integer
Dim intNumTmp As IntegerstrUnidades(0) = " pesos m/cte": strUnidades(1) = " unidades": strUnidades(2) = " dolares": strUnidades(3) = " euros": strUnidades(4) = " " & Unidades: strUnidades(5) = ""strUnidad(0) = " peso m/cte": strUnidad(1) = " unidad": strUnidad(2) = " dolar": strUnidad(3) = " euro": strUnidad(4) = " " & Unidad: strUnidad(5) = ""
strCifras(1) = "":...