[Resolvido]Comparação entre Datas utilizando o IF

Colegas... Por incrível que pareça estou tendo problemas no código a seguir...

Tenho uma Data extraida da coluna de uma lista...

Preciso efetuar duas comparações

1 - Se a data da lista > Date e < Date + 90 dias
2 - Se a dara da lista < Date

Porem existindo na lista dois registros com (possibilidade 1 e 2) o código sempre remete a mesma condição na linha em vermelho..



Sub MudaCor()
Dim StrData, StrData_1 As Date
Dim i As Integer ' row placeholder
StrData_1 = DateAdd("d", 90, Date)

For i = 1 To lvxObj.ListItems.Count
' Define which row
Set lstItem = lvxObj.ListItems(i)
'Carrega na variável o valor da segunda coluna

StrData = lstItem.ListSubItems.Item(1)
MsgBox StrData
'Seta a cor basedo em um critério
If StrData > Date Then And StrDate < StrData_1 Then
lstItem.ListSubItems.Item(1).ForeColor = vbRed
lstItem.ListSubItems.Item(1).Bold = True
lstItem.ListSubItems.Item(1).ReportIcon = 6
ElseIf StrDate < Date Then
lstItem.ListSubItems.Item(1).ForeColor = vbRed
lstItem.ListSubItems.Item(1).ReportIcon = 11
lstItem.ListSubItems.Item(1).Bold = True
Else
lstItem.ListSubItems.Item(1).ForeColor = vbBlack
End If
Next i
Me.lstCNH.Requery
End Sub


Se puderem ajudar fico grato.

Tenho cá pra mim que o primeiro Then está de intruso na linha em vermelho. Tambem tenho cá pra mim que se declarar strData como Date tambem pode ajudar:

Dim StrData As Date, StrData_1 As Date

Perdoe-me havia uma aspa simples ai... eu estava testando....

If StrData > Date Then 'And StrDate < StrData_1 Then

Retirei a aspa quando postei a menssagem e esqueci de retirar o ptimeiro then

Cumprimentos.

Estava correto amigo.. pensei que da forma como fiz as duas variáveis estavam como Data


Só a título de informação, este código é utilizado para o Controle ActiveX ListView, e adiciona cores a um determinado registro em uma coluna da lista mediante critérios. Também adiciona ícones ao registro. Um controle que achei muito interessante e dá ao aplicativo uma aparencia muito profissional.


Codigo corrigido e funcionando:

Sub MudaCor()
Dim StrData As Date
Dim StrData_1 As Date

Dim i As Integer ' row placeholder
StrData_1 = DateAdd("d", 90, Date)
Me.txtCount = lvxObj.ListItems.Count
For i = 1 To lvxObj.ListItems.Count
' Define which row
Set lstItem = lvxObj.ListItems(i)
'Carrega na variável o valor da segunda coluna

StrData = lstItem.ListSubItems.Item(1)
'Seta a coor basedo em um critério
If StrData > Date And StrDate < StrData_1 Then
lstItem.ListSubItems.Item(1).ForeColor = vbBlue
lstItem.ListSubItems.Item(1).Bold = True
lstItem.ListSubItems.Item(1).ReportIcon = 2
ElseIf StrDate < Date Then
lstItem.ListSubItems.Item(1).ForeColor = vbRed
lstItem.ListSubItems.Item(1).ReportIcon = 4
lstItem.ListSubItems.Item(1).Bold = True
Else
lstItem.ListSubItems.Item(1).ForeColor = vbBlack
End If
Next i
Me.lstCNH.Requery
End Sub

Obrigado.

Certo. Essa é uma característica do Access, é preciso declarar cada variável individualmente.

Dim A, B, C As Integer ' apenas C está declarada como Integer. As outras ficaram como Variant
Dim A As Integer, B As Integer, C As Integer ' Todas as três agora são Integer

No Visual Basic já funciona de forma diferente. Lá, podemos fazer algo como:

Dim A As Integer = 1
Dim B As Integer = 0
Dim C As Integer = 0

Mas é assim mesmo. São tantas variáveis que às vezes acabam ficando variadas, hehehe.

Ela sem ser declarada corretamente fica como Variant então, apenas a ultima no caso fora declarada.

Obrigado amigão.


O print do modelo: