Nesse vídeo demonstraremos a utilização da função DiffDate que serve para validar se uma data é maior que a outra.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe143 Verifica se as datas são válidas a inicial menor que a final @type Function @author Atilio @since 16/12/2022 @obs Função DiffDate Parâmetros + Data inicial a ser comparada + Data final a ser comparada Retorno + .T. se a data final for maior que a inicial ou .F. se a data final for menor que a inicial **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe143() Local aArea := FWGetArea() Local dDataIni Local dDataFim //Monta as datas e faz a comparação dDataIni := sToD("20220705") dDataFim := sToD("20220715") If DiffDate(dDataIni, dDataFim) FWAlertSuccess("A data final é maior que a inicial", "Teste 1 DiffDate") Else FWAlertError("A data final é menor que a inicial", "Teste 1 DiffDate") EndIf //Monta as datas e faz a comparação dDataIni := sToD("20220131") dDataFim := sToD("20220110") If DiffDate(dDataIni, dDataFim) FWAlertSuccess("A data final é maior que a inicial", "Teste 2 DiffDate") Else FWAlertError("A data final é menor que a inicial", "Teste 2 DiffDate") EndIf FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.