---

Hvorfor virker følgende ikke?

<%
Function GetCurrentDate
GetCurrentDate = FormatDateTime(Now(), 2)
End Function

' Udløbsdato
dato = "31-12-2002"

if date < GetCurrentDate then
ture = "Dit medlemsskab er udløbet"
else
ture = "Gyldigt medlemsskab"
end if

' Tjekker om det er det rigtige format
Response.Write(GetCurrentDate)

' Udskriver resultat
Response.Write(ture)
%>

På forhånd tak

Frank Sørensen

---

Som svar på skriblerier forfattet af Frank Sørensen

> Hvorfor virker følgende ikke?
>
> <%
> Function GetCurrentDate
> GetCurrentDate = FormatDateTime(Now(), 2)
> End Function
>
> ' Udløbsdato
> dato = "31-12-2002"
>
> if date < GetCurrentDate then
> ture = "Dit medlemsskab er udløbet"
> else
> ture = "Gyldigt medlemsskab"
> end if
>
Der kan være mange årsager

Brug DateDiff i stedet, den er nemmere at tweake
Fx

If DateDiff("d", dtmEndOfMembership, Date()) <= 0 Then
ture = "Dit medlemsskab er udløbet"
Else
ture = "Gyldigt medlemsskab"
End If

Øhh "ture"?
Brug beskrivende variable navne

Btw den her tjekker på (næsten) exakte tidspunkt for oprettelsen

If DateDiff("s", dtmEndOfMembership, Date()) <= 0 Then
ture = "Dit medlemsskab er udløbet"
Else
ture = "Gyldigt medlemsskab"
End If

d = dage
h = timer
n = minutter
s = sekunder

mvh/Peter Lykkegaard

---

> If DateDiff("d", dtmEndOfMembership, Date()) <= 0 Then
> ture = "Dit medlemsskab er udløbet"
> Else
> ture = "Gyldigt medlemsskab"
> End If

Skulle lige bytte om på rækkefølgen af dtmEndOfMembership og Date(), men
ellers fungerer det perfekt.

Tak for hjælpen


Frank Sørensen