- Function DHToRFC822(pDate)
-
- Dim tblDate(5)
- Dim tblENWeekDayName
- Dim tblENMonthName
-
- If Not IsDate(pDate) Then Exit Function
-
- tblENWeekDayName = Array("Mon","Tue","Wed","Thu","Fri","Sat","Sun")
- tblENMonthName = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
-
- tblDate(0) = tblENWeekDayName(WeekDay(pDate, 2) - 1) & ","
- If (Len(Day(pDate)) = 1) Then tblDate(1) = "0" & Day(pDate) Else tblDate(1) = Day(pDate)
- tblDate(2) = tblENMonthName(Month(pDate) - 1)
- tblDate(3) = Year(pDate)
- tblDate(4) = TimeValue(pDate)
- tblDate(5) = "+0200"
-
- DHToRFC822 = Join(tblDate, Space(1))
-
- Erase tblDate
- Erase tblENWeekDayName
- Erase tblENMonthName
-
- End Function
Function DHToRFC822(pDate)
Dim tblDate(5)
Dim tblENWeekDayName
Dim tblENMonthName
If Not IsDate(pDate) Then Exit Function
tblENWeekDayName = Array("Mon","Tue","Wed","Thu","Fri","Sat","Sun")
tblENMonthName = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
tblDate(0) = tblENWeekDayName(WeekDay(pDate, 2) - 1) & ","
If (Len(Day(pDate)) = 1) Then tblDate(1) = "0" & Day(pDate) Else tblDate(1) = Day(pDate)
tblDate(2) = tblENMonthName(Month(pDate) - 1)
tblDate(3) = Year(pDate)
tblDate(4) = TimeValue(pDate)
tblDate(5) = "+0200"
DHToRFC822 = Join(tblDate, Space(1))
Erase tblDate
Erase tblENWeekDayName
Erase tblENMonthName
End Function