View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Sue Sue is offline
external usenet poster
 
Posts: 285
Default Date Format Thingymabob

Hi All

This is driving me crazy -- I have used Bob Phillips Date SpinButton Sub
which I copied off this forum see code below.

Private Sub SB3_Spinup()

SD = Date

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

End If

End Sub

Now Bob always gets it right for us UK residents but I need help with this
one.

Enter the date 04/07/07 in the TextBox -- in the Cell on the Sheet it
displays 07/04/07 USA style
Enter the date 13/07/07 in the TextBox -- in the Cell on the Sheet it
displays 13/07/07 UK style which is what I need being resident in the UK. As
soon as the date passes the 12th day of every month it displays UK style in
the Cell. Have tried formatting the Cell as Date and as Text and always get
the same result -- have tried changing the TextBox from Value to Text still
the same problem occurs. Any help much appreciated -- using Excel 2007 and XP
Pro.

--
Many Thanks

Sue