Nesse vídeo demonstraremos a utilização da função fDias2Anos, que serve para calcular a quantidade de anos, meses e dias conforme um determinado número de dias.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe173
Calcula um número de anos, meses e dias conforme a quantidade de dias passadas em um parâmetro
@type Function
@author Atilio
@since 20/12/2022
@obs 
    Função fDias2Anos
    Parâmetros
        + Tempo total em dias
        + Número de anos que será calculado
        + Número de meses que será calculado
        + Número de dias que será calculado
    Retorno
        Função não tem retorno

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe173()
    Local aArea      := FWGetArea()
    Local nDiasTot   := 1054
    Local nAnos      := 0
    Local nMeses     := 0
    Local nDias      := 0
    Local cMensagem  := ""

    //Calcula o total de anos, meses e dias
    fDias2Anos(nDiasTot, @nAnos, @nMeses, @nDias)

    //Monta uma mensagem de teste e exibe
    cMensagem := "Em um total de " + cValToChar(nDiasTot) + " dia(s), o resultado é: " + CRLF + CRLF
    cMensagem += cValToChar(nAnos) + " anos, " + cValToChar(nMeses) + " meses e " + cValToChar(nDias) + " dias"
    FWAlertInfo(cMensagem, "Teste com fDias2Anos")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++