Usando DateDiff, por Alexandre de Luccia

Não vejo exemplos simples de como usar o DateDiff na web, vendo que é muito importate no desenvolvimento de diversas aréas de um sistema decidi comentar sobre o assunto.

Vamos fazer isso usando o DateDiff, excelente para disparo de e-mail em datas pré-progamadas pelo sistema.

Abaixo um Exemplo simples da rotina a ser usada:

<% 
'Declarando variáveis
Dim data1, data2, Ddata

data1 = #17/06/2007# 'Data Definida
data2 = date() 'Pega Data Atual

'Conta a quantidade de dias de diferença entre Data Atual e Data Definida
Ddata = DateDiff("d", data1, data2) 

'Se fdata for menor ou igual a três, entra na rotina programada
if Ddata >= 3 then
response.write "Entra em rotina programada."
Else
response.write "Fica fora da rotina programada."
End if
%>

[CODE]
<%
'Declarando variáveis
Dim data1, data2, Ddata

data1 = #17/06/2007# 'Data Definida
data2 = date() 'Pega Data Atual

'Conta a quantidade de dias de diferença entre Data Atual e Data Definida
Ddata = DateDiff("d", data1, data2)

'Se fdata for menor ou igual a três, entra na rotina programada
if Ddata >= 3 then
response.write "Entra em rotina programada."
Else
response.write "Fica fora da rotina programada."
End if
%>
[/CODE]

Qualquer dúvida entre em contato comigo deixando um comentário.

Abraços!

Alexandre de Luccia

Marcos <marcosdamiaoromeiro@hotmail.com>

Muito boa essa dica mas eu gostaria de aprender como eu facço pra ver a diferença de dias/mes/anos da data que eu digitar e da atual? se possivel tambem me retorne o dia da semana que caiu essa diferença.

Dayse <dayseataides@gmail.com>

Bom dia!
Estou com um problema no crystal report.
Estou usando o datadiff e esta dando um erro : The remaining text does not appear to be part of the formula.
O código é o segunte:
Dim dDatadif as Number
Dim nRemuneracao as Number
Dim nSoma as Number
Dim formula as Number
Dim Datavencimento as number
Dim Databaixa as Number

nSoma = {@Total}
Datavencimento = (
(Mid ({Prestacao_de_contas_porcento.parcelas_vencimento},7 ,2 ))
,
(Mid ({Prestacao_de_contas_porcento.parcelas_vencimento},5 ,2 ))
,
(Mid ({Prestacao_de_contas_porcento.parcelas_vencimento},1 ,4 ))
)

Databaixa = (
Mid ({Prestacao_de_contas_porcento.parcelas_baixa},7 ,2 )
,
Mid ({Prestacao_de_contas_porcento.parcelas_baixa},5 ,2 )
,
Mid ({Prestacao_de_contas_porcento.parcelas_baixa},1 ,4 )
)

dDatadif = DateDiff ( "d", #Datavencimento#, #Databaixa#)

If {Prestacao_de_contas_porcento.clientes_id}= 408 then
If (dDatadif)< 5 Then
nRemuneracao = 0.00
Else If
(dDatadif)>= 5 and (dDatadif)<= 30 Then
nRemuneracao = ((nSoma 1.5)/100)
Else If
(dDatadif)>= 31 and (dDatadif)<= 60 Then
nRemuneracao = ((nSoma 3)/100)
Else If
(dDatadif)>= 61 and (dDatadif)<= 90 Then
nRemuneracao = ((nSoma 4.5)/100)
Else If
(dDatadif)>= 91 and (dDatadif <= 180 Then
nRemuneracao = ((nSoma 6)/100)
Else If
(dDatadif)>= 181 Then
nRemuneracao = ((nSoma 10)/100)
End if
End if
End if
End If
End if
End if
Else
If (dDatadif)< 20 Then
nRemuneracao = 0.00
Else If
(dDatadif)>= 20 and (dDatadif)<= 60 Then
nRemuneracao = ((nSoma 2)/100)
Else If
(dDatadif)>= 61 and (dDatadif) <= 90 then
nRemuneracao = ((nSoma 4)/100)
Else If
(dDatadif)>= 91 and (dDatadif)<= 120 Then
nRemuneracao = ((nSoma 6)/100)
Else If
(dDatadif)>= 121 Then
nRemuneracao = ((nSoma 8)/100)
end If
End if
End if
End If
End If
End if

formula = nRemuneracao

Pode me ajudar?

Grata,

Dayse Souza : Não avaliado

Gabriel Maraccini <gabriel-gmm@hotmail.com>

Cara.. excelente esse tutorial e vejo que esse DateDiff ajuda bastante. Só tenho uma dúvida : Preciso condicionar a data atual 31 dias, como faria isso ?

Ex: Se a Data = DataAtual 30 dias então a cor da fonte fica vermelha

Obrigado