VerificaDiaUtil

Esta função verifica se a data informada como parâmetro é um dia útil.

Se a data não for um dia útil a função retornará o primeiro dia útil anterior ou posterior, dependendo da direção de busca informada, e consultando ou não uma tabela de feriados, dependendo dos parâmetros passados em regra.

Sintaxe: VerificaDiaUtil(aData, aTabFer, aTipoIncremento, aRetDat);

Parâmetros:

Nome Tipo Descrição
aData Numérico Data a ser verificada se é dia útil.
aTabFer Numérico Código da tabela de feriados para ser usada na consulta (0 não consulta na tabela de feriados).
aTipoIncremento Alfa Direção da busca:
"A" busca o primeiro dia útil anterior;
"P" busca o primeiro dia útil posterior.
Observação: se passar o comando "" será buscado o primeiro dia útil posterior.
aRetDat Numérico Retorna a data útil conforme os parâmetros passados.

Exemplos:

Chama a função:

Definir Data EAuxDat;VerificaDiaUtil(EDatIni, ETabFer, "A", EAuxDat);

A função pode ser usada das seguintes formas:

Verifica se a data é um dia útil consultando uma tabela de feriados e traz o primeiro dia útil anterior se a data passada não for um dia útil:

Definir Data EAuxDat;

Definir Alfa Aux;

VerificaDiaUtil(EDatIni, ETabFer, "A", EAuxDat);

ConverteDataBanco(EAuxDat, Aux);

Aux = "Retorno = " + Aux;

Mensagem(Retorna, Aux);

Verifica se a data é um dia útil consultando uma tabela de feriados e traz o primeiro dia útil posterior se a data passada não for um dia útil:

Definir Data EAuxDat;

Definir Alfa Aux;

VerificaDiaUtil(EDatIni, ETabFer, "P", EAuxDat);

ConverteDataBanco(EAuxDat, Aux);

Aux = "Retorno = " + Aux;

Mensagem(Retorna, Aux);

Verifica se a data é um dia útil sem consultar a tabela de feriados e traz o primeiro dia útil anterior se a data passada não for um dia útil:

Definir Data EAuxDat;

Definir Alfa Aux;

VerificaDiaUtil(EDatIni, 0, "A", EAuxDat);

ConverteDataBanco(EAuxDat, Aux);

Aux = "Retorno = " + Aux;

Mensagem(Retorna, Aux);

Verifica se a data é um dia útil sem consultar a tabela de feriados e traz o primeiro dia útil posterior se a data passada não for um dia útil:

Definir Data EAuxDat;

Definir Alfa Aux;

VerificaDiaUtil(EDatIni, 0, "P", EAuxDat);

Para buscar o primeiro dia útil posterior sem consultar a tabela de feriados:

ConverteDataBanco(EAuxDat, Aux);

Aux = "Retorno = " + Aux;

Mensagem(Retorna, Aux);

Verifica se a data é um dia útil sem consultar a tabela de feriados e sem passar a direção da busca ele traz o primeiro dia útil posterior se a data passada não for um dia útil:

Definir Data EAuxDat;

Definir Alfa Aux;

VerificaDiaUtil(EDatIni, 0, "", EAuxDat);

ConverteDataBanco(EAuxDat, Aux);

Aux = "Retorno = " + Aux;

Mensagem(Retorna, Aux);

Utilização: Gerador de Relatórios e Regras.

Disponível para os módulos: Todos os módulos do Gestão de Pessoas | HCM.

Este artigo ajudou você?