son dos funciones VB que pase a lotus script
debes ocupar PASELETRAS(número)
Function ALETRAS(x)
'DIVIDE DE A GRUPOS DE TRES DIGITOS Y CORRIGE LAS EXCEPCIONES
Dim PARTE(4)
'Ver para anular los decimales para que no se produzcan errores
x = Fix(x)
For i = 1 To 1 + Len(x) / 3
PARTE(i) = Right(x, 3)
x = Int(x / 1000)
Next
ALETRAS = ""
ALETRAS = Nombre(PARTE(1))
If PARTE(2) = 1 Then
ALETRAS = "MIL " + ALETRAS
End If
If PARTE(2) > 1 Then
If Right(Nombre(PARTE(2)), 3) = "UNO" Then
ALETRAS = Left(Nombre(PARTE(2)), Len(Nombre(PARTE(2))) - 1) + " MIL" + ALETRAS
Else
ALETRAS = Nombre(PARTE(2)) + " MIL " + ALETRAS
End If
End If
If PARTE(3) = 1 Then
ALETRAS = "UN MILLON " + ALETRAS
End If
If PARTE(3) > 1 Then
If Right(Nombre(PARTE(3)), 3) = UNO Then
ALETRAS = Left(Nombre(PARTE(3)), Len(Nombre(PARTE(3)))) + MILLONES + ALETRAS
Else
ALETRAS = Nombre(PARTE(3)) + " MILLONES " + ALETRAS
End If
End If
If PARTE(4) = 1 Then
If PARTE(3) = 0 Then
ALETRAS = "MILLONES" + ALETRAS
End If
ALETRAS = "MIL " + ALETRAS
End If
If PARTE(4) > 1 Then
If PARTE(3) = 0 Then
ALETRAS = "MILLONES" + ALETRAS
End If
If Right(Nombre(PARTE(4)), 3) = "UNO" Then
ALETRAS = Left(Nombre(PARTE(4)), Len(Nombre(PARTE(4)))) + "MIL" + ALETRAS
Else
ALETRAS = Nombre(PARTE(4)) + " MIL " + ALETRAS
End If
End If
End Function
Function PASELETRAS(x)
dec = x
dec3 = Format(dec, "##,##0.00")
DEC2 = Right(dec3, 2)
PASELETRAS = ""
PASELETRAS = ALETRAS(x)+ " PESOS"
End Function
