DK datoformat?

Brug dette:

strDato = Date()
strDay = Day(Date())
strMth = Month(Date())
strYar = Year(Date())

strDato = strMth & "/" & strDay & "/" & strYar

Response.Write(strDato)

//>Rune

Rune, gamle dreng! Jeg prøver lige

:-) ok

//>Rune

Hvis det bliver gemt på denne måde:

RS.AddNew
RS("mailDato") = Now()
RS.Update

- hvad skal det så ændres til?

strDato = Date()
strDay = Day(Date())
strMth = Month(Date())
strYar = Year(Date())

strDato = strMth & "/" & strDay & "/" & strYar

RS.AddNew
RS("mailDato") = strDato
RS.Update

-Det handler kun om at bruge den konveteret variabel...
//>Rune

Der er ingen forskel :o(

Og tidspunktet kommer ikke med...

strDato = Date()
strDay = Day(Date())
strMth = Month(Date())
strYar = Year(Date())

strDato = strDay & "/" & strMth & "/" & strYar & " " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now())

RS.AddNew
RS("mailDato") = strDato
RS.Update

ok, så prøv lige med denne...
//>Rune

Jeg har et debatforum, hvor tiden bliver gemt rigtigt:

25-06-2000 00:59:26

Nu er jeg ved at inkludere det i et community, hvor jeg får denne fejl, som er udløst af dette script:

'Dato
Function AddZ(str)
If Len(str) = 1 Then
    AddZ = "0" & str
Else
    AddZ = str
End if
End Function

Det sørger for, at hvis et indlæg bliver postet kl. 23:01:42, så vil

23:01:42

blive udskrevet, og ikke

23:1:42

Jeg får denne fejl:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'addZ'

/dcu/includes/debat/debatemne.asp, line 60

tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

Så skal du jo skrive:

Function AddZ(str)
If Len(str) = 1 Then
    AddZ = "0" & str
Else
    AddZ = str
End if
End Function

strDato = Date()
strDay = Day(Date())
strMth = Month(Date())
strYar = Year(Date())

strDato = strDay & "/" & strMth & "/" & strYar & " " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now())

RS.AddNew
RS("mailDato") = Addz(strDato)
RS.Update

//>Rune

Sådan ser det ud nu:

25/7/2002 1:15:44

:o(

Databasen ER dansk. MS Access 2000.

Datoen er fin nu, men der står 1:15:44, og ikke 01:15:44?

2 sek, jeg er lige igang med at bixe noget sammen...

//>Rune

:o)

Problemet er stadig det samme som før. Fejl:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'addZ'

/dcu/includes/debat/debatemne.asp, line 60

- så det er nok ikke der fejlen, skal søges. Men derfor ville jeg blive meget glad for at få tidspunktet på plads alligevel.

:-) 2 sek. Den er lige ved at være der!

//>Rune

Function AddZ(ByVal lngHour, ByVal lngMinute, ByVal lngSecond)
    Dim strHour, strMinute, strSecond
    strHour = CStr(lngHour)
    strMinute = CStr(lngMinute)
    strSecond = CStr(lngSecond)
    If lngHour < 10 Then strHour = "0" & strHour
    If lngMinute < 10 Then strMinute = "0" & strMinute
    If lngSecond < 10 Then strSecond = "0" & strSecond
    AddZ = strHour & ":" & strMinute & ":" & strSecond
End Function

Dim strDay, strDato, strMth, strYar, varDate
varDate = Date()
strDato = CStr(varDate)
strDay = Day(varDate)
strMth = Month(varDate)
strYar = Year(varDate)
Document.Write strDay & "/" & strMth & "/" & strYar & " " & AddZ(Hour(Now), Minute(Now), Second(Now))

Så skulle den vidst være der :-D
//>Rune

Prøver :o)

Document.Write skal selvfølgelig være Response.Write ;-)

//>Rune

Fejl igen:

Microsoft VBScript runtime error '800a01a8'

Object required: 'Document'

/dcu/includes/postkasse/postkasse.asp, line 103

Document.Write strDay & ".........

Ok, mente det nok :o)

Prøver igen

25/7/2002 02:00:18
Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'AddZ'

/dcu/includes/postkasse/postkasse.asp, line 111

Linie 111: RS("mailDato") = AddZ(strDato)

*G*

Hvad er det for en fejl? Wrong number of arguments or invalid property assignment: 'AddZ'

UPS, Rune, jeg ved det trækker ud, du skal nok få flere point. Men månederne: 25/7/2002 burde også være 25/07/2002

Function AddZ(ByVal lngHour, ByVal lngMinute, ByVal lngSecond)
    Dim strHour, strMinute, strSecond
    strHour = CStr(lngHour)
    strMinute = CStr(lngMinute)
    strSecond = CStr(lngSecond)
    If lngHour < 10 Then strHour = "0" & strHour
    If lngMinute < 10 Then strMinute = "0" & strMinute
    If lngSecond < 10 Then strSecond = "0" & strSecond
    AddZ = strHour & ":" & strMinute & ":" & strSecond
End Function

Dim strDay, strDato, strMth, strYar, varDate
varDate = Date()
strDato = CStr(varDate)
strDay = Day(varDate)
strMth = Month(varDate)
strYar = Year(varDate)

RS.AddNew
RS("mailDato") = strDay & "/" & strMth & "/" & strYar & " " & AddZ(Hour(Now), Minute(Now), Second(Now))
RS.Update

//>Rune

Hmm... *G*
Jeg kigger lige på det.. :-)

//>Rune

Det virker ellers godt! Der mangler "kun" lige måneden :o)

There you go!

Function AddZ(ByVal lngHour, ByVal lngMinute, ByVal lngSecond, strSeperator)
    Dim strHour, strMinute, strSecond
    strHour = CStr(lngHour)
    strMinute = CStr(lngMinute)
    strSecond = CStr(lngSecond)
    If lngHour < 10 Then strHour = "0" & strHour
    If lngMinute < 10 Then strMinute = "0" & strMinute
    If lngSecond < 10 Then strSecond = "0" & strSecond
    AddZ = strHour & strSeperator & strMinute & strSeperator & strSecond
End Function

RS.AddNew
RS("mailDato") = AddZ(Day(Now), Month(Now), Year(Now), "/") & " " & AddZ(Hour(Now), Minute(Now), Second(Now), ":")
RS.Update

//>Rune

Det virker, Rune! :o) Tak for hjælpen!

Jeg har bare lige et spørgsmål: Kan det have betydning, at i debatten forsøges datoen gemt som xx-xx-2002 xx:xx:xx

og i postkassen som xx/xx/2002 xx:xx:xx

Altså hhv. - og /

Nææ det skulle det ikke gerne have :-/

Det var så lidt, skulle det være en anden gang ;o)
Thx 4 Poinz

//>Rune

25-06-2002 02:15:00 <- debatten
25/06/2002 02:15:00 <- Postkassen

Kan der opstå en mismatch-fejl p.gr.a. det?

Det er mig, der thx'er :o)

Har du nogen ide til fejlen?

Nææ, men jeg ved at jeg snart brækker mig over det her script *G*

Hvordan kan det være du ik' er over MSN her til aften?
-vi må nok hellere lade være med at SPAME ekspertens database... -det er der sq nok der gør i forvejen ;o)
//>Rune

Ok. Jeg går on-line i morgen. Ville have lidt fred i dag :o) Vi snakkes ved. Også om loggen? Udelukkelse af egen IP :o)

*G* ok, jeg skal nok se på det i morgen, men jeg skal på arbejde kl. 4 så vi får lige at se hvor meget vi når ;o)

Snakkes
//>Rune

Det haster ikke mere end det jawer :o) Du har travlt, det ved jeg. Vi snakkes ved. Sov godt!

Hvad så med denne linie:

tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

Den er vel ikke gangbar længere?

Hvad mener du?

//>Rune

Kan jeg stadig bruge den i min debatemne.asp?

Hvad er det der gør, at det ene script gemmer det i engelsk datoformat, og det andet i dansk?

Postkassen gemte i engelsk. Nu er det jo omskrevet, så det bliver gemt i dansk.

Debatten gemmer det, som det skal gemmes, nemlig i dansk datoformat.

Det må være her, at denne mismatch opstår? Jeg kan kun se, at / og - har et eller andet at sige. Eller hvad? :o)

tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

Response.Write "<.....>" & "Besvaret af " & FormatText(RS("brugernavn")) & "den " & "<nobr>" & tidspunkt & "</nobr>" & "</.....>"

:-) Jeg ved det sq ik' rigtig... det lyder som et ret så mærkelig script du har dig der Steen!

-Nå, men jeg skal på arbejde nu... Jeg kommer først online igen i morgen en gang..!

Snakkes!
//>Rune

Det er ikke så mærkeligt, det er faktisk sk....godt. Postkassen er lidt mærkelig.

Vi snakkes ved :o)

:-)