Dato

Hejsa

Jeg har en dato i form af følgende:

sQDag = Session("Dag")
sQMdr = Session("Mdr")
sQAar = Session("Aar")

Jeg bruger så følgende kode for at få datoen i følgende form: Torsdag den 13. febuar 2003

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 = sQDag
Mdr = sQMdr
datoStr = datoDag & "-" & Mdr & "-" & sQAar

datoStreng = arrDay(WeekDay(datoStr)-1) & " den " & datoDag & ". " & arrMonth(Mdr-1) & " " & Year(datoStr)

Nu vil jeg så gerne have at jeg kan gøre så jeg tager datoen udfra følgende oplysninger:

sQDag = Session("Dag")
sQMdr = Session("Mdr")
sQAar = Session("Aar")

Og så trækker syv dage fra og udskriver datoen i følgende form: Torsdag den 6. febuar 2003

Det skal jo være så at hvis datoen er den 5 feburar så når der trækkes de 7 dage fra så skal den jo ikke bare skrive -2 febuar men 30 januar.

Håber I forstår mit lille problem og at der er en der kan hjælpe!