Access - lic

Private Sub TotalMoneda_AfterUpdate()

    ' Obtener el valor del campo de total en moneda

    Dim total As Currency

    total = Me.TotalMoneda.Value

    ' Convertir el total en moneda a texto

    Dim totalTexto As String

    totalTexto = ConvertirTotalATexto(total)

    ' Asignar el texto convertido al campo de total en texto

    Me.TotalTexto.Value = totalTexto

End Sub

Function ConvertirTotalATexto(ByVal total As Currency) As String

    ' Convertir el total en moneda a texto

    ' Utiliza una función personalizada para realizar la conversión

    ' Aquí te muestro un ejemplo de una función básica de conversión:

    ' Separar la parte entera y decimal del total

    Dim parteEntera As String

    Dim parteDecimal As String

    parteEntera = Int(total)

    parteDecimal = Format(total - parteEntera, "0.00")

    ' Convertir la parte entera a texto

    parteEntera = NumeroATexto(parteEntera)

    ' Construir el texto completo con la parte entera y decimal

    Dim totalTexto As String

    totalTexto = parteEntera & " pesos con " & parteDecimal & " centavos"

    ' Devolver el texto convertido

    ConvertirTotalATexto = totalTexto

End Function

Function NumeroATexto(ByVal numero As Currency) As String

    ' Esta función convierte un número en moneda a texto

    ' Puedes personalizar la lógica de conversión según tus necesidades

    ' Aquí te muestro un ejemplo básico de conversión utilizando la función Format:

    NumeroATexto = Format(numero, "Currency")

End Function