Avatar billede jens_k Nybegynder
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
Avatar billede easysoft_studios Nybegynder
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
Avatar billede easysoft_studios Nybegynder
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

%>
Avatar billede easysoft_studios Nybegynder
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

%>
Avatar billede davidfossil Nybegynder
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
Avatar billede jens_k Nybegynder
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
Avatar billede davidfossil Nybegynder
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 ;)
Avatar billede easysoft_studios Nybegynder
03. september 2002 - 14:15 #7
Takker for point :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester