Thanks again Tom - that's crackin!

Stan

"Tom Ogilvy" wrote:

Are you using dd/mm/yyyy format.

this may be why it is working for me and not for you.

Anyway, cdate should work regardless:

Private Sub SpinButton2_Spinup()
Dim SD2 As Date

If TextBox1.Value = "" Then
TextBox1.Value = FormatDateTime(Date, vbShortDate)
Else

SD2 = CDate(TextBox1.Value) + 1
TextBox1.Value = FormatDateTime(SD2, vbShortDate)
End If

End Sub

--
Regards,
Tom Ogilvy


"Stan" wrote in message
...
Cheers Tom,
I find it strange it works for you and not me. How would you write the
code to do this?
I'm definitely baffled now!

s

"Tom Ogilvy" wrote:

although you have a lot of code you don't need, it worked fine for me.

xl2000
--
Regards,
Tom Ogilvy

"Stan" wrote in message
...
Hello All,

Ok, I have a text box with the current date in, and require a spinner
to
increase/decrease the date. I have managed to get it to work, however
once
the date gets passed the end of the month, the date that's displayed in
the
textbox goes crazy!

The code I have used (for the spinup button) is shown below:

Private Sub SpinButton2_Spinup()

SD = Date
SD = FormatDateTime(Date, vbShortDate)

If TextBox1.Value = "" Then
TextBox1.Value = Date
TextBox1 = FormatDateTime(TextBox1.Value, vbShortDate)
Else
If Not TextBox1.Value = "" Then
SD2 = TextBox1.Value
TextBox1.Value = FormatDateTime(SD2, vbShortDate)
SD2 = DateAdd("d", 1, SD2)
TextBox1.Value = SD2
TextBox1.Value = FormatDateTime(TextBox1.Value,
vbShortDate)
End If

End If

End Sub

Does anyone know how to get the spinner to increase/decrease the date
simply day by day, changing as it should throughout the year?

Any help on this would be greatly appreciated.

Thanks in advance,
Stan