2 date issues

macropod · #2 02-11-2013, 02:50 AM

Hi Gordon,

For the first problem, try something based on:

Code:

Private Sub Calendar1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(Calendar1.Value, "DDDD ") & Ordinal(Calendar1.Day) & Format(Calendar1.Value, " MMMM YYYY")
End Sub
 
Function Ordinal(Val As Integer) As String
Dim strOrd As String
If (Val Mod 100) < 11 Or (Val Mod 100) > 13 Then strOrd = Choose(Val Mod 10, "st", "nd", "rd") & ""
Ordinal = Val & IIf(strOrd = "", "th", strOrd)
End Function

As for the second problem, have you validated the date value that is being obtained from the workbook?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Make table cell active add date count date	MelHerndon	Word VBA	3	01-21-2013 04:23 PM
Meaning of current date vs status date when saving baselines	ketanco	Project	1	02-08-2012 02:20 PM
Issues with synchronization log causing send/receive issues	WinSock64	Outlook	0	01-11-2011 11:29 AM
new appointment date always reverts back to today's date	msills	Outlook	0	08-24-2007 08:57 AM
Imported message date change to today's date	promark	Outlook	1	12-23-2005 07:21 AM