Nedbrydning af dato i db

Du kan bruge month, year og day funktionerne. Øjeblik, har en lille funktion...

FormatDateTime(Date[,NamedFormat])

Function MyDate(varDate)
' Returnerer en dato formateret som DD-MM-YYYYY

dim intDay, intMonth, intYear

    If IsDate(varDate) Then
        intDay = Day(varDate)
        intMonth = Month(varDate)
        intYear = Year(varDate)

        If Len(intMonth) = 1 Then intMonth = "0" & intMonth
        If Len(intDay) = 1 Then intDay = "0" & intDay

        MyDate = intDay & "-" & intMonth & "-" & intYear
       
    Else
        MyDate = "Ugyldig dato"
    End If

End Function

vbGeneralDate 0
Display a date and/or time. If there is a date part, display it as a short date. If there is a time part, display it as a long time. If present, both parts are displayed.

vbLongDate 1
Display a date using the long date format specified in your computer's regional settings.

vbShortDate 2
Display a date using the short date format specified in your computer's regional settings.

vbLongTime 3
Display a time using the time format specified in your computer's regional settings.

vbShortTime 4
Display a time using the 24-hour format (hh:mm).

cape >> FormatDateTime er afhængig af indstillingerne på serveren, også selv om man anvender Session.LCID = XXX

det skal lige siges at mine felter med datoer er sat som tekst i db og dette kan ikke ændres.

jeg tror nærmere at det er en tekst der skal nedbrydes eller h

Det burde være ligyldigt om den er lagret som tekst, da ASP internt kun arbejder med Variant datatypen. Funktionen IsDate(minDato) vil fortælle dig, om datoen af af subtypen date som ASP kan forstå. Mit bud er at den sagtens kan forstå din dato.

ja tmceu - det er rigtigt. Men den dato jean ønsker er rimelig standard opsætning....

Men klart....Tmceu løsning er bedre....ingen tvivl

jeg skal ikke bruge datoen rent programmeringsmæssigt.. udelukkende som en brugervenlig gengivelse af dato format... I danmark læser vi jo en dato DD-MM-AAAA..thats it..

ok !

Men derfor virker tmceu´s eks. stadig...

jammen det prøver jeg bare lige så...2 sek

cape >> jeg mener ikke selv min løsning er bedre, men den type funktion er desværre ofte nødvendig, specielt hvis man anvender et webhotel.

Jeg kontrollerer selv de fleste af de servere jeg udvikler til og vil normalt foretrække at styre formatet via serverens regionale indstillinger, suppleret af LCID. Men det er min erfaring, at de fleste herinde har deres sider liggende på et webhotel og derfor ingen reel indflydelse har på serverens indstillinger.

Så det var ikke for at nedgøre dit forslag, men blot for at gøre opmærksom på afhængigheden af serverens indstillinger :-)

Jeg ved det godt tmceu...

Jeg mente bare at dit forslag faktisk var mere venligt ! Min løsning skal man helst have adgang til server....

Min kode:

varDate = ""&RS2("Visning")&""
Function MyDate(varDate)
' Returnerer en dato formateret som DD-MM-YYYYY

dim intDay, intMonth, intYear

    If IsDate(varDate) Then
        intDay = Day(varDate)
        intMonth = Month(varDate)
        intYear = Year(varDate)

        If Len(intMonth) = 1 Then intMonth = "0" & intMonth
        If Len(intDay) = 1 Then intDay = "0" & intDay

        MyDate = intDay & "-" & intMonth & "-" & intYear
       
    Else
        MyDate = "Ugyldig dato"
    End If

End Function%>

Min fejl:

Der opstod en Microsoft VBScript-kørselsfejl error '800a01c2'

Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: 'MyDate'

varDate = ""&RS2("Visning")&""
=
varDate = RS2("Visning")

har jeg også prøvet :-)

Hvor kalder du funktionen ???

Lige inden jeg påbegynder et gennemløb af dbéns indhold af datoer..

Skal jeg gøre det som en include eller hvad??

Det behøver ikke, men kan godt ligge i en include.

Du kalder den eks. inde fra dit loop:

Response.Write MyDate(RS2("Visning"))

2 sek..

det virker skisme...

Muchas gracias