return RFC822 Date Med Lcid 1053

jeg har

Session.Lcid = 1053

Function return_RFC822_Date(myDate, offset)
   
  'myDate = CDate(myDate)
  myDay = WeekdayName(Weekday(myDate),true)
  myDays = Day(myDate)
  myMonth = MonthName(Month(myDate), true)
  myYear = Year(myDate)
  myHours = zeroPad(Hour(myDate), 2)
  myMinutes = zeroPad(Minute(myDate), 2)
  mySeconds = zeroPad(Second(myDate), 2)
   
  return_RFC822_Date = myDay&", "& _
                      myDays&" "& _
                      myMonth&" "& _
                      myYear&" "& _
                      myHours&":"& _
                      myMinutes&":"& _
                      mySeconds&" "& _
                      offset
End Function

Function zeroPad(m, t)
  zeroPad = String(t-Len(m),"0")&m
End Function


og henter med

AliveDate = return_RFC822_Date(AliveDate, "GMT")


Af en eller anden grund laver den nu pludselig tiden om til

må, 10 apr 2006 05:56:02 GMT 

og det virker jo ikke, men hvorfor gør den nu det ?