Atlanta Custom Software Development 

 
   Search        Code/Page
 

User Login
Email

Password

 

Forgot the Password?
Services
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
Programming
  Database
Automation
OS/Networking
Graphics
Links
Tools
» Regular Expr Tester
» Free Tools

IsValidDateField - Check whether a date is valid

Total Hit ( 2027)

Rate this article:     Poor     Excellent 

 Submit Your Question/Comment about this article

Rating


 



Click here to copy the following block
Enum psDateTypes
  AnyValidDate  'Allows any valid date to be entered
  PastDate    'Only allows past dates (before today) to be entered
  FutureDate   'Only allows future dates (after today) to be entered
  TodayOrFuture  'Only allows today or future date to be entered
  TodayOrPast   'Only allows today or a previous day to be entered
End Enum

' Validate attributes of date data
' Returns True if valid, False if invalid
'
' Example:
' If IsValidDateField(Value:="01/30/2001",
' '    DateType:=psDateTypes.FutureDate, IsRequired:=True)

Function IsValidDateField(Value As Variant, Optional ByVal DateType As _
  psDateTypes = AnyValidDate, Optional ByVal IsRequired As Boolean = True) As _
  Boolean

  On Error GoTo ErrorHandler
  
  Dim lngDate As Long
  Dim lngToday As Long

  IsValidDateField = True

  If IsRequired = True Then
    If IsNull(Value) Or Value = vbNullString Then
      IsValidDateField = False
    End If
  ElseIf IsNull(Value) Or Value = "" Then
    Value = Null
    Exit Function
  End If

  If IsDate(Value) Then
    lngDate = Format$(Value, "yyyymmdd")
    lngToday = Format$(Now, "yyyymmdd")

    Select Case DateType
      Case psDateTypes.FutureDate
        If lngDate <= lngToday Then
          IsValidDateField = False
        End If
      Case psDateTypes.PastDate
        If lngDate >= lngToday Then
          IsValidDateField = False
        End If
      Case psDateTypes.TodayOrFuture
        If lngDate < lngToday Then
          IsValidDateField = False
        End If
      Case psDateTypes.TodayOrPast
        If lngDate > lngToday Then
          IsValidDateField = False
        End If
    End Select
  Else
    IsValidDateField = False
  End If

  Exit Function
  
ErrorHandler:
  Err.Raise Err.Number, "IsValidDateField", Err.Description

End Function


Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)

Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )


Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.