none
Comparar datas e desprezar fim de semanas RRS feed

  • Pergunta

  • Bom dia.

    Estou comparando datas e utilizando o critério de 3 dias uteis porem tenho que desconsiderar Sab. e Domingo segue abaixo trecho do codigo

    i = 5
    Do
      
      'se existir uma célula vazia preenche com a data de hoje
      If (Range("K" & i).Value = "") And (Range("A" & i).Value <> "") Then
        Range("K" & i).Value = Date
      End If
        
        
      If Range("J" & i).Value = "" Then
        Range("L" & i) = ""
      ElseIf Range("J" & i).Value = Range("K" & i).Value Then
        Range("L" & i) = "OK"
        Range("L" & i).Interior.ColorIndex = 10
      ElseIf Range("J" & i).Value <> Range("K" & i).Value Then
        data1s = Range("K" & i).Value
        data2s = Range("J" & i).Value
        
        
        'resultado = DateDiff("d", data2s, data1s)
        datalimite = data2s + 3
        
        'WeekdayName (datalimite)
        
    
        
        If data1s < datalimite Then
          Range("L" & i) = "OK"
          Range("L" & i).Interior.ColorIndex = 10
          
        ElseIf datalimite = data1s Then
          Range("L" & i) = "Alerta"
          Range("L" & i).Interior.ColorIndex = 6
        
        Else
          Range("L" & i) = "Critico"
          Range("L" & i).Interior.ColorIndex = 3
        End If
           
      End If
    
      i = i + 1
    Loop Until i = 1000

     

    quarta-feira, 5 de junho de 2013 11:12

Todas as Respostas

  • Poderia ser mais específico na pergunta? O que quis dizer quando afirmou que está usando o critério de 3 dias úteis?

    Você postou o código, mas não consigo entender o que se passa porque não sei como é a estrutura de sua tabela.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 5 de junho de 2013 21:49
    Moderador