Dagnavn

Kører du på din egen server eller et webhotel ? Hvilket datoformat der vises, afhænger af serverens regionale indstillinger. Hvis du kører på et webhotel, kan du ikke ændre disse og så skal der laves en lille funktion. Sig til...

På webhotel :)

Prøv med denne:

dato = Date()
aar = Right(dato,4)
maaned = Left(Right(dato,7),2)
Response.Write aar & "<BR>" & maaned

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

//>Rune

Hov undskyld :-) Det var jo kun om mdr :-) sorry! 2 sek. så laver jeg det lige færdig ;o)

//>Rune

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")

datoStreng = arrDay(WeekDay(now)-1) & " den " & day(now) & ". " & arrMonth(CInt(month(now()))-1) & " " & Year(now)

Response.Write datoStreng

Function MyDate(varDate)

If IsDate(varDate) Then
  intWeekDay = Weekday(varDate, 2)
  intMonth = Month(varDate)
  strDay = Day(varDate)

  Select Case intWeekDay
  Case 1
    strMyDay = "Søndag"
  Case 2
    strMyDay = "Mandag"
  Case 3
  o.s.v.
  End Select

  Select Case intMonth
  Case 1
    strMyMonth = "Januar"
  Case 2
    strMyMonth = "Februar"
  Case 3
  o.s.v.
  End Select

  If Len(strDay) = 1 Then
  strDay = "0" & strDay
  End If

  MyDate = strMyDay & " den " & strDay & ". " & strMyMonth & " " & Year(varDate)

Else
  MyDate = "Ugyldig dato"
End If

End Function

Det kan gøres lidt lettere hvis du vil kan du prøve..

datoString = WeekDayName(WeekDay(now) & " den " & Day(now) & ". " & MonthName(Month(now)) & " " & Year(now))

Response.Write datoStreng

Hvis serveren er sat til DK så skriver den det rigtigt ud.

Jeg skal lige have det helt skåret ud i pap :D Mit datoudtræk hedder RS("startdato") hvordan ser koden så ud?

dato = Date()
aar = Right(dato,4)
maaned = Left(Right(dato,7),2)

arrMdr = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
arrDag = Array("Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")

Response.Write(arrDag(Weekday(Date)-2) & " " & Day(Date()) & ". " & arrMdr(Month(Date())) & " " & Year(Date()))

her har du den :-)
//>Rune

Du skifter bare Now ud med dato:


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 = RS("startdato")
datoStreng = arrDay(WeekDay(dato)-1) & " den " & day(dato) & ". " & arrMonth(CInt(month(dato))-1) & " " & Year(dato)

Teknisk set var eagleeye først med det svar jeg ønskede, så han får point.. men tak for hjælpen til alle der har brugt tid

Det var så lidt :-)

Anytime :-)

//>Rune