CALCULO DE DATA NO FLEXGRID

USUARIO.EXCLUIDOS 28/11/2006 23:57:34
#186864
Estou com uma enorme duvida, o codigo abaixo e de uma agenda de compromissos que estou fazendo , entao esse codigo ele funciona da seguinte forma, ele verifica na coluna 2 do flexgrid se a data e menor que a DATA ATUAL DO SISTEMA, se for menor vai pintar de vermellho a linha , so que seguinte esta acontecendo um erro, existe uma data 1/12/2006 ela esta ficando em vermelho, gostaria de saber como arrumar issow, minha subtracao esta pegando apenas o dia e nao a data inteira em si.HELPPPP

Segue o codigo abaixo.

With command
.ActiveConnection = conexao
.CommandType = adCmdText
.CommandText = "select * from compromisso"
Set rs = .Execute
End With
With rs
Set vercompromissos.DataSource = rs
With vercompromissos
For i = 0 To .Rows - 1
If .TextMatrix(i, 2) < Date Then
MsgBox .TextMatrix(i, 2)
.Row = i
For j = 0 To .Cols - 1
.Col = j
.CellForeColor = &HFF&
Next
End If
Next i
End With

End With
HUGOSSOUZA 29/11/2006 00:02:34
#186865 Resposta escolhida
tenta usar o cvdate
to sem vb aqui e nao lembro como que fica qdo usa com o with.
mas o cvdate funciona assim:

if cvdate(SuaData) < cvdate(date) then
   msgbox "Data menor que a data atual"
else
   msgbox "Data maior que a data atual"
endif


tenta aplicar isso na sua rotina
USUARIO.EXCLUIDOS 29/11/2006 12:36:41
#186940
HUGOSSOUZA,
cara que vacilowww meu que eu tava dando, me apresentava um erro mais ou menos assim type mismatch, fui ver eu tava comecando a fazer contagem da primeira linha, nao tava dando certo , ela é fixa...

maissss vlw'sssssss

foi ate bom que nao conheci a funcao cvdate() e ate procurei saber mais sobre ela inteh

e vlw's pela ajuda!

:p
USUARIO.EXCLUIDOS 29/11/2006 23:04:32
#187080
Você pode usar tb DateDiff, que no caso retornará quantos dias a data originaria já ultrapassou da data do sistema.

Ok!

Até mais,

Guardião!
USUARIO.EXCLUIDOS 29/11/2006 23:40:32
#187092
brown seguinte, ja que estamos aqui estou na mesma funcao essa do topico deu certo gostaria de fazer uma coisa , gostaria de colocar o fundo de somente uma celula mais nao ta dando certo , codigo abaixo

With vercompromissos
For i = 1 To .Rows - 1

'verifica se e com urgencia
If .TextMatrix(i, 9) = "sim" Then
.Row = i
.CellBackColor = &HFF&
End If
Next i

ele esta colorindo sempre a altima celular , mais so colori quando a celular
.TextMatrix(i, 9) = "sim" for verdadeiro , o estranho que deveria colorir a celula da instrucao e nao a ultima celular o que pode ser ??


grato desde ja :p
USUARIO.EXCLUIDOS 29/11/2006 23:49:36
#187094 
        For i = 1 To .Rows - 1 

          'verifica se e com urgencia 
            If .TextMatrix(i, 9) = "sim" Then 
              .Row = i 
              For j = 1 to .Cols
                .Col = j
                .CellBackColor = &HFF& 
              Next
            End If 
        Next i


Tenta da forma acima para colorir a linha
HUGOSSOUZA 30/11/2006 07:23:34
#187099
tenta colocar qual a coluna tbm

  With vercompromissos
        For i = 1 To .Rows - 1

          'verifica se e com urgencia
            If .TextMatrix(i, 9) = "sim" Then
             .col = ??? 
             .Row = i
             .CellBackColor = &HFF&
            End If
        Next i
Tópico encerrado , respostas não são mais permitidas
Voltar