convertir numeros en letras
'** **'
'** CONVERTIR DE NUMEROS A LETRAS**'
'** **'
'** licencia: USO LIBRE **'
'****'
'** **'
'** **''**********************************************************************
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 String
Dim NumeroCifras As ByteDim NumeroTercios As Byte
Dim strNumero As String
Dim strTMP As String
Dim dblNumeroEntero As Double
Dim intNumeroTmp As Integer
Dim intCentavos As Integer
Dim J As Integer
Dim intNumTmp AsInteger
strUnidades(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) = "": strCifras(2) = " mil ": strCifras(3) = "millones ": strCifras(4) = " mil ": strCifras(0) = " mill�n "
intCentavos = Int((Round(numero, 2) * 100) - (Int(numero) * 100))
dblNumeroEntero = Round(numero, 2) - (intCentavos / 100)
strNumero =CStr(Abs(dblNumeroEntero))
NumeroCifras = Len(strNumero)
NumeroTercios = Abs(Int(-NumeroCifras / 3))
Select Case dblNumeroEntero
Case 0
strTMP = "cero"
Case 1
If fmtoUnidad 5 Then...
Regístrate para leer el documento completo.