Tempo de leitura: 2 minutos
A função LastDay em ADVPL retorna uma data de acordo com os parâmetros informados, podendo ser o último dia útil do mês, o primeiro dia útil do mês, último dia útil do mês ou o próximo dia útil após a data informada. Ela é uma das funções de manipulação de data e hora em ADVPL.
Essa função pode ser muito útil em uma situação onde queremos obter a quantidade restante de dias de um mês.
No momento em que criamos esse post a data atual é 26/07/2025. Assim para sabermos quando dias restam para finalizar o mês de julho utilizaremos a função LastDay(dDataBase,0) que retorna o último dia do mês(31/07/2025) e subtraímos com dDataBase(26/07/2025), assim teremos 31/07/2025 – 26/07/2025 = a 4 dias.
nDias:= LastDay(dDataBase,0) – dDataBase
nDias:=4 dias.
Sintaxe:
LastDay(dData,nTipo)
Parâmetro(s):
Retorno:
Exemplo da função LastDay em ADVPL:
//Bibliotecas
#Include "Protheus.ch"
/*{Protheus.doc} User Function fLastDay
(Essa função tem por finalidade mostrar a função LastDay em ADVPL)
@?type Function
@?author Adilio Costa
@?since 24/07/2025
@?version 1.0
@?Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@?Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@?Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@?Conheça os Cursos e Formações do ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/
@Participe de nossas comunidades no WhatsApp:
-Comunidade Protheus Backoffice:https://chat.whatsapp.com/KMUIAjwZ6EZ6eAHsLkPTyb
-Comunidade Protheus-RH:https://chat.whatsapp.com/L5dUyAna6xU4ylG5DUgfOW
-Comunidade Protheus-Programação:https://chat.whatsapp.com/LsD6z0apdqKHlOz67bcaEn
-Comunidade Protheus-Framework:https://chat.whatsapp.com/BzUFpjaSnTC3vtsfa77jmG
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
*/
User Function fLastDay()
Local nTipo0 := 0
Local nTipo1 := 1
Local nTipo2 := 2
Local nTipo3 := 3
Local dDataHoje := dDatabase
Local dDataRet := ""
//Retorna o último dia do mês de dDataHoje
dDataRet := LastDay(dDataHoje,nTipo0)
FWAlertInfo("O último dia do mês é:"+DToC(dDataRet),"Função LastDay")
//Retorna o primeiro dia útil do mês
dDataRet := LastDay(dDataHoje,nTipo1)
FWAlertInfo("O primeiro dia útil do mês é:"+DToC(dDataRet),"Função LastDay")
//Retorna o último dia útil do mês
dDataRet := LastDay(dDataHoje,nTipo2)
FWAlertInfo("O último dia útil do mês é:"+DToC(dDataRet),"Função LastDay")
//Retorna o próximo o dia útil após a data informada
dDataRet := LastDay(dDataHoje,nTipo3)
FWAlertInfo("O próximo dia útil após a data informada é:"+DToC(dDataRet),"Função LastDay")
Return
É isso aí, finalizamos mais um post aqui no Blog ProtheusAdvpl, caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Até um próximo post. Grande abraço e fica com Deus.
Link(s) de referência:
