Páginas filhas
  • TPHTDI_DT_DATAVALIDA()

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

DATAVALIDA()

 

Descrição:

Função que retorna uma data válida, a partir de uma data qualquer informada.

Compatível com as Bases de Dados:

Todas

Sistemas Operacionais Suportados:

Todos

Idioma:

Português(Brasil)

Sintaxe:

dDataVal:=DataValida( [ dData], [ lTipo] )

Parâmetros:

dData (Data) - Data para iniciar o cálculo da função.

lTipo (Lógico) - Se .T. posterga a data recebida para o próximo dia útil. - Se .F. retrocede a data recebida para o dia útil anterior.

Retorno:

dDataVal (Data) - Data válida do sistema.

Observações:

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 próxima data válida.

O cadastro na tabela 63 deve seguir o exemplo abaixo:

Feriado fixo: 25/12 Natal (1ª e 2ª posição DIA, 4ª e 5ª posição MÊS)

Feriado móvel: 09/02/16 Carnaval (1ª e 2ª posição DIA, 4ª e 5ª posição MÊS, 7ª e 8ª ANO)

Exemplo:

#include "protheus.ch"

User Function DataValida()

Local dData := CTOD("14/11/09")L
ocal lNext := .T.
Local dNewData := DataValida(dData, lNext)

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

Return

Programa Fonte:

DATAVALI.PRG