Dia util (DataValida - ADVPL)

Esta função retorna uma data válida a partir de uma data informada.

DataValida(dData, lNext)

onde dData = Data a ser validada
e       lNext = é um parametro (.T. - para avançar para próxima data válida e .F. para retroceder para data válida anterior)

A função irá considerar as datas encontradas na tabela 63 do SX5 (Tabela de Feriados), os sábados (caso o parâmetro MV_SABFERI seja igual a "S") e os domingos como sendo feriados, retornando assim a data válida.


Exemplo:

#include "protheus.ch"

User Function DataValida()
Local dData := CTOD("14/11/09") // Converte uma string em data.
Local lNext := .T.
Local dNewData := DataValida(dData, lNext)

ApMsgAlert("Proxima data válida será: "+ Dtoc(dNewData))

Return

Daniel S. Menezes

Analista de Sistemas
Programador ADVPL