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...

    avatar
    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de... Empty [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
    [Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de... AttachmentEstudo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (93 Kb) Baixado 2 vez(es)
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de... Empty 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
    [Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de... AttachmentEstudo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (92 Kb) Baixado 8 vez(es)
    avatar
    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de... Empty 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
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de... Empty 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!

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 20/7/2019, 11:13