[Resolvido] Cálculo de Datas

[pedrovisk 1]

Turma,

 

Tenho um campo DtAdminissao que informa a data de entrada de um fulano na empresa. Este campo fica em um Loop trazendo todos os registro do BD. Eu gostaria que esse campo ficasse destacado na cor VEMELHA quando o fulano tivesse menos de 30 dias de admissão na empresa e na cor normal (sem destaque) quando tivesse acima de 30 dias.

Tentei montar, conforme abaixo e acaba ficando TUDO em vermelho.

 

Qual seria a correção a fazer para que ficasse em vermelho apenas os campo com MENOS de 30 dias?

 

'Calcula a data de Admissão com menos de 30 dias
DtFinal = Trim((rs.Fields.Item("DtAdmissao").Value))

	DtAFrente = DateDiff("D",Now,DtFinal)

	If DtAFrente < 30 Then
		DtFinal = "<font color='#FF0000'>" &DtFinal& "</font>"
	Else
		DtFinal = DtFinal
	End If
%>

<td align="center"><%=DtFinal%></td>

Muito obrigado a quem poder ajudar.

 

Pedro.

[Ted k' 126]

simples, usa ABS()

 

assim

 

If ABS(DtAFrente) < 30 Then

[pedrovisk 1]

Muito obrigado Ted k'!

 

Abraço,

 

Pedro.

[Ted k' 126]

tranqüilidade, qualquer coisa avisa!!