Página 1 de 1

Regra DataDiff

Enviado: Sex Ago 09, 2019 6:27 pm
por Euber Ferraz
olá pessoal, estou com dificuldades para criar uma regra com DataDiff para gerar paramentro em datas de vencimento com base na data atual do sistema, segue exemplo:

Data de Vencimento: 30/08/2019
05/08/2019
05/07/2019
a) Quando faltar 15 dias para vencer começar contagem regressiva, caso contrario "Dentro do Prazo"

b) Se vencida "Vencida"

c) Se vencida a mais de 30 dias "Crítico"

Agradeço pela ajuda.

Re: Regra DataDiff

Enviado: Sex Ago 09, 2019 10:15 pm
por Reinaldo
Algum motivo especifico para utilizar DataDiff?
Pelo exposto a simples diferença de data, aparentemente, atende
Supondo que o comparativo seja Vencimento vx Data de Hoje; teremos Algo +/- assim:

Código: Selecionar todos

=SE(DataVencimento-DataHoje>15;"No Prazo";SE(E(DataVencimento-DataHoje>0;DataVencimento-DataHoje<16);"Faltam "&DataVencimento-DataHoje&" dias para Vencer";SE(E(DataVencimento-DataHoje<0;DataVencimento-DataHoje>-31);"Vencido";"Critico")))

Re: Regra DataDiff

Enviado: Sáb Ago 10, 2019 10:54 am
por Euber Ferraz
Obrigado por atender Reinaldo.

Como estou usando UserForm, criei uma Sub para fazer a regra como você sugeriu, porem esta com um probleminha:

Private Sub StatusVencimento()
Dim DataBase As Date
Dim Vencimento As Date
Dim QuardaStatus As String

DataBase = Format(Now, "yyyy-mm-dd")

If Vencimento - DataBase > 15 Then
QuardaStatus = "Dentro do Prazo"
ElseIf Vencimento - DataBase > 0 And Vencimento - DataBase < 16 Then
QuardaStatus = "À Vencer"
ElseIf Vencimento - DataBase < 0 And Vencimento - DataBase > -31 Then
QuardaStatus = "Vencido"
Else
QuardaStatus = "Crítico"
End If

End Sub

Usei como exemplo os vencimentos abaixo e DataBase 10/08/2019:

06/07/2019 "Crítico" - OK
04/08/2019 " Dentro do Prazo", deveria ser "vencido"
10/08/2019 "Vencido" OK
28/08/2019 "Dentro do Prazo" OK
24/08/2019 "Dentro do Prazo" deveria ser "À Vencer"

Agradeço se analisar.

Re: Regra DataDiff

Enviado: Sáb Ago 10, 2019 7:21 pm
por Reinaldo
Na rotina acima não é indicado como é obtido o valor da Variável Vencimento? Assim fica dificil entender o que ocorre.
Mas tentemos supondo que a origem seja planilha coluna "A"
Veja no anexo a coluna B o retorno