Avatar billede hansen Nybegynder
02. januar 2004 - 13:09 Der er 6 kommentarer og
1 løsning

Forkert datoformat

Hej, jeg har et problem med datoen, jeg prøver med følgende kode at få et datoformat ala 20040101 / yyyymmdd

men det lykkedes ikke, kan du hjælpe mig ?
---
<%
idag  = year(date) & Right("" & Month(date),4) & Right("0" & day(Date),2)
dato = DateAdd("d",-1,date)
igaar = year(dato) & Right("" & Month(dato),4) & Right("0" & day(Dato),2)

Response.Write "Telegramdato i dag " & idag & " - I går " & dato & " - og en gang til som telegramdato " & igaar & " <br>"
%>
Avatar billede medions Nybegynder
02. januar 2004 - 13:11 #1
Skriv i toppen af dit dokument:

<% Session.LCID = 1030 %>

//>Rune
Avatar billede eagleeye Praktikant
02. januar 2004 - 13:12 #2
Prøv sådan her:

idag  = year(date) & Right("0" & Month(date),2) & Right("0" & day(Date),2)
dato = DateAdd("d",-1,date)
igaar = year(dato) & Right("0" & Month(dato),2) & Right("0" & day(Dato),2)
Avatar billede medions Nybegynder
02. januar 2004 - 13:14 #3
Virker dette ikke?

dtmDate = Date()
dtmDay = Day(dtmDate)
dtmMonth = Month(dtmDate)
dtmYear = Year(dtmDate)

Response.Write(dtmYear & "" & dtmMonth & "" & dtmDay)

//>Rune
Avatar billede christian Nybegynder
02. januar 2004 - 13:14 #4
function dato()
    dato = year(date)
   
    if month(date) < 10 then
        dato = dato & "0" & month(date)
    else
        dato = dato &  month(date)
    end if

    if day(date) < 10 then
        dato = dato & "0" & day(date)
    else
        dato = dato & day(date)
    end if


end function

dagsDato = dato()
response.write dagsDato
Avatar billede hansen Nybegynder
02. januar 2004 - 13:15 #5
Havde prøvet med 1030, men det duede ikke, eagleeye's var bedre, tak.
Kan du fdorklare mig hvad det 0 gør ?
Avatar billede eagleeye Praktikant
02. januar 2004 - 13:17 #6
Ja, det med Right("0" & Month(Dato),2) sikre at der kommer et 0 med ved datoer hvor måned kun har et ciffer eksivs januar. Så 1 -> 01 og hvis der er to cifre i månede eksvis december (12) så er der ,2 delen som gør 0 forsvinder Right("012",2) = 12
Avatar billede medions Nybegynder
02. januar 2004 - 13:18 #7
Sådan her kan du oxo:

Function FillNulls(intWhat)
    If Len(intWhat) = 1 Then
      FillNulls = 0 & intWhat
    Else
      FillNulls = intWhat
    End If
End Function

dtmDate = Date()
dtmDay = Day(Date())
dtmMonth = Month(dtmDate)
dtmYear = Year(dtmDate)

Response.Write(dtmYear & "" & dtmMonth & "" & dtmDay)

//>Rune
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