---

Hej...

Jeg er ved at lave RSS, men hvordan får jeg en dato lavet om til
RSS-formatet RFC-822?

--
Thrane

---

Thrane wrote:
> Hej...
>
> Jeg er ved at lave RSS, men hvordan får jeg en dato lavet om til
> RSS-formatet RFC-822?
>
> --
> Thrane
>
>

Følgende:

<%
Function return_RFC822_Date(myDate, offset)
Dim myDay, myDays, myMonth, myYear
Dim myHours, myMonths, mySeconds

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
%>

Kald med:
<%=return_RFC822_Date("19/03/2003", "GMT")%>
<%=return_RFC822_Date(Now(), "GMT")%>

Giver det fiktive output:
Wed, 19 Mar 2003 00:00:00 GMT
Wed, 1 Dec 2004 19:21:03 GMT

---

On Sun, 16 Sep 2007 13:22:20 +0200, Jesper Staun Hansen
<jeshan@es.aau.dk> wrote:

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

Da du kun bruger 2 cifre, kan den forenkles til:
Function zeroPad(m)
zeroPad = Right("0" & m, 2)
End Function

--
Jørn Andersen,
Brønshøj

---

"Jørn Andersen" <jorn@jorna.dk> wrote in message
news:29eqe35eq790u79kblucotm20872f7htc1@4ax.com...
> On Sun, 16 Sep 2007 13:22:20 +0200, Jesper Staun Hansen
> <jeshan@es.aau.dk> wrote:
>
>>Function zeroPad(m, t)
>> zeroPad = String(t-Len(m),"0")&m
>>End Function
>
> Da du kun bruger 2 cifre, kan den forenkles til:
> Function zeroPad(m)
> zeroPad = Right("0" & m, 2)
> End Function
>
> --
> Jørn Andersen,
> Brønshøj

Takker!

---

"Jesper Staun Hansen" <jeshan@es.aau.dk> wrote in message
news:46ed11ec$0$90268$14726298@news.sunsite.dk...

> SNIP "løsning"

Tusind tak!!!

--
Thrane