MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Calcular dias úteis

    avatar
    digitaltec
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 09/05/2020

    [Resolvido]Calcular dias úteis Empty [Resolvido]Calcular dias úteis

    Mensagem  digitaltec 23/1/2023, 18:36

    Olá saudações a todos, tenho um formulário Vendaslocacao, que ao preencher data inicial e data final ele mostre no campo total diárias, a quantidade de dias que ficou locado os produtos, já esta funcionando só que desejo que mostre somente os dias úteis. Segue bd para analise
    Anexos
    [Resolvido]Calcular dias úteis Attachmenttela.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 10 vez(es)

    digitaltec gosta desta mensagem

    avatar
    digitaltec
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 09/05/2020

    [Resolvido]Calcular dias úteis Empty Re: [Resolvido]Calcular dias úteis

    Mensagem  digitaltec 23/1/2023, 18:37

    Segue BD. Desde já agradeço a atenção de todos.
    Anexos
    [Resolvido]Calcular dias úteis Attachmentbase - Copia (4).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (354 Kb) Baixado 17 vez(es)

    digitaltec gosta desta mensagem

    avatar
    digitaltec
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 09/05/2020

    [Resolvido]Calcular dias úteis Empty Re: [Resolvido]Calcular dias úteis

    Mensagem  digitaltec 25/1/2023, 14:42

    Dim Datainicial As Date, DataFinal As Date
    Dim di As Date, dias As Integer
    Dim diaSemana As Integer, intFeriados As Integer

    Datainicial = Me.Datainicial
    DataFinal = Me.Datatermino

    dias = -1
    di = Datainicial
    While di <= DataFinal
    diaSemana = Weekday(di)
    If diaSemana <> 1 And diaSemana <> 7 Then
    dias = dias + 1
    End If
    di = di + 1

    Wend


    Me.Totaldiaslocado = CInt(dias)



    Após pesquisar bastante e com ajuda do professor Aldir do https://accessfacil.com/ consegui encontrar a solução. Segue código

    digitaltec gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Calcular dias úteis Empty Re: [Resolvido]Calcular dias úteis

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 05:33