: for example i have 99 cents and i need to calculate how many qtrs, nikels , dimes, pennies : Jakob Mall :
If would know how many cents mean qtr, nikel, dime, penny... I suppose (but I don't know) qtrs = 25 cents nikels = 5 cents dimes = 2 cents penny = 1 cent [code] x = InputBox("Insert cents:") a =x 25 x =x mod 25 MsgBox a & " qtrs" a =x 5 x =x mod 5 MsgBox a & " nikels" a =x 2 x =x mod 2 MsgBox a & " dimes" MsgBox x & " cents" [/code] If you want ur program more handsome, use MsgBox like this: If a<>0 Then MsgBox a & " qtr" & IIf(a>1, "s", vbnullstring)
Comments
: Jakob Mall
:
If would know how many cents mean qtr, nikel, dime, penny...
I suppose (but I don't know)
qtrs = 25 cents
nikels = 5 cents
dimes = 2 cents
penny = 1 cent
[code]
x = InputBox("Insert cents:")
a =x 25
x =x mod 25
MsgBox a & " qtrs"
a =x 5
x =x mod 5
MsgBox a & " nikels"
a =x 2
x =x mod 2
MsgBox a & " dimes"
MsgBox x & " cents"
[/code]
If you want ur program more handsome, use MsgBox like this:
If a<>0 Then MsgBox a & " qtr" & IIf(a>1, "s", vbnullstring)
[blue][b][italic][size=4]P[/size]avlin [size=4]II[/italic][/size][/b][/blue]
[purple]Don't take life too seriously anyway you won't escape alive from it![/purple]