Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!


nummbers are without decimal point

ruud2000ruud2000 Member Posts: 2
How can I get the real numbers?
After pressing command button I get xxx instead of xxx.xx
Here is the program:

Option Explicit
Dim aantal1 As Integer
Dim aantal2 As Integer
Dim bedrag1 As Integer
Dim bedrag2 As Integer
Dim totaal As Integer
Dim geld1 As Integer
Dim geld2 As Integer
Dim totaalgeld As Integer

Private Sub Command1_Click()
bedrag1 = 10.06
bedrag2 = 200.78
aantal1 = Text1.Text
aantal2 = Text2.Text
geld1 = bedrag1 * aantal1
geld2 = bedrag2 * aantal2
totaalgeld = geld1 + geld2

Label1.Caption = geld1
Label2.Caption = geld2
Label3.Caption = totaalgeld
End Sub

Many thanks


Sign In or Register to comment.