---

Kære NG

Et hurtigt spørgsmål angående dato manipulering

Jeg skal bruge et loop til at skrive noget dato for hver dato inden for
en specifik periode. Det havde jeg tænkt mig at gøre sådan her

[code]
Do While strTempDate <= strEnd

   Response.Write strTempDate & "<br />"
      
strTempDate = FormatDateTime(strTempDate+1, vbShortDate) (line 49)
[end code]

problemet er bare at jeg får følgende fejl:

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: "05-04-2005"]'

/SegmentSuccess.asp, line 49

nået tyder på at det ikke er et dato format, men samme string
(strTempDate) kan med havelåger omkring godt bruges som datoformat til
eksempelvis en SQL sætning.

Please Advice

MVH
Christian E

---

Christian Epstein skrev:

> strTempDate = FormatDateTime(strTempDate+1, vbShortDate) (line
> 49) [end code]

Du får formentlig fejl fordi strTempDate er en streng - den kan du
ikke umiddelbart lægge 1 til.

Jeg ville bruge split til at trække de tre datodele ud, lægge en
til dag-værdien og så danne en ny dato med DateSerial.

Noget i retning af:


aDato = Split(strTempDate, "-")

dag = aDato(0)
maaned = aDato(1)
aar = aDato(2)

nydato = DateSerial(aar, maaned, dag + 1)

vistdato = FormatDateTime(nydato, vbShortDate)


Ovenstående er utestet, og vil givetvis have gavn af noget
fejlhåndtering (fx ved at tjekke om der nu også kommer tre
arrayelementer ud fra split).
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Jens Gyldenkærne Clausen wrote:
> Christian Epstein skrev:
>
>
>>strTempDate = FormatDateTime(strTempDate+1, vbShortDate) (line
>>49) [end code]
>
>
> Du får formentlig fejl fordi strTempDate er en streng - den kan du
> ikke umiddelbart lægge 1 til.
>
> Jeg ville bruge split til at trække de tre datodele ud, lægge en
> til dag-værdien og så danne en ny dato med DateSerial.
>
> Noget i retning af:
>
>
> aDato = Split(strTempDate, "-")
>
> dag = aDato(0)
> maaned = aDato(1)
> aar = aDato(2)
>
> nydato = DateSerial(aar, maaned, dag + 1)
>
> vistdato = FormatDateTime(nydato, vbShortDate)
>
>
> Ovenstående er utestet, og vil givetvis have gavn af noget
> fejlhåndtering (fx ved at tjekke om der nu også kommer tre
> arrayelementer ud fra split).

Tak for hjælpen, jeg var dog nået til den samme konklusion at
FormatDateTime ikke konvertere til datoformat, men kun til en string der
ser datoformat agtig ud. CDate(string) efter formatering virkede derimod
glimrende.

Desuden vil jeg i farten nævne at datostringen bliver valideret med regexp.

//Christian E