Validate Date - API Method

Date: 03-28-2012

Return to Index

 
'Compilable Example:
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
#Include "Win32API.inc"
 
Function PBMain() As Long
   Local st As SYSTEMTIME, ft As FILETIME, sDate$,m$,d$,y$, iResult As Long
   sDate$ = "01-01-201x"
   M$ = Parse$(sDate$,"-",1)
   D$ = Parse$(sDate$,"-",2)
   Y$ = Parse$(sDate$,"-",3)
   st.wYear = Val(Y$)
   st.wMonth =  Val(M$)
   st.wDay    =  Val(D$)
   iResult = SystemTimeToFileTime(st, ft)
   If iResult Then ? "Valid Date" Else ? "Invalid Date"
End Function
 
'gbs_00735
'Date: 03-10-2012

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm