[RESOLVED] Countdown Problem

[Rattled_Cage]

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

[LaVolpe]

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

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

[Code Doc]

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

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?

[Rattled_Cage]

ah many thanks just the stuff : )