Static Function VldData(dDAT_DE,dDat_ATE)
	Local _lData := .T.

		If(ValType(dDat_DE) <> 'D')    
		//If dtoc(dDat_DE) == " / /    "
     			MsgStop("Data início inválida, Digite corretamente","Atenção")
    			_lData := .F.
			Break
		EndIf

		If(ValType(dDat_DE) <> 'D')
		//If dtoc(dDat_ATE) == " / /    " 
			MsgStop("Data final inválida, Digite corretamente","Atenção")
    			_lData := .F.
			Break
		EndIf	
RETURN (_lData)