Tipo: Processamento
Retorna uma data válida que não seja sábado, domingo ou feriado, a partir de uma data qualquer informada. É uma função útil para a geração de vencimentos reais para títulos, por exemplo.
Sintaxe
DataValida(dData)
Parametros
dData – Data informada para validação.
Retorna
dDtVld – Retorna a Data validada.
Exemplo
// Exemplo de uso da funcao DataValida:
// Pode-se gravar o campo do vencimento real de um
// titulo a partir do vencimento informado.
dVencto := cTod(“”)
:
Get dVencto
Read
dVencRea := DataValida(dVencto)
Grava() // Funcao generica.
// Um uso interessante, e a obtencao do numero de dias
// uteis de determinado mes utilizando-se dessa funcao.
// A logica e simples:
nDUtil := 0
nMes := 05
nAno := 98
dDtIni := CTOD(“01/”+StrZero(nMes,2)+”/”+StrZero(nAno,2)
dDtMov := dDtIni
While Month(dDtIni) == Month(dDtMov) .And. Year(dDtIni) == Year(dDtMov)
If DataValida(dDtMov) == dDtMov
nDUtil := nDUtil + 1
Endif
dDtMov := dDtMov + 1
EndDo
Estude para provas de certificações em TI com os simulados Bynem