[RESOLVED] Countdown Problem

Code:

---

Private Sub Command1_Click()
Text1.Text = Text1.Text - 1
End Sub

Private Sub Form_Load()
Text1.Text = "99999999999999999"
End Sub

'''how do i stop it from counting down to 1E+17 and display numbers instead

---

Try using the FormatNumber function. Change vbFalse to vbTrue to show digit separators.

Text1.Text = FormatNumber(Val(Text1.Text)-1,0,,, vbFalse)

This will get you just under the first million of them:

Code:

---

Private Sub Command1_Click()
Text1.Text = Left$(Text1.Text, 11) & Format$(Val(Mid$(Text1.Text, 12, 6) - 1), "######")
End Sub

Private Sub Form_Load()
Text1.Text = "99999999999999999"
End Sub

---

How many do you need?

ah many thanks just the stuff : )