---

Har indsat en dato i en database med objRS("Date") = now( )

Jeg vil gerne trække datoen ud så den står på præcist denne måde:

December 2 - 2000

Kan dette gøres uden at bruge If-Else / Case ? Hvis ja.....hvordan?

Mvh Kristian

---

"<<-- __KG__ -->>" wrote:
>
> Har indsat en dato i en database med objRS("Date") = now( )
>
> Jeg vil gerne trække datoen ud så den står på præcist denne måde:
>
> December 2 - 2000
>
> Kan dette gøres uden at bruge If-Else / Case ? Hvis ja.....hvordan?
>
> Mvh Kristian

Response.Write DateToStr(objRS("Date"))

Function DateToStr(ByVal Value)
Dim MonthArray
MonthArray = Array("Januar", "Febuar", "Marts", ...)
If IsDate(Value) Then
DateToStr = MonthArray(Month(Value)-1) & " " & Day(Value) & " - " &
Year(Value)
Else
DateToStr = ""
End If
End Function

Håber ikke et gør alt for meget, at jeg brugte en enkelt If-Else ?

--
Lauritz

---

Lauritz Jensen <lauritz2@hotmail.com> skrev i en
nyhedsmeddelelse:3A291092.50CC49AE@hotmail.com...
> "<<-- __KG__ -->>" wrote:
> >
> > Har indsat en dato i en database med objRS("Date") = now( )
> >
> > Jeg vil gerne trække datoen ud så den står på præcist denne måde:
> >
> > December 2 - 2000
> >
> > Kan dette gøres uden at bruge If-Else / Case ? Hvis ja.....hvordan?
> >
> > Mvh Kristian
>
> Response.Write DateToStr(objRS("Date"))
>
> Function DateToStr(ByVal Value)
> Dim MonthArray
> MonthArray = Array("Januar", "Febuar", "Marts", ...)
> If IsDate(Value) Then
> DateToStr = MonthArray(Month(Value)-1) & " " & Day(Value) & " - " &
> Year(Value)
> Else
> DateToStr = ""
> End If
> End Function
>
> Håber ikke et gør alt for meget, at jeg brugte en enkelt If-Else ?

Men er der ik en nemmere måde ? Med en simpel LCID eller FormatDateTime ???

Mvh Kristian

---

"<<-- __KG__ -->>" wrote:
> Men er der ik en nemmere måde ? Med en simpel LCID eller FormatDateTime ???

Hvis du gerne vil være sikker på at det virker, ligegyldigt hvilket
datoformat serveren er sat til, er der nok ikke ret mange andre.

Hvad er problemet eller det svære ved dette løsning da?

--
Lauritz

---

Lauritz Jensen <lauritz2@hotmail.com> skrev i en
nyhedsmeddelelse:3A2944FE.B5CB1BF2@hotmail.com...
> "<<-- __KG__ -->>" wrote:
> > Men er der ik en nemmere måde ? Med en simpel LCID eller FormatDateTime
???
>
> Hvis du gerne vil være sikker på at det virker, ligegyldigt hvilket
> datoformat serveren er sat til, er der nok ikke ret mange andre.
>
> Hvad er problemet eller det svære ved dette løsning da?

Ik noget særligt.....jeg troede bare man kunne gøre det med FormatDateTime,
eller en anden nem måde.

---

Laurits det er scripts/ functions som det du har har lavet der bla. sløver
et site.

det kan enkelt og nemt gøres sådan her:

<%=day(date)%>&nbsp;<%=MonthName(Month(Now))%>&nbsp;- &nbsp;<%=year(date)%>

Udskift (date) og (now) med dine RS

Ikke alt det andet slam-kode dér


Lauritz Jensen <lauritz2@hotmail.com> skrev i en
nyhedsmeddelelse:3A291092.50CC49AE@hotmail.com...
> "<<-- __KG__ -->>" wrote:
> >
> > Har indsat en dato i en database med objRS("Date") = now( )
> >
> > Jeg vil gerne trække datoen ud så den står på præcist denne måde:
> >
> > December 2 - 2000
> >
> > Kan dette gøres uden at bruge If-Else / Case ? Hvis ja.....hvordan?
> >
> > Mvh Kristian
>
> Response.Write DateToStr(objRS("Date"))
>
> Function DateToStr(ByVal Value)
> Dim MonthArray
> MonthArray = Array("Januar", "Febuar", "Marts", ...)
> If IsDate(Value) Then
> DateToStr = MonthArray(Month(Value)-1) & " " & Day(Value) & " - " &
> Year(Value)
> Else
> DateToStr = ""
> End If
> End Function
>
> Håber ikke et gør alt for meget, at jeg brugte en enkelt If-Else ?
>
> --
> Lauritz