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

    [Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de...

    Compartilhe

    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 28/08/2016

    [Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de...

    Mensagem  JIR em 2/5/2018, 22:52

    Olá Mestres,

    adaptei um código encontrado neste fórum para o calculo de faixa etária dos funcionários e deparei-me com algo estranho

    ao abrir o relatório que dispõe os funcionários por faixa etária e empresa reparei que quando contem datas de nascimento iniciadas em 29-02, não abre e dá erro

    poderão ajudar qual o erro

    anexo exemplo para melhor entendimento

    meus agradecimentos

    José Silva
    Anexos
    Estudo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (93 Kb) Baixado 2 vez(es)
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 30/07/2012

    Re: [Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de...

    Mensagem  wellingtoneo em 2/5/2018, 23:46

    Olá, boa noite!

    Veja se atende...

    Bons estudos!
    Anexos
    Estudo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (92 Kb) Baixado 8 vez(es)

    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 73
    Registrado : 28/08/2016

    Re: [Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de...

    Mensagem  JIR em 3/5/2018, 00:47

    Olá wellingtoneo

    pelos vistos esta linha de código não tinha indicação do formato data

    If CDate(aniversario & "/" & anoAtual) <= Date Then

    Agora assim, funciona

    If Format(aniversario & "/" & anoAtual, "dd/mm/yyyy") <= Date Then


    Muito Obrigado

    Abraço

    José Silva
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 30/07/2012

    Re: [Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de...

    Mensagem  wellingtoneo em 3/5/2018, 03:11

    Isso mesmo, se você observar o erro é do tipo de variável incompatível... Logo ele estava comparando tipos diferentes!
    Disponha!

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