Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
I still have trouble with Date Formats. Why is it so ?
An earlier post of mine i received some advice about changing the format of my PC(control
panel-Language-AUSTRALIA dddd dd mmmm yyyy = date long), But now when i ma trying to use a Calendar popup(userform) to enter a date into a textbox, i keep getting the date in ODD manners. If the DAY selected is 12(only 12 months per year) i get the Correct date Format (eg. Thursday 22 February 2007), yet if i select a DAY <=12, then i get (eg. for 1 Feb 2007 Friday INSTEAD i get[ Tuesday 2 January 2007]). Which means the DAY and MONTH are being switched around. How can i prevent this? 'This is the code to show the calendar Private Sub TextBox25_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If UserForm3.TextBox25.Value = "" Then Call OpenCalendar UserForm3.TextBox25.Value = Format(TextBox25.Value, "dddd dd mmmm yyyy") End If End Sub 'This is the code to input the date into the textbox Option Explicit ' ================================================== = ' Code by Martin Green eMail ' Visit my Office Tips web site at www.fontstuff.com ' ================================================== = Private Sub cmdClose_Click() ' Close the UserForm Unload Me End Sub Private Sub UserForm_Initialize() ' Check if active cell contains a date. If 'yes' show ' same date on calendar. If 'no' show today's date. Calendar1.Value = DateValue(Now()) Calendar1.Value = Date End Sub Private Sub Calendar1_Click() ' Transfer date selected on calendar to active cell ' and close UserForm. UserForm3.TextBox25.Value = Calendar1.Value Unload Me End Sub Am i doing somehting wrong ? Corey.... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Date / month trouble | Excel Discussion (Misc queries) | |||
Trouble Entering Old Date Formats | New Users to Excel | |||
Date trouble | Excel Worksheet Functions | |||
Date trouble | Excel Worksheet Functions | |||
trouble with date | Excel Worksheet Functions |