ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Pesquisa resultou em 16 ocorrências

por genebaldorios
Qua Mar 11, 2020 1:06 am
Fórum: Excel + Access
Tópico: Cálcular dias uteis - DATEDIFF
Respostas: 6
Exibições: 8096

Re: Cálcular dias uteis - DATEDIFF [RESOLVIDO]

por genebaldorios
Qua Mar 11, 2020 12:44 am
Fórum: Excel + Access
Tópico: Cálcular dias uteis - DATEDIFF
Respostas: 6
Exibições: 8096

Re: Cálcular dias uteis - DATEDIFF

Prezados, Resolvido. Segue solução: SELECT a.ID, a.Data_Venda, a.Data_Envio, DateDiff('d',a.Data_Venda,a.Data_Envio) - (DateDiff ('ww', a.Data_Venda,a.Data_Envio) * 2) - (IIF(DatePart ('w', a.Data_Venda) = 1, 1 , 0)) - (IIF(DatePart ('w', a.Data_Envio) = 7, 1, 0)) - (SELECT Count(*) FROM Tb_Holidays...
por genebaldorios
Qua Mar 04, 2020 11:55 pm
Fórum: Excel + Access
Tópico: Cálcular dias uteis - DATEDIFF
Respostas: 6
Exibições: 8096

Re: Cálcular dias uteis - DATEDIFF

Reinaldo,

Segue, em anexo, arquivo com exemplo Calc_DU com arquivo access.
por genebaldorios
Qua Mar 04, 2020 1:22 am
Fórum: Excel + Access
Tópico: Cálcular dias uteis - DATEDIFF
Respostas: 6
Exibições: 8096

Re: Cálcular dias uteis - DATEDIFF

Reinaldo, Grato pelo retorno! To fazendo alguns testes no access e pensei na seguinte possibilidade: Contar os dias corridos, os feriados e os finais de semana entre duas datas. Após isso, fazer o seguinte cálculo para Dias uteis: DiasCorridos - feriados - sabados/domingos SELECT a.ID, a.Data_Venda,...
por genebaldorios
Sex Fev 21, 2020 1:11 am
Fórum: Excel + Access
Tópico: Cálcular dias uteis - DATEDIFF
Respostas: 6
Exibições: 8096

Cálcular dias uteis - DATEDIFF

Prezados (as), No VBA utilizo WorksheetFunction.NetworkDays.INTL(StartDate, EndDate, 7) - 1) e uma tabela de feriados para criar uma coluna calculada dos dias úteis entre datas. Em seguida, utilizo a rotina abaixo para fazer contagem com alguns critérios: Sub ConteSesVBA_Excel() Dim i As Long Dim ws...
por genebaldorios
Dom Dez 22, 2019 7:16 pm
Fórum: VBA Básico
Tópico: Dúvida sobre formatação de coluna do tipo data
Respostas: 1
Exibições: 541

Dúvida sobre formatação de coluna do tipo data

Pessoal, boa noite! Uma dúvida sobre formatação de coluna do tipo data: Ao tentar usar o Format(cells,1), "dd-mm-yyyy")) não tive êxito para formatar dados para o padrão Br (dd/mm/aaaa). Por isso, to usando duas rotinas no VBA: uma com dateserial e outra para colar os valores nas colunas . Alguma su...
por genebaldorios
Sex Dez 20, 2019 12:28 am
Fórum: Excel + Access
Tópico: Excel vba sql Filediag
Respostas: 3
Exibições: 4629

Re: Excel vba sql Filediag

Reinaldo,
Grato pela ajuda!
por genebaldorios
Ter Dez 17, 2019 8:19 am
Fórum: Excel + Access
Tópico: Excel vba sql Filediag
Respostas: 3
Exibições: 4629

Excel vba sql Filediag

Prezados, O código abaixo com adaptações pode ser utilizado para importação de vários arquivos txt? Sub ImportarArq() Dim cn As Object Dim Fd As Office.FileDialog Dim rsTAB As Recordset Dim rs As Object Dim Ws As String Dim query As String Dim nTab As Variant Dim SelectFile As Variant Dim i As Long ...
por genebaldorios
Ter Out 16, 2018 11:04 pm
Fórum: Excel + Access
Tópico: SQL VBA Exce Array
Respostas: 3
Exibições: 9274

Re: SQL VBA Exce Array

Essas, em anexo, são as telas das duas pastas de trabalho:
Uma pasta trabalho tem a planilha "base" e noutra pastra trabaho a planilha "Resultado"
por genebaldorios
Ter Out 16, 2018 10:28 pm
Fórum: Excel + Access
Tópico: SQL VBA Exce Array
Respostas: 3
Exibições: 9274

Re: SQL VBA Exce Array

Reinaldo, Primeiramente agradeço! Referente a : Não consegui identificar as bases diferentes, como e feita a seleção/conexão Perdão comentei a linha de código incorretamente: essa é a linha da conexão com a pasta trabalho externa: .ConnectionString = "Data Source=D:\SQL - Excel\testes\DBases.xlsx" E...