MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Calcular diferença entre datas sem dias uteis

    Compartilhe

    locopepe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 30/12/2010

    Calcular diferença entre datas sem dias uteis

    Mensagem  locopepe em Ter 07 Out 2014, 14:54

    Bom dia! Primeiramente gostaria de agradecer os membros colaboradores do fórum por compartilharem suas experiencias e multiplicar seus conhecimentos.

    Sou leigo na sintaxe de vba e venho pedir um auxilio para resolver um problema que não estou conseguindo resolver. Pesquisando aqui no forum mesmo achei uma solução que adaptei as minhas necessidades no topico
    [Você precisa estar registrado e conectado para ver este link.]

    A solução funcionou perfeitamente nos campos onde ha somente a data armazenada. Nos campos onde a data é armazenada no formato de data e hora completa apresenta estouro no tempo de execução "6".

    Pergunta:

    1. Como faço para resolver este problema?
    2  Na variavel DATAFIM eu posso ter valores nulos na tabela. Há possibilidade em vba de verificar se ha valores nulos e se for verdeiro, trazer a data atual do sistema?

    Public Function DiasUteis(datainicio As Date, DATAFIM As Date, Optional Estado As NomeEstado)
    Dim TotalDiasAtuais As Long, TotalDiasTrab As Long
    Dim strIniciaContagem As Long



    strIniciaContagem = 0
    TotalDiasAtuais = (DATAFIM - datainicio)

    Do
    If FeriadoBrasileiro(datainicio, Estado) Or Weekday(datainicio) = 7 Or Weekday(datainicio) = 1 Then
    strIniciaContagem = strIniciaContagem + 1
    End If

    datainicio = datainicio + 1

    Loop Until datainicio = DATAFIM + 1

    TotalDiasTrab = TotalDiasAtuais - strIniciaContagem
    DiasUteis = TotalDiasTrab
    Exit Function
    End Function

    Desde já agradeço!
    Anexos
    erro access.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (68 Kb) Baixado 4 vez(es)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: Calcular diferença entre datas sem dias uteis

    Mensagem  JPaulo em Qui 09 Out 2014, 16:27

    Utilize o Date(SeuCampo) para extraír somente a data.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

      Data/hora atual: Sab 03 Dez 2016, 02:22