Tjekke gyldighed ud fra angivet dato og now

Tjekke gyldighed ud fra angivet dato og now..

det kan næsten kun være IsDate()

Private Sub Form_Load()
  If IsDate("01-03-2005") Then
    MsgBox "Det er en dato"
      Else
    MsgBox "Det er ikke en dato"
  End If
End Sub

Hmm udtrykte vist ikke klart mit problem.

Hver kunde skal have et kontingent, som eks.vis. løber over 31 dage fra den dag det er oprette.
Hvergang kunden tjekker ind i systemet, skal dette tjekke om de 31 dage er overskredet eller at kontingentet stadig er gyldigt.
Altså tjekke om den dato, der er skrevet ind i db'en + kontingenttypen er gyldigt i forhold til den aktuelle dato.

mvh

Private Sub Form_Load()
  ' 2 dage fra idag
  Me.Caption = DateDiff("d", "27-02-2005", Now)
End Sub

så skulle det passe med en månede

Option Explicit

Private Sub Form_Load()
Dim strDato As String
  strDato = "02-01-2005"

  If DateDiff("d", Now, strDato) > 0 Then
    MsgBox "Dato er god kendt"
      Else
    MsgBox "Dato er ikke god kendt"
  End If
End Sub

hvis du tager den fx. fra idag så skal der stå: 01-04-2005

det kan godt være at du skal have " = " på.. det kommer and på om man skal kunne "log ind" sidste dage..

If DateDiff("d", Now, strDato) >= 0 Then

Jeg sætter mig li og roder med det :)

Er strDato så den dato, hvor kontingentet er oprette?
for så ka jeg ik li gennemskue hvordan den tjekker en måned frem fra den dato?

du skal sette strDato (datoen en månde frem) når Now() så er = med strDato så er det ved at være slut.. hvis nu det er en bruger som har betalt for 2 månder så skal strDato settes to månder frem..

hvis du køre den her i dag, så har du 30 dage at gøre godt med, og imorgen har du 29 dage at gøre godt med. sov...


Private Sub Form_Load()
Dim intDay As Integer
Dim strDato As String

  strDato = "01-04-2005"
  intDay = DateDiff("d", Now, strDato)

  If intDay > 0 Then
    MsgBox "Dit kontingentet udløber om " & intDay & " dage."
  ElseIf intDay = 0 Then
    MsgBox "Dit kontingentet udløber i dage."
      Else
    MsgBox "Dit kontingentet er udløbet."
  End If
End Sub

Du skal bare lige være opmærksom på hvis ur/dato ikke går korekt på den computer du køre programmet, så vil du jo få udløbs fejl. (all kan jo stille deres ur/dato som de vil) ;)

Ja, sørger jeg lige for

skal jeg lige smide et svar..