Email us

Please fill out this simple form to send an email to me - this is to protect my email address from spam. I will reply using normal email. Thanks...Anne

Proprietors: Mr & Mrs B. Turner
Address: White House World • Popes Hill • Newnham on Severn
Gloucestershire • GL14 1LE
Tel: +44 (0) 1452 760463

<% Function LongFormatDate(vDate) Dim vDay Dim vDayOfMonth Dim vMonth Dim vYear vDay = DatePart("w", vDate, vbMonday) Select Case vDay 'Works out which day of the week. (First day of the week set to monday) Case 1: vDay = "Mon" Case 2: vDay = "Tues" Case 3: vDay = "Wed" Case 4: vDay = "Thur" Case 5: vDay = "Fri" Case 6: vDay = "Sat" Case 7: vDay = "Sun" End Select vDayOfMonth = Day(vDate) Select Case vDayOfMonth 'Works out the PostFix for any day of the month Case 1, 21, 31: vPostfix = "st" '1st, 21st, 31st Case 2, 22: vPostfix = "nd" '2nd, 22nd Case 3, 23: vPostfix = "rd" '3rd, 23rd Case Else: vPostfix = "th" 'all other dates end with "th" 4th, 5th etc. End Select vMonth = DatePart("m", vDate) Select Case vMonth 'Works out which month of the year it is. Case 1: vMonth = "January" Case 2: vMonth = "February" Case 3: vMonth = "March" Case 4: vMonth = "April" Case 5: vMonth = "May" Case 6: vMonth = "June" Case 7: vMonth = "July" Case 8: vMonth = "August" Case 9: vMonth = "September" Case 10: vMonth = "October" Case 11: vMonth = "November" Case 12: vMonth = "December" End Select vYear = DatePart("yyyy", vDate) LongFormatDate = vDay & " " & vDayOfMonth & vPostfix & " " & vMonth End Function %>