VerificaDiaUtil

Verifica se uma data é dia útil ou não e retorna o dia útil a partir de uma data determinada. Sendo que esta pode ser a própria data informada, a próxima data ou a data anterior, dependendo do parâmetro informado:

Sintaxe: VerificaDiaUtil(Numero Data, Numero Cep, Numero Vct, Numero End DiaUtil)

Parâmetros:

Nome Tipo Descrição
Data Número Variável que recebe a Data atual.
Cep Número Variável que recebe o Cep da filial.
Vct Número Variável responsável em indicar qual será o retorno: próximo dia útil (considerando o próprio dia) ou o anterior (desconsiderando o próprio dia). Se for 1, traz o próximo; se for 0, traz o anterior.
DiaUtil Número Variável que retorna qual é o próximo dia útil a partir da data atual, ou o anterior, conforme o parâmetro Vct.

Tipo de retorno: DiaUtil: Variável numérica que retorna qual é o próximo dia útil a partir da data atual, ou o anterior, conforme o parâmetro Vct.

Utilização da Função (dependentes): Nenhum dependente.

Exemplo:

Utilizando 1:

vdata = 10/12/2003
VerificaDiaUtil(vdata, vCep, 1, VdiaUtil);
Retorno será vDiaUtil = 10/12/2003

Utilizando 1:

vdata = 13/12/2003
VerificaDiaUtil(vdata, vCep, 1, VdiaUtil);
Retorno será vDiaUtil = 15/12/2003

Utilizando 0:

vdata = 10/12/2003
VerificaDiaUtil(vdata, vCep, 0, VdiaUtil);
Retorno será vDiaUtil = 09/12/2003

Utilizando 0 e 1:

Definir Data vDiaUtil5;

Definir Data vDiaUtil6;

AlfaParaData("13/03/2021",vData5);

AlfaParaData("13/03/2021",vData6);

VerificaDiaUtil(vdata6, vCep, 1, VdiaUtil6); -- Aqui o retorno será 15/03/2021

Se (VdiaUtil6 = vData6) -- Aqui a comparação será: Se 15/03/2021 é igual a 13/03/2021

retorno = VdiaUtil6 -- Caso sejam iguais, então utiliza 15/03/2021

Senao

VerificaDiaUtil(vdata5, vCep, 0, VdiaUtil5); -- Se as datas forem diferentes, então utiliza a data anterior 12/03/2021

O retorno dependerá da data enviada na chamada VerificaDiaUtil (vdata6, vCep, 1, VdiaUtil6): caso sejam iguais, sendo uma data útil, então será retornado a própria data, caso contrário, será chamada VerificaDiaUtil(vdata5, vCep, 0, VdiaUtil5), onde será retornado a data anterior útil.

Observação
O 0 é utilizado para identificar até quando será o pagamento dos juros e o tipo 1 é utilizado para o vencimento do título.

Este artigo ajudou você?