Dato format

dim dagArray(7)

dagArray(0) = "Mandag"
dagArray(1) = "Tirsdag"
' og så videre...

dim maanedArray(12)
maanedArray(0) = "Januar"
maanedArray(1) = "Februar"
'pg så videre...

datotext = dagArray(day()-1)&", d. "&date()&". "&maanedArray(month()-1)&" "&year()

var det det?

Ja det var sådan noget men gider du hjælpe mig med at få det ind i en funktion jså jeg kan skrive f.

datoformat=now()
og så skriver den selv alt det der er du med ??

skrive f. = skrive f.eks.

function datoformat(mindato)
dim dagArray(7)

dagArray(0) = "Mandag"
dagArray(1) = "Tirsdag"
' og så videre...

dim maanedArray(12)
maanedArray(0) = "Januar"
maanedArray(1) = "Februar"
'pg så videre...

datoformat = dagArray(day(mindato)-1)&", d. "&date(mindato)&". "&maanedArray(month(mindato)-1)&" "&year(mindato)
end function


response.write datoformat

det sidste var ikke helt koorekt:


function datoformat(mindato)
dim dagArray(7)

dagArray(0) = "Mandag"
dagArray(1) = "Tirsdag"
' og så videre...

dim maanedArray(12)
maanedArray(0) = "Januar"
maanedArray(1) = "Februar"
'pg så videre...

datoformat = dagArray(day(mindato)-1)&", d. "&date(mindato)&". "&maanedArray(month(mindato)-1)&" "&year(mindato)
end function


response.write datoformat(now())

den ser nu sådan her ud men får flg fejl:

  function datoformat(mindato)
    dim dagArray(7)
      dagArray(0) = "Mandag"
      dagArray(1) = "Tirsdag"
      dagArray(2) = "Onsdag"
      dagArray(3) = "Torsdag"
      dagArray(4) = "Fredag"
      dagArray(5) = "Lørdag"
      dagArray(6) = "Søndag"
    dim maanedArray(12)
      maanedArray(0) = "Januar"
      maanedArray(1) = "Februar"
      maanedArray(2) = "Marts"
      maanedArray(3) = "April"
      maanedArray(4) = "Maj"
      maanedArray(5) = "Juni"
      maanedArray(6) = "Juli"
      maanedArray(7) = "August"
      maanedArray(8) = "Semptember"
      maanedArray(9) = "Oktober"
      maanedArray(10) = "November"
      maanedArray(11) = "December"
    datoformat = dagArray(day(mindato)-1)&", d. "&date(mindato)&". "&maanedArray(month(mindato)-1)&" "&year(mindato)
  end function

Der opstod en Microsoft VBScript-kørselsfejl (0x800A01C2)
Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: 'date'
/include_functions.asp, line 38

linie 38 er denne
datoformat = dagArray(day(mindato)-1)&", d. "&date(mindato)&". "&maanedArray(month(mindato)-1)&" "&year(mindato)
  end function

Jeg har denne:


arrMonth = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
dato = now()
datoStreng = arrDay(WeekDay(dato)-1) & " d. " & day(dato) & ". " & arrMonth(month(dato)-1) & " " & Year(dato)
Response.Write "datoStreng = " & datoStreng

Tak