Sjekke dato +3 dager, lik og mindre,

Her er scriptet jeg har skrevet:

If Date() >= adoRs("GyldighetTOM") -1 Then
    strDato = "<font color=red>" & adoRs("GyldighetTOM")
Elseif Date() = adoRs("GyldighetTOM") AND Date() <= adoRs("GyldighetTOM") + 3 Then
    strDato = "<font color=yellow>" & adoRs("GyldighetTOM")
Elseif Date() < adoRs("GyldighetTOM") + 4 Then
    strDato = "<font color=green>" & adoRs("GyldighetTOM")
End if

Prøv med CDate omkring:

If Date() >= CDate(adoRs("GyldighetTOM") -1) Then
    strDato = "<font color=red>" & adoRs("GyldighetTOM")
Elseif Date() = CDate(adoRs("GyldighetTOM")) AND Date() <= CDate(adoRs("GyldighetTOM") + 3) Then
    strDato = "<font color=yellow>" & adoRs("GyldighetTOM")
Elseif Date() < CDate(adoRs("GyldighetTOM") + 4) Then
    strDato = "<font color=green>" & adoRs("GyldighetTOM")
End if

//Eagleeye

Jeg har pr i dag 4 datoer inne i databasen:

21.03.2004 'Denne blir grønn (Feil denne skal være gul)
31.03.2004 'Denne blir grønn (Riktig)
25.03.2004 'Denne blir grønn (Riktig)
17.02.2004 'Denne blir rød (Riktig)

Hva kan være feil?

    If Date() >= adoRs("GyldighetTOM") -1 Then
        'Rød
        strDato = "<font color=#CC3333>" & CDate(adoRs("GyldighetTOM"))
    Elseif Date() >= adoRs("GyldighetTOM") AND Date() <= CDate(adoRs("GyldighetTOM") + 3) Then
        'Gul
        strDato = "<font color=#CCCC33>" & adoRs("GyldighetTOM")
    Elseif Date() < CDate(adoRs("GyldighetTOM") + 4) Then
        'Grønn
        strDato = "<font color=green>" & adoRs("GyldighetTOM")
    End if

21.03.2004 'Denne blir grønn (Feil denne skal være gul)

Den kan ikke blive gul, for at blive gul skal dette være opfyldt:
Elseif Date() >= adoRs("GyldighetTOM") AND Date() <= CDate(adoRs("GyldighetTOM") + 3) Then

Så skal Date() være større end den 21.03.2004 og Date = 19.03.2004 så derfor bliver den ikke gul

Virker fortsatt ikke:

    If Date() >= CDate(adoRs("GyldighetTOM") -1) Then
        'Rød
        strDato = "<font color=#CC3333>" & CDate(adoRs("GyldighetTOM"))
    Elseif Date() >= adoRs("GyldighetTOM") AND Date() <= CDate(adoRs("GyldighetTOM") + 3) Then
        'Gul
        strDato = "<font color=#CCCC33>" & adoRs("GyldighetTOM")
    Elseif Date() < CDate(adoRs("GyldighetTOM") + 4) Then
        'Grønn
        strDato = "<font color=green>" & adoRs("GyldighetTOM")
    End if

Som skrevet lige før så kan denne 21.03.2004 ikke blive gul.

Du må kigge på de betigelser der gør datoen enten bliver rød, gul eller grøn.

//Eagleeye løste det på følgende måte:

strDagensDato = date()
strTOMDato = adoRs("GyldighetTOM")       
strGetDager = DateDiff("Y", strDagensDato,strTOMDato )

If strGetDager < 0 Then
    'Rød
    strDato = "<font color=#CC3333>" & CDate(adoRs("GyldighetTOM"))
Elseif strGetDager >= 0 AND strGetDager <= 3 Then
    'Gul
    strDato = "<font color=#CCCC33>" & adoRs("GyldighetTOM")
Elseif strGetDager > 4 Then
    'Grønn
    strDato = "<font color=green>" & adoRs("GyldighetTOM")
End if

Ja ok :)