| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date Control using Spinner
"Stan" wrote: 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Increments less than one in format control box for spinner | Excel Worksheet Functions | |||
| spinner control in chart sheet... please help! | Charts and Charting in Excel | |||
| spinner format control has no control tab | Excel Worksheet Functions | |||
| Spinner Control Properties | Excel Worksheet Functions | |||
| Spinner control to increment percentages | Excel Discussion (Misc queries) | |||
Hybrid Mode
