Nesse vídeo demonstraremos a utilização das funções Min e Max, que servem para retornar o valor mínimo (menor) e máximo (maior) entre duas variáveis informadas.
Inscreva-se no Canal
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | //Bibliotecas#Include "Totvs.ch"/*/{Protheus.doc} User Function zExe340Pega o valor minimo entre dois valores e o máximo entre dois valores@type Function@author Atilio@since 12/03/2023@see https://tdn.totvs.com/display/tec/Min e https://tdn.totvs.com/display/tec/Max@obs Função Min Parâmetros + xExp1 , Indefinido , Primeiro valor a ser comparado + xExp2 , Indefinido , Segundo valor a ser comparado Retorno + xMenor , Indefinido , Retorna o menor valor Função Max Parâmetros + xExp1 , Indefinido , Primeiro valor a ser comparado + xExp2 , Indefinido , Segundo valor a ser comparado Retorno + xMaior , Indefinido , Retorna o maior valor **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****/*/User Function zExe340() Local aArea := FWGetArea() Local nValor1 := 5 Local nValor2 := 2 Local dData1 := sToD("20230304") Local dData2 := sTod("20230310") Local cMensagem := "" //Monta a mensagem, buscando o menor e maior valor entre as datas e números cMensagem += "Numérico" + CRLF cMensagem += "Menor: " + cValToChar( Min(nValor1, nValor2) ) + CRLF cMensagem += "Maior: " + cValToChar( Max(nValor1, nValor2) ) + CRLF cMensagem += CRLF cMensagem += "Data" + CRLF cMensagem += "Menor: " + cValToChar( Min(dData1, dData2) ) + CRLF cMensagem += "Maior: " + cValToChar( Max(dData1, dData2) ) ShowLog(cMensagem) FWRestArea(aArea)Return |
Bom pessoal, por hoje é só.
Abraços e até a próxima.
