#include "s_public.ch"

*  ValidDate(dDate) -> l
*  Пpовеpка даты на соответствие пеpиоду

FUNCTION ValidDate(dDate)
   LOCAL lRet := .T.

   IF dDate < CURR_BEG         .OR. ;
      dDate < _BEGIN_DATE_VVOD .OR. ;
      (!EMPTY( _END_DATE_VVOD ) .AND. dDate > _END_DATE_VVOD )
      TONE(200,2)
      lRet := .F.
   ENDIF
RETURN lRet


