Date Control using Spinner

[Stan]

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

 

[Tom Ogilvy]

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

xl2000
--
Regards,
Tom Ogilvy

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?

 

[Stan]

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]

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

 

[Bob Phillips]

Stan,

Are you in the UK? It goes crazy for me as well, it's a date thing I think
where VBA reverts to US style dates whatever the short date style (you see
this as 1st Jul shows as 07/01/2004), which would also explain why it works
for Tom.

This works for me

Private Sub SpinButton2_Spinup()

SD = Date

If TextBox1.Value = "" Then
TextBox1.Value = Format(Date, "dd/mm/yyyy")
Else
If Not TextBox1.Value = "" Then
SD2 = DateAdd("d", 1, CDate(TextBox1.Value))
TextBox1.Value = Format(SD2, "dd/mm/yyyy")
End If

End If

End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

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?

 

[Stan]

Thanks again Tom - that's crackin!

Stan

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

 

[Joe Addington]

Thanks again Tom - that's crackin!

Stan