Dato + dag

brug dette funktion: DateAdd("d",1,date()) i stedet for date() set din variable ind.

hvis det er dagens dato som skal sættes en til så brug Date().

var det ikke et svar?

hvad med

' her opsættes en dansk dato eks 17-12-2002

Session.LCID = 1030

dato = date
tid = FormatDateTime(Now, vbShortTime)
datotid = tid &" "& dato


så ska du bare kalde dato, tid eller datotid alt efter hva du ska bruge

den giver tid og dato i følgende formatter

dato: 12-02-2003
tid: 23:41
datotid: 23:41 12-02-2003

ups, jeg havde ikke set den sidste del af dit spm.. Du vil tjekke om året er et skudår eller ej? men er det en løsning:

minMaaned = Request("Maaned")
minDato = Request("Dato")
minAar =Request("Aar")

if minMaaned > 1 and minAar mod 4 = 0 then
    Maaned(1)= 29
else
    if minAar mod 4 = 0 then
        Maaned(1) = 29
    end if
end if

Så ved jeg ikke hvor henter du selve datoen, er det brugeren som indtaster eller vælger datoen?

DateAdd skulle faktisk gerne selv kunne klare at finde ud af, om det er en ugyldig dato... Mener jeg da :-)

Hej igen.

Jeg kan altså ikke få det til at virke, desværre :-(

hvor vil du lægge 1 dag til? til din variable? i din sql sætning? fortæl lidt mere. Læg din kode.

Lidt kode :

aar= request.querystring("aar")
dato=FormatDateTime("01-01-"&aar&"", VbShortDate)

-så skal jeg lave et loop der ligger en dag til hver gang og derved kører alle årets dage igennem:

DateAdd("d",1,dato)

-er de overhovedet muligt?

Her fx har jeg valgt år 1990 også lægger jeg fra 01-01 en til:
<%
aar= "1990"
dato=FormatDateTime("01-01-"& aar &"",VbShortDate)
for i = 0 to 364
    dato = dateadd("d",1,dato)
    Response.Write dato & "<br>"
next
%>
du skal tjekke skudåret og for det kan du bruge den if sætning hvor jeg skrev tidligere.

Mange tak for hjælpen Hossein!

Nu virker det jo :-)