Datas dias decorridos num semana excel vba

Tempo de leitura: 1 minuto

Datas dias decorridos num semana Excel VBA Estas funções do Aplicativo Microsoft Excel VBA(Visual Basic Application), retornam o número da Semana do Ano, com relação a determinadas data e outra função também personalizada retorna os dias Decorridos durante o ano, com base em determinada data, Sempre estamos utilizando funções que se usa muito num format do vba, há como facilitar o trabalho usando linhas de códigos para que o conteúdo desejado seja formatado de acordo com nossa necessidade em células da folha de planilha do Excel, muitas vezes quando fazemos uma concatenação de datas geralmente concatenam day(now), month(now) e year(now) por isso há outras funções que fazem isso com mais perfeição que poderemos usar o a função DateSerial(Year(Now), Month(Now), Day(Now)), também temos a o Format, que facilita muito para formatarmos quando há necessidade, principalmente quando usamos planilhas que foram formatada em idioma diferente do nosso, geralmente aparecem muito em inlges.

FUNÇÕES PERSONALIZADAS: CALCULAR NUMERO SEMANA E DIAS DECORRIDOS

‘//=====’Funcão para calcular o numero de dias decorridos
Function DiasDecorridos(Data)
DiasDecorridos = Data – DateSerial(Year(Data) – 1, 12, 31)
End Function

‘//=====’Função calcular o número da semana base data
Function NumeroSemana(Data As Date) As Integer
    Dim Semana As Integer
    Semana = Int((Data – DateSerial(Year(Data), 1, 1) + _
        ((Weekday(DateSerial(Year(Data), 1, 1)) + 1) _
        Mod 7) – 3) / 7) + 1
    If Semana = 0 Then
        Semana = NumeroSemana(DateSerial(Year(Data) – 1, 12, 31))
    ElseIf Semana = 53 And (Weekday(DateSerial(Year(Data), 12, 31)) – 1) _
        Mod 7 <= 3 Then
        Semana = 1
    End If
    NumeroSemana = Semana
End Function

‘//=====’
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos. Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.

u – Procedimentos de Aquisição dos produtos Didáticos SaberExcel