EuroCalc

Private Function Euro(EuroFix As Variant, _
Amount As Variant) As Variant
'Su un modulo pubblico utilizzate

'Public Function Euro(EuroFix As Variant, _

' Amount As Variant) As Variant


Euro = Format(Amount / EuroFix, "#0.00")

End Function

Inputs:
Valore dell'euro in accordo alla moneta locale

'esempio:

'Inserire un CommandButton nel form --> Command1

'Private Sub Command1_Click()

'Print Euro(1990.99, 10) (non ricordo il cambio:

' 1 Euro = 1990.99 Lit)

'Print Euro(1990.99, 155) ' 155 totale da calcolare

'Print Euro(1990.99, 1245678)

'End Sub