Nesse vídeo demonstraremos a utilização da função DateComp que traz a diferença em dias ou meses entre duas datas.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe108 Calcula dias ou meses entre duas datas @type Function @author Atilio @since 12/12/2022 @obs Função DateComp Parâmetros + Data inicial + Data final + Define se quer saber a diferença entre: DD ou MM Retorno + Retorna a quantidade de dias; meses ou anos A função até tem parametrização para receber anos (com YY), mas o cálculo sempre retorna incorreto, então evitem usar para anos, usem apenas para dias ou meses **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe108() Local aArea := FWGetArea() Local dDataIni := sToD("19930712") Local dDataFim := Date() Local nDias := 0 Local nMeses := 0 Local cMensagem := "" //Busca a diferença em dias e meses nDias := DateComp(dDataIni, dDataFim, "DD") nMeses := DateComp(dDataIni, dDataFim, "MM") //Monta a mensagem e a exibe cMensagem := "Abaixo diferença entre as duas datas" + CRLF + CRLF cMensagem += "Dias: " + cValToChar(nDias) + " ou " + CRLF cMensagem += "Meses: " + cValToChar(nMeses) + CRLF FWAlertInfo(cMensagem, "Teste DateComp") FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.