Function RFC822_Date(dDate, sTimezone)
Daynames = split(",Sun,Mon,Tue,Wed,Thu,Fri,Sat",",")
Monthnames = split(",Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",",")
thisDate = CDate(dDate)
thisDay = Daynames(Weekday(thisDate))
thisDays = Day(thisDate)
thisMonth = Monthnames(Month(thisDate))
thisYear = Year(thisDate)
thisHours = Padding(Hour(thisDate), 2)
thisMinutes = Padding(Minute(thisDate), 2)
thisSeconds = Padding(Second(thisDate), 2)
RFC822_Date = thisDay&", "& _
thisDays&" "& _
thisMonth&" "& _
thisYear&" "& _
thisHours&":"& _
thisMinutes&":"& _
thisSeconds&" "& _
sTimezone
End Function
Function Padding(m, t)
Padding = String(t-Len(m),"0")&m
End Function