Dag i tekst fra dato

arrDato = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
Response.Write(Day(Date()) & ". " & arrDato(Month(Date())) & " " & Year(Date()))

//>Rune

Så find ud af hvordan du hiver dem ud hvert for sig og skift Date() ud med den dag/mdr/år, eks 1 eller 13 eller 02 eller hvad du nu vil ha' den til..!


arrDato = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
Response.Write(Day(5) & ". " & arrDato(Month(5)) & " " & Year(02))

//>Rune

Her er lidt kode som laver dato som du ønsker det i spørgsmålet:


<%
Dato = "020416" 'Dato i ÅÅMMDD
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")

datoStr = Mid(Dato,5,2) & "-" & Mid(Dato,3,2) & "-" & Mid(Dato,1,2)
datoDag = Mid(Dato,5,2)
if InStr(1,datoDag,"0") = 1 then
  datoDag = Mid(Dato,6,1)
end if
datoStreng = arrDay(WeekDay(datoStr)-1) & " d. " & datoDag & ". " & arrMonth(CInt(Mid(Dato,3,2))-1)

Response.Write "Dato skrevet ud: " & datoStreng

Takker det er perfekt :-)

:) det lyder godt jeg glemte vist lige års-tallet til sidst men du har sikkert selv gennemskuet og fået det med. Ellers kan du sætte denne linie ind:

datoStreng = arrDay(WeekDay(datoStr)-1) & " d. " & datoDag & ". " & arrMonth(CInt(Mid(Dato,3,2))-1) & " " & Year(datoStr)