---

Hej

Jeg skal spejlvende et datoformat, sådan at:

13-08-2002 bliver til 2002-08-13

jeg har fået et enkelt script jeg ikke få til at virke ordentligt..
ellers er jeg åben for andre scripts..

dateString = FormatDateTime(Now, vbShortDate)

response.write dateString & "<br><br>"

Function reverseDate(dateString)
dateParts = split(dateString,"-")
If UBound(dateParts) = 3 Then
reverseDate = dateParts(2) & dateParts(1) & dateParts(0)
Else
reverseDate = "blob"
End If
response.write reverseDate & "<br><br>"
End Function

-Klavs

---

"Klavs Haugaard" <tant@fjas.dk> escribió en el mensaje
news:3d58c80a$0$33532$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Jeg skal spejlvende et datoformat, sådan at:
>
> 13-08-2002 bliver til 2002-08-13

Function reverseDate(dateString)
reverseDate = year(dateString) & "-" _
& month(dateString)& "-" _
& day(dateString))
End Function

response.write(reverseDate(now()))

---

Tak for det det virker "næsten"

mit problem bliver nu at datoen hedder
2002-6-3
hvilket gør at min sortering stadig er forkert da
2002-6-13 er lavere

nogle foreslag?


"Lars Hoffmann" <lars@intercambiodvd.com> skrev i en meddelelse
news:ajaibf$o00$1@newsreader.mailgate.org...
> "Klavs Haugaard" <tant@fjas.dk> escribió en el mensaje
> news:3d58c80a$0$33532$edfadb0f@dspool01.news.tele.dk...
> > Hej
> >
> > Jeg skal spejlvende et datoformat, sådan at:
> >
> > 13-08-2002 bliver til 2002-08-13
>
> Function reverseDate(dateString)
> reverseDate = year(dateString) & "-" _
> & month(dateString)& "-" _
> & day(dateString))
> End Function
>
> response.write(reverseDate(now()))
>
>

---

"Klavs Haugaard" <tant@fjas.dk> escribió en el mensaje
news:3d58d8b7$0$33545$edfadb0f@dspool01.news.tele.dk...
> Tak for det det virker "næsten"
>
> mit problem bliver nu at datoen hedder
> 2002-6-3

Så prøv dette:

Function reverseDate(dateString)
reverseDate= year(dateString) & "-" _
& left("0" & month(dateString) ,2) & "-" _
& left("0" & day(dateString),2)
End Function

---

hmmm ja...

virker så længe datoen er under 10 for 13-08-2002 bliver til 2002-08-01

"Lars Hoffmann" <lars@intercambiodvd.com> skrev i en meddelelse
news:ajamad$q49$1@newsreader.mailgate.org...
>
> "Klavs Haugaard" <tant@fjas.dk> escribió en el mensaje
> news:3d58d8b7$0$33545$edfadb0f@dspool01.news.tele.dk...
> > Tak for det det virker "næsten"
> >
> > mit problem bliver nu at datoen hedder
> > 2002-6-3
>
> Så prøv dette:
>
> Function reverseDate(dateString)
> reverseDate= year(dateString) & "-" _
> & left("0" & month(dateString) ,2) & "-" _
> & left("0" & day(dateString),2)
> End Function
>
>

---

"Klavs Haugaard":

> virker så længe datoen er under 10 for 13-08-2002 bliver til 2002-08-01

Virker også hvis datoen er over 10, prøv bare

---

hmm... så må det være mig den er gal med...

<%

dateString = FormatDateTime(Now, vbShortDate)
response.write dateString & "<br>"

Function reverseDate(dateString)
reverseDate= year(dateString) & "-" _
& left("0" & month(dateString) ,2) & "-" _
& left("0" & day(dateString),2)
End Function


reverseday = (reverseDate(now()))
response.write reverseday


%>

giver output:

13-08-2002
2002-08-01

er det mig der er gal på den?

"Lars Hoffmann" <lars@intercambiodvd.com> skrev i en meddelelse
news:ajatls$tfk$1@newsreader.mailgate.org...
>
> "Klavs Haugaard":
>
> > virker så længe datoen er under 10 for 13-08-2002 bliver til 2002-08-01
>
> Virker også hvis datoen er over 10, prøv bare
>
>

---

"Klavs Haugaard" <tant@fjas.dk> wrote in message
news:3d58fe05$0$33631$edfadb0f@dspool01.news.tele.dk...
> hmm... så må det være mig den er gal med...
>
> <%
>
> dateString = FormatDateTime(Now, vbShortDate)
> response.write dateString & "<br>"
>
> Function reverseDate(dateString)
> reverseDate= year(dateString) & "-" _
> & left("0" & month(dateString) ,2) & "-" _
> & left("0" & day(dateString),2)
> End Function
>
>
> reverseday = (reverseDate(now()))
> response.write reverseday

Det er ikke dig den er galt med, der er bare en lille fejl i scriptet. De
steder hvor der står left, skal du skrive "right" i stedet. Således bliver
Left("0" & month(dateString), 2) til Right("0" & month(dateString), 2)

Mvh Mark
--
www.improve.dk

---

KANON!!

Det virker jo perfekt nu!

man kan sq nemt se sig blind på strings...

Mange tak for hjælpen!

-Klavs


"Mark S. Rasmussen" <mark@tv.dk> skrev i en meddelelse
news:ajb52f$62d$1@news.cybercity.dk...
>
> "Klavs Haugaard" <tant@fjas.dk> wrote in message
> news:3d58fe05$0$33631$edfadb0f@dspool01.news.tele.dk...
> > hmm... så må det være mig den er gal med...
> >
> > <%
> >
> > dateString = FormatDateTime(Now, vbShortDate)
> > response.write dateString & "<br>"
> >
> > Function reverseDate(dateString)
> > reverseDate= year(dateString) & "-" _
> > & left("0" & month(dateString) ,2) & "-" _
> > & left("0" & day(dateString),2)
> > End Function
> >
> >
> > reverseday = (reverseDate(now()))
> > response.write reverseday
>
> Det er ikke dig den er galt med, der er bare en lille fejl i scriptet. De
> steder hvor der står left, skal du skrive "right" i stedet. Således bliver
> Left("0" & month(dateString), 2) til Right("0" & month(dateString), 2)
>
> Mvh Mark
> --
> www.improve.dk
>
>

---

"Mark S. Rasmussen" <mark@tv.dk> escribió en el mensaje
news:ajb52f$62d$1@news.cybercity.dk...
> De
> steder hvor der står left, skal du skrive "right" i stedet.

Argh, pinligt, beklager fejlen!