Just nu i M3-nätverket
Jump to content

datumfunktion


Rolf

Recommended Posts

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'

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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!

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...