VENCIMENTO DE CONTA DATAGRIDVIEW

WAGNERMOREIRA05 24/01/2013 23:27:16
#418071
[txt-color=#e80000]Boa noite galerinha, Estou com um pequeno problema, eu tenho uma datagrid com as colunas Conta, Valor, Vencimento e situação
O problema está na Situação, Quero que a coluna Situação mostre quantos dias falta para vencer ou se já venceu.
Estou usando o Visual Basic 2010 Banco de dados Access...
Grato

Wagner[/txt-color]
JESUEL.OLIVEIRA 24/01/2013 23:32:26
#418072
Amigo, veja o código abaixo.

  
MsgBox(DateDiff(DateInterval.Day, CType([Ô]01/01/2013[Ô], Date), CType([Ô]24/01/2013[Ô], Date)))
WAGNERMOREIRA05 24/01/2013 23:53:28
#418073
Esse codigo que você passou vai mostra uma mensagem na tela, e o que eu quero é que ele mostre na celula [Ô]situação[Ô]
EX:
Calculo Referente ao dia 24/01/2013
Verde: Dentro da data de Vencimento
Amarelo: Último dia para pagto.
Vermelho: Vencido


Conta | Valor | Vencimento | Situação
Água | 40,00 | 26/01/2013 | Verde
Luz | 65,00 | 22/01/2013 | Vermelho
Telefone | 150,00 | 24/01/2013 | Amarelo
JESUEL.OLIVEIRA 25/01/2013 00:25:39
#418077
Como você carrega o GRID?,
Você pode por no SELECT com calculo de datas.

abaixo uma forma que utilizo, funciona, só não calcula a data, mas da para adaptar.

  STRSsql = [Ô]select count(entreg_status), case entreg_status when 0 then [ô]Não Iniciada[ô] when 1 then [ô]Iniciada em trânsito[ô] when 2 then [ô]Concluída[ô]  end as Status from mov_entrega group by entreg_status[Ô]  


  

depois que carrego os dados, eu rodo esta sub e vou colorindo as linha conforme preciso. adapte da forma que achar melhor.
    Private Sub colorir_linhas_ngerada()
        [ô]alterar status 0 - não iniciada, 1 - iniciada em transito, 2 - entregue

        Dim varlinha As Integer
        varlinha = 0
        For x = 0 To DtVendas.RowCount - 1
            If DtVendas.Rows(x).Cells(3).Value.ToString = [Ô]Não Iniciada[Ô] Then
                DtVendas.Rows(x).DefaultCellStyle.BackColor = Color.Red
            ElseIf DtVendas.Rows(x).Cells(3).Value.ToString = [Ô]Iniciada em trânsito[Ô] Then
                DtVendas.Rows(x).DefaultCellStyle.BackColor = Color.YellowGreen
            ElseIf DtVendas.Rows(x).Cells(3).Value.ToString = [Ô]Concluída[Ô] Then
                DtVendas.Rows(x).DefaultCellStyle.BackColor = Color.Green
            Else
                DtVendas.Rows(x).DefaultCellStyle.BackColor = Color.Yellow
            End If
        Next
    End Sub
WAGNERMOREIRA05 25/01/2013 11:44:17
#418101
Não entendi a parte do [Ô]STRSsql[Ô]

Mais o que eu entendi ele já tem alguns dados armazenado na tabela status no banco de dados do seu programa.
MARCELO.TREZE 25/01/2013 12:09:01
#418102
olha na realidade oque se postar aqui pouco vai te servir, uma vez que vc possui VB2010 que é (VB.NET) e este forum é apenas para vb6 e vba, poste sua duvida no site VB.NET,
JESUEL.OLIVEIRA 25/01/2013 12:12:09
#418103
STRSsql é uma string onde armazeno as QUERYS e depois passo para executar só isso. para calcular os dias use no SELECT

  
SELECT (DATE(TABELA.DATAFINAL)-DATE(TABELA.DATAINICIAL)) AS DIASDECORRIDOS FROM TABELA


Depois você colori as linhas conforme código acima
WAGNERMOREIRA05 25/01/2013 12:39:33
#418105
Valeu, vou postar essa pergunta por lá.

vou testar o seu agora.

é que sou novo nesse site. mais valeu verdade..
Tópico encerrado , respostas não são mais permitidas
Voltar