Avatar billede devnet Nybegynder
03. januar 2003 - 21:55 Der er 22 kommentarer

Dato = 03.01.02?

Hej

Hvordan laver jeg den her her kode om så den viser sådan her: Dag.Md.År. altså 03.01.02

<%= FormatDateTime(Now(), vbShortDate) %>
Avatar billede jacand Nybegynder
03. januar 2003 - 22:02 #1
Jeg bruger Session.LCID = 1030 i toppen af mine koder.
Avatar billede hossein Nybegynder
03. januar 2003 - 22:02 #2
prøv den måde:
<%minNow = day(now())& "-" &month(now())& "-" & year(now())
Response.Write minNow%>
Avatar billede devnet Nybegynder
03. januar 2003 - 22:07 #3
denne her kode
<%minNow = day(now())& "-" &month(now())& "-" & year(now())
Response.Write minNow%> = 3.1.2003

men den skal vise det sådan her = 03.01.03
Avatar billede devnet Nybegynder
03. januar 2003 - 22:15 #4
hmm
nogen der kan hjælpe... :)
Avatar billede jacand Nybegynder
03. januar 2003 - 22:28 #5
<%
Session.LCID = 1030
Response.Write date()
%>
Avatar billede hossein Nybegynder
03. januar 2003 - 22:55 #6
Her er den:
<%minNow = day(date())& "-" &month(date())& "-" & year(date())
If IsDate(minNow) = True Then
      DIM dteDay, dteMonth, dteYear
      dteDay = Day(minNow)
      dteMonth = Month(minNow)
      dteYear  = Year(minNow)
      dinDate = Right(Cstr(dteDay + 100),2) & _
        "-" & Right(Cstr(dteMonth + 100),2) & _
        "-" & dteYear
    response.write dinDate       
  Else
      dinDate = Null
  End If
%>
Avatar billede killer_r Nybegynder
04. januar 2003 - 16:30 #7
Retter lige lidt på hossein:
<%
minNow = day(date())& "-" &month(date())& "-" & year(date())
If IsDate(minNow) = True Then
      DIM dteDay, dteMonth, dteYear
      dteDay = Day(minNow)
      dteMonth = Month(minNow)
      dteYear  = Year(minNow)
      dinDate = Right(Cstr(dteDay + 100),2) & _
        "-" & Right(Cstr(dteMonth + 100),2) & _
        "-" & Right(dteYear,2)
    response.write dinDate       
  Else
      dinDate = Null
  End If
%>
Avatar billede aspbuilder Nybegynder
04. januar 2003 - 16:34 #8
<%
strDag = datepart("d",now)
strMdr = datepart("m",now)
strYear = left(datepart("yyyy",now),2)

strDate = "" & strDag & "." & strMdr & "." & strYear & ""
%>
Avatar billede hossein Nybegynder
04. januar 2003 - 22:39 #9
Retter lige lidt på killer_r:
Efter Y2K problemet har man lært at skrive året med 4 cifre indtil år 9999 :)
Avatar billede killer_r Nybegynder
04. januar 2003 - 23:14 #10
Hvad gør vi så der?!!!!!! ;)
Du skal nok nærmere sige det til devnet... :)
Avatar billede hossein Nybegynder
04. januar 2003 - 23:20 #11
Ja, du skal spørge Billy? og til 9999, tja, til den tid den sørg :)
Avatar billede punnishment Nybegynder
04. januar 2003 - 23:25 #12
Function dato(a)
d = Date(a)
if d < 10 then d = "0" & d
m = Month(a)
if m < 10 then m = "0" & m
dato = d & "." & m & "." & year(a)
End Function

response.write dato(now)
Avatar billede punnishment Nybegynder
04. januar 2003 - 23:25 #13
^---- var et svar
Avatar billede punnishment Nybegynder
04. januar 2003 - 23:26 #14
hvis det skal være 03, istedet for 2003:

Function dato(a)
d = Date(a)
if d < 10 then d = "0" & d
m = Month(a)
if m < 10 then m = "0" & m
dato = d & "." & m & "." & Right(year(a), 2)
End Function

response.write dato(now)
Avatar billede eagleeye Praktikant
05. januar 2003 - 14:58 #15
Denne function laver dette output som skrevet i spørgsmålet: Dag.Md.År. altså 03.01.02

Du ligger bare functin ind i bunden af din fil og kalder den hvor dato skal uskrives.:

<%
function dato(datoStr)
  dato = right("0" & day(datoStr),2) & "." & right("0" & month(datoStr),2) & "." & left(year(datoStr),2)
end function
%>

Så udskvier du sådan her:

<%
Response.write dato(now)
%>
Avatar billede devnet Nybegynder
07. januar 2003 - 13:37 #16
>> eagleeye

jeg få et Output såden her: 07.01.20
Avatar billede skwat Praktikant
07. januar 2003 - 13:40 #17
i vb format(now(),"DD.MM.YY") har ingen ide om det virker i ASP
Avatar billede Slettet bruger
07. januar 2003 - 13:47 #18
<%

Response.Write(Format2(Day(Now())) & "." & Format2(Month(Now())) & "." & Right(Year(Now()), 2))

Function Format2(ByVal strText)

    If Len(strText) < 2 Then
   
        strText = "0" & strText
   
    End If
   
    Format2 = strText

End Function

%>
Avatar billede dr-data Nybegynder
07. januar 2003 - 17:05 #19
fra eagleeye:

<%
function dato(datoStr)
  dato = right("0" & day(datoStr),2) & "." & right("0" & month(datoStr),2) & "." & right(year(datoStr),2)
end function
%>

Så udskvier du sådan her:

<%
Response.write dato(now)
%>

håber det hjalp :-) - no pointz needed...
Avatar billede dr-data Nybegynder
07. januar 2003 - 17:06 #20
fra eagleeye = kopi taget fra eagleeye....
Avatar billede eagleeye Praktikant
07. januar 2003 - 17:13 #21
ja som dr-data har rettet det skal være right og ikke left som kipper års-tallet. Prøv det dr-data har vist.
Avatar billede punnishment Nybegynder
11. januar 2003 - 15:56 #22
øhh hvorfor ka du ik bruge denne her??

Function dato(a)
d = Day(a)
if d < 10 then d = "0" & d
m = Month(a)
if m < 10 then m = "0" & m
dato = d & "." & m & "." & Right(year(a), 2)
End Function

response.write dato(now)
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