Hej igen nu är det dags för fler galna frågor.

Om jag har koden

Private Sub Timer1_Timer()
txtTid1.Text = txtTid1.Text + 0.01
txt3.Text = txt2.Text * txtTid1.Text
End Sub

Hur får jag den att sluta räkna när jag har ett svar i txt3 som innehåller mindre än 4 decimaler

txt2 = 3.1415926536

Hej
Konstigt problem men iallafall.

Private Sub Timer1_Timer()
txtTid1.Text = Val(txtTid1.Text) + 0.01
txt3.Text = Val(txt2.Text) * Val(txtTid1.Text)
If Val(txt3.Text) > 0.999 Then Timer1.Enabled = False
End Sub

'/Sven

Tack för det
/peter

Men det var inte riktigt så jag menade i det där fallet räknar han tills summan kommer upp till 1,005309649152 sen stannar den vad jag var ute efter är att när den väl hittar ett tal där antalet siffror till höger om , är färre än 4 st.
Förr eller senare så inträffar det.
/Peter

Hej
Du har väl inte så mycket studieskulder på mattelinjen ?

Edit : Noll(0) är också en siffra.

/Sven