It's A Program That When A Certain Amount Of Money Is Entered It Tells You How Many Dollars, Quarters, Dimes, Nickels, and Pennys make that Amount. It works however it flips out when I enter money that has *.03, *.05, *.07 The odd ones. Except *.08 messes up too. So For example If I entered 2.08 it should show me 2 dollars 1 nickel and 3 dimes but it doesnt. Here is code tell me if you find problem...Note: Anything after 09.....for instance change that is 10 and higher it works perfectly. Its just when change is 0#. Heres code.
/code
Sub Convert_Button_Click ()
'Required End Program Function By Instructor
If enter_money.Text = "-1.00" Then
End
End If
'Prevents Program From Crashing When It Tries To Calculate Nothing
If enter_money.Text = "" Then
enter_money.Text = "0"
MsgBox "You Have Given Me Nothing To Calculate."
End If
'Place First Total Amount Entered In Display Labels
Dollar_label.Caption = "Dollar Amount Of " & enter_money.Text & " Is:"
Quarter_Label.Caption = "Quarter Amount Of " & enter_money.Text & " Is:"
Dime_Label.Caption = "Dime Amount Of " & enter_money.Text & " Is:"
Nickel_Label.Caption = "Nickel Amount Of " & enter_money.Text & " Is:"
Penny_Label.Caption = "Penny Amount Of " & enter_money.Text & " Is:"
'Takes Away Dollars From Amount Entered And Puts It In Answer_Dollar.caption
answer_dollar.Caption = Int(enter_money.Text)
'This Subtracts The Dollar Amount From The Amount Entered So You Can Get Change Get_Leftover.caption
get_leftover.Caption = enter_money.Text - answer_dollar.Caption
'This Takes The Decimal Away From The Change So It Can Divide Properly
leftover_nodec.Caption = (get_leftover.Caption - Int(get_leftover.Caption)) * 100
'This Divides The Change To Get Quarter Amount And Puts It In Get_LeftOver.Caption
get_leftover.Caption = leftover_nodec.Caption / 25
'Pulls Quarter Amount Away From Decimal And Puts It In Answer_Quarter.caption
answer_Quarter.Caption = Int(get_leftover.Caption)
'Gets Left Over Change And Puts It In Get_LeftOver.caption
get_leftover.Caption = leftover_nodec.Caption - answer_Quarter.Caption * 25
'This Divides The Change To Get Dime Amount And Puts It In LeftOver_Nodec.caption
leftover_nodec.Caption = get_leftover.Caption / 10
'Pulls Dime Amount Away From Decimal And Puts It In Answer_Dime.caption
answer_dime.Caption = Int(leftover_nodec.Caption)
'Gets Left Over Change And Puts It In Get_Leftover.caption
get_leftover.Caption = get_leftover.Caption - answer_dime.Caption * 10
'This Divides The Changed To Get The Nickel Amount And Puts It In leftover_nodec.Caption
leftover_nodec.Caption = get_leftover.Caption / 5
'Pulls Nickel Amount Away From Decimal And Puts It In Answer_Nickel.caption
answer_Nickel.Caption = Int(leftover_nodec.Caption)
'Gets Left Over Change And Puts It In Get_Leftover.caption
get_leftover.Caption = get_leftover.Caption - answer_Nickel.Caption * 5
'Pulls Penny Amount Away From Decimal And Puts It In Answer_Penny
If InStr(1, get_leftover.Caption, ".") Then
answer_penny.Caption = Int(leftover_nodec.Caption)
Else
'If there is no decimal then just copy
answer_penny.Caption = get_leftover.Caption
End If
End Sub
