Search Tools Links Login

IsExpired


This code checks the difference between today and any expiration date. Using VB6 functions DateDiff and TimeValue it will evaluate the dates and tell you if we are past the expiration date or not. [Highly commented.]

Original Author: ignis

Inputs

All you need to input is the expiration date and the expiration time. These can be in any format.

Assumptions

This code can be used for many things, including shareware locks. You can set an expiration date (e.g. "30 days from today.") and check each day if it has expired. The simple boolean return will tell you if the shareware lock has expired or not.

Returns

This code returns True if we are past the expiration date. It returns False if it has not yet expired.

Code

Function IsExpired(ExpireDate As Date, ExpireTime As Date) As Boolean
Dim lngDayDiff As Long
Dim lngTimeDiff As Long

' Using DateDiff, a function unique to VB6, we check the
' difference between the current date (extracted from Now)
' and the expiration date.
lngDayDiff = DateDiff("d", Now, ExpireDate)

' If the difference is a negative that means that we are
' past the expired date so of course it is expired.
If lngDayDiff < 0 Then
  GoTo YesExpired
  
' If the difference is a zero that means we are ON the
' date of expiration. We check the time for a difference
' to determine if the time has expired.
ElseIf lngDayDiff = 0 Then

  ' Get the time difference. Note that we use TimeValue(Now)
  ' instead of just Now because it will return the exact
  ' time, not the date/time.
  lngTimeDiff = DateDiff("n", TimeValue(Now), ExpireTime)
  
  ' If the time difference is a negative, we are past it so
  ' the date is expired.
  If lngTimeDiff <= 0 Then
   GoTo YesExpired
  
  ' Otherwise (if we are on the time, or before it) then
  ' we are not yet expired.
  Else
   GoTo NoExpired
  End If

' Otherwise (if we are on the date, or before it) then
' we are not yet expired.
Else
  GoTo NoExpired
End If

YesExpired:
IsExpired = True
Exit Function
NoExpired:
IsExpired = False
Exit Function
End Function

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 84 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.