Desglosar Importe en Euros

[Yeveran]

¡¡Hola!!

¿Alguien sabe como desglosar una cierta cantidad en euros?

Por ejemplo: 6,50 €

Billetes:

1 Billete de 5 €

Monedas:

1 Moneda de 1 euro
1 Moneda de 50 centimos


Saludines

[Insomnia]

Hola

Te pongo como sería el principio (solo con los billetes), al final se resume todo a ir dividiendo entre el número de la moneda y en otra variable guardar el resto.

Código:

    Dim Cincuenta As Integer
    Dim Veinte As Integer
    Dim Diez As Integer
    Dim Cinco As Integer
    Dim resto As Single
    
    Cincuenta = Int(Text1.Text / 50)
    resto = Text1.Text Mod 50
    Veinte = Int(resto / 20)
    resto = resto Mod 20
    Diez = Int(resto / 10)
    resto = resto Mod 10
    Cinco = Int(resto / 5)
    
    MsgBox "Cincuenta: " & Cincuenta & vbCr & "Veinte: " & Veinte & vbCr & "Diez: " & Diez & vbCr & "Cinco: " & Cinco

Seguro que con esto puedes continuar con las monedas.

--Saludos--