MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    calcular tempo de empresa

    Compartilhe

    mizneguinha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 18
    Registrado : 01/06/2017

    calcular tempo de empresa

    Mensagem  mizneguinha em 22/3/2018, 23:26

    Ola pessoas,

    Preciso calcular o tempo de empresa dos funcionário, porem nao estou conseguindo o retorno em meses. desde já agradeço a boa vontade
    Ex:
    Joao = 1 ano
    Pedro = 3 meses
    Carlos = 2 e 9 meses


    Apartir da data de Admissao

    Caixa de texto Admissao . A Data de Admisao
    Caixa de texto TempoEmpresa. Resultado do calculo

    Esta so me retorna o anos caso a pessoa so trabalho alguns meses, fica 0

    Function CalculaTempo(Admissao As Variant) As Variant

    On Error GoTo Idade_Err

    'Evita o erro de data não preenchida
    If IsNull(Admissao) Then
    CalculaTempo = ""
    Exit Function
    End If

    'Declarando Variáveis
    Dim DataHoje As Variant, DiaHoje As Integer
    Dim MesNasc As Integer, DiaNasc As Integer
    Dim DifAnos As Integer, MesHoje As Integer

    ''Isola as partes (dia/mês) das duas datas
    DiaHoje = DatePart("d", Now)
    MesHoje = DatePart("m", Now)
    DiaNasc = DatePart("d", Admissao)
    MesNasc = DatePart("m", Admissao)

    ''Calcula a diferença de anos
    DifAnos = DateDiff("yyyy", Admissao, Now)

    ''Verifica dia/mês de nascimento
    If MesHoje < MesNasc Then
    DifAnos = DifAnos - 1
    ElseIf MesHoje = MesNasc Then
    If DiaHoje < DiaNasc Then
    DifAnos = DifAnos - 1
    End If
    Else
    End If

    ''Valor final da função
    CalculaTempo = DifAnos

    idade_Fim:
    Exit Function

    Idade_Err:
    MsgBox Err.Description
    Resume idade_Fim
    End Function
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1993
    Registrado : 13/04/2012

    Re: calcular tempo de empresa

    Mensagem  Fernando Bueno em 23/3/2018, 02:20

    Boa noite, utilize a seguinte função que obterá o resultado esperado.

    Pode procurar também na sala de repositório de exemplos por calcula idade.

    Se houver dificuldade pode estar anexando seu banco para melhor ajudarmos.

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: 21/11/2018, 02:22