datumfunktion

[Rolf]

Hej,

Utan att veta vad jag sysslar med så har jag gjort en datumfunktion som jag inte får ordning på.

<SCRIPT LANGUAGE=VBScript>

function FormateraDatum(Datum)

ar = DatePart("yyyy", Datum, 2, 0)

manad = DatePart("m", Datum, 2, 0)

if manad <= 9 then

manad = "0" & manad

end if

dag = DatePart("d", Datum, 2, 0)

if dag <= 9 then

dag = "0" & dag

end if

Datum = ar & "-" & manad & "-" & dag

End Function

</SCRIPT>

 

Sen så kallar jag på funktionen med

<%= FormateraDatum(rsArticle("Date")) %>

 

Det är väl där det är något fel va? Jag får

Type mismatch: 'FormateraDatum'

[Christopher Bergren]

Det är inget fel med koden (förutom att det måste stå FormateraDatum=Datum sist i funktionen för att ngt skall returneras.

Att du får Type Mismatch beror på att du skickar in fel typ av data i funktionen. Det måste vara en variabel av Date-format. Pröva med

<%= FormateraDatum(CDate(rsArticle("Date"))) %>

istället.

/Christopher

 

[Magnus Gladh]

Här är en lite smidigare:

 

//eforum.idg.se/viewmsg.asp?EntriesId=364115#364120

 

- Magnus

-----------------------------------------------------

ju mer jag lär mig ju mer inser jag så lite jag kan

 

[Rolf]

Det funkade ju finfint. Det var ett ) för mycket bara. Här är den rätta om nån vill använda.

function FormateraDatum(dDate)

dim mYear

dim mMonth

dim mDay

 

mYear = Right(Year(dDate),2)

mMonth = Right("0" & Month(dDate),2)

mDay = Right("0" & Day(dDate),2)

 

FormateraDatum = mYear & "-" & mMonth & "-" & mDay

end function

 

Tack för hjälpen!