29. august 2002 - 03:13
Der er
6 kommentarer og 1 løsning
Dato
Hejsa Jeg har et felt i min database hvor der står : 24-08-2002 00:09:13 Når jeg udskriver feltet vil jeg gerne have det såen her : Thursday, August 08, 2002 Hvordan får jeg den til at skrive Torsdag og August ? Jens K
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
29. august 2002 - 04:58
#1
<% 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
29. august 2002 - 05:04
#2
sådan her skulle den være: <% Dato = "010102" 'Dato i DDMMÅÅ 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,1,2) & "-" & Mid(Dato,3,2) & "-" & Mid(Dato,5,2) datoDag = Mid(Dato,1,2) if InStr(1,datoDag,"0") = 1 then datoDag = Mid(Dato,2,1) end if datoStreng = arrDay(WeekDay(datoStr)-1) & " d. " & datoDag & ". " & arrMonth(CInt(Mid(Dato,3,2))-1) Response.Write "Dato skrevet ud: " & datoStreng %>
29. august 2002 - 05:11
#3
nu skulle den passe til din kode ;) <% datoStr = "01-01-2002" 'Dato i DD-MM-ÅÅ 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") datoDag = Mid(Datostr,1,2) if InStr(1,datoDag,"0") = 1 then datoDag = Mid(DatoStr,2,1) end if datoStreng = arrDay(WeekDay(datoStr)-1) & ", " & arrMonth(CInt(Mid(datoStr,4,2))-1) & " d. " & datoDag & " " & Mid(datoStr,7,4) Response.Write "Dato skrevet ud: " & datoStreng %>
29. august 2002 - 07:20
#4
hvad med : formatdatetime(DINDATO,1) hvis du kører på en US server vil du få datoen som du ønsker skulle jeg mene
02. september 2002 - 11:39
#5
Davidfossil dit virker sådan set ok, bortset fra den ikke skrive ugedag med.. Derfor får Easysoft pointene da hans virker perfekt ind i mit :) Jens K
02. september 2002 - 15:33
#6
fair nok :) ellers kan du jo også bare skrive: <%= weekdayname(weekday(DINDATO)) & ", " & formatdatetime(DINDATO,1) %> så sparer du lige en masse kode ;)
03. september 2002 - 14:15
#7
Takker for point :)
Kurser inden for grundlæggende programmering