validate Method
Class: daterange
Expand/Collapse source code of procedure validate Source Code
*-- (c) Microsoft Corporation 1995

*-- If the To date is less than the From date and the From date
*-- is not empty, display an error message
IF this.txtDateTo.Value < this.txtDateFrom.Value AND ;
     !EMPTY(this.txtDateFrom.Value)
   =MESSAGEBOX(DATERANGEERROR_LOC, ;
              MB_ICONEXCLAMATION)
  RETURN .F.
ENDIF