dato plus 30 dage

hvis i så lige ser bort fra stavefejl 8-s

if dato > (DateAdd("D", 29, date)) then

kan du forklare koden

if dato

Hvis dit dato felt

>

er større end

(DateAdd("D", 29, date))

dags dato + 29 dage

then

så

ok, hvordan vender jeg så mit dato format yy/mm/dd til dags dato formato .. eller omvendt...?

så meget styr på dato'ere har jeg desværre ikke:/ men for at koden virker behøves det i hvertfald heller ikke gøres. Lidt ærgelig mener nemlig jeg så det for leden hvordan man gør:(

Taget fra et andet spørgsmål... måske kan det hjælpe dig.

Samtidig skal formatet være mm-dd-yyyy som jeg også har skrevet tidligere. Du kan måske bruge denne funktion til at omformatere dine datoer:

Function ConvertToSqlDate(dato)
    dim SQLYear,SQLMonth,SQLDay
    SQLYear = Year(dato)
    SQLMonth = Month(dato)
    SQLDay = Day(dato)
    if SQLDay<10 then
        SQLDay = 0&SQLDay
    end if
    if SQLMonth<10 then
        SQLMonth = 0&SQLMonth
    end if
    ConvertToSqlDate = SQLMonth&"-"&SQLDay&"-"&SQLYear
End Function

sql = "insert into tabel(enDato) values(#"& ConvertToSqlDate(request.form("dato")) &"#)"

læser i en anden tråd at du måske bare kan indsætte denne kode øverst

<% Session.LCID = 1030 %>

på din asp side.

Hey kalp

jeg kan ikke konvetere mit dato format til dd/mm/yyyy for så at ligge dem i db'en. Derved mister jeg den nemme mulighed for at kunne sortere på dem, da året derved står til sidst som så fucker up i sorteringen.

Derfor må jeg, for at kunne bruge dit forslag, bytte om på mine data efter de er trukket ud af databasen, fra yy/mm/dd til dd/mm/yyyy ELLER bruge en anden kode end:
dato > (DateAdd("D", 29, date))

Men hvordan jeg gør det ene eller det andet ved jeg ikke helt. Jeg må søge lidt rundt og prøve mig frem, men at ændre mit datoformat inden jeg gemmer det, er ikke en option uden også at løse sorteringsproblemet der følger i kølevandet...

hmmm har prøvet mig frem med denne kode:

    Dim arr, alternativeDate2
    Function valEgress(ByVal dato)
        arr = split(Date, "-")
        alternativeDate2 = Right(arr(2),2) & "/" & arr(1) & "/" & arr(0)
        If dato > (DateAdd("D", 29, alternativeDate2)) Then
            valEgress = "style=""color:white;background-color:brown;"" "
        Elseif dato < (DateAdd("D", 29, alternativeDate2)) Then
            valEgress = "style=""color:white;background-color:blue;"" "
        Elseif dato = "" Then
            valEgress = ""
        End if
    End function

hvor dato = :
05/05/03
el.
05/03/17
el.
05/04/28
mf. ...

Men koden giver kun udslag i: dato > (DateAdd....

Hvorfor det?

er det fordi jeg har skiftet date ud med alternativeDate2 ?

Denne funktion mener jeg gerne skulle give udslag i andet end den første valEgress:

    Dim varDato, varD1, varD2, varD3
    Function valEgress(ByVal varD3)
        varDato = "06/01/04" 'bruges som test
        If varDato <> "" Then
        varD1 = split(varDato, "/")
        varD2 = (varD1(2) & "-" & varD1(1) & "-20" & varD1(0))
            If varD2 > (DateAdd("D", 29, date)) Then
                valEgress = "title="&varD2&"?"&date&" style=""color:white;background-color:blue;"" "
            Elseif varD2 < (DateAdd("D", 29, date)) Then
                valEgress = "style=""color:white;background-color:black;"" "
            Elseif varD2 = "" Then
                valEgress = ""
            End if
        End if
    End function

men jeg kan kun få den til at reagere som om varD2 ALTID er > end (DateAdd("D", 29, date))

Hvorfor det?

Har løst det. J skulle bruge datediff istedet for dateadd:

    Dim varDato, varD1, varD2, varD3
    Function valEgress(ByVal varDato)
'        varDato = "05/04/19" 'bruges som test
        If varDato <> "" Then
        varD1 = split(varDato, "/")
        varD2 = varD1(2) & "-" & varD1(1) & "-20" & varD1(0)
            If Datediff("D", varD2, date) > 29 Then
                valEgress = "title="&varD2&"?"&date&" style=""color:white;background-color:blue;"" "
            Elseif Datediff("D", varD2, date) < 29 Then
                valEgress = "style=""color:white;background-color:black;"" "
            Elseif varD2 = "" Then
                valEgress = ""
            End if
        End if
    End function


points til mig ;D