Pular para o conteúdo
Início » Advpl DataValida

Advpl DataValida

    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