Ir ao conteúdo
  • Cadastre-se
Rubens Rosa

VB.NET subtrair datas no datagridview vb.net

Recommended Posts

Olá pessoas. Sou novo aqui. Já procurei em vários fóruns mas não obtive sucesso

Estou tendo dificuldades em gerar uma rotina que subtraia datas em um datagridview e a partir dai colocar condições em outra colunas: como "dias para vencer" e "status"

 

Seria uma tela de consulta, onde a datagridview é alimentada por um bd.

 

As informações estão carregando corretamente, mas não sei a melhor forma para fazer essa subtração e condições nas outras colunas: "SELECT CASE", "IFs" ou "FOR NEXT"

 

Consegui fazer em apenas uma linha com o CURRENTROW, mas queria que atualiza-se todas as linhas no meu GridView

 

modelo exemplo

image.png.d5855a622fd32bb7174401a1ccd93320.png

 

 

No caso da Data Lançamento será ignorada e utilizada a DATE.TODAY para que seja sempre a data de hoje para que as condições funcionem diariamente.

 

Não sei se fui muito claro...poderiam me ajudar?

 

Desde já agradeço.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esqueci de mencionar que queria que isso acontecesse no tempo de execução do Form que está o datagridview

adicionado 51 minutos depois

Consegui algo que me atende aqui....

 

 Private Sub Frm_Consultar_ContasPagar_Activated(sender As Object, e As EventArgs) Handles Me.Activated

        '-------------- verifica se o Grid está vazio
        If Dgv_Consulta_ContasPagar.Rows.Count = 0 Then

            Exit Sub

        Else

            Dim Vencimento As Decimal

            For i = 0 To Dgv_Consulta_ContasPagar.RowCount - 1

                '------------ data de vencimento subrtraida pela data de hoje()
                Vencimento = DateDiff(DateInterval.Day, Date.Today, Dgv_Consulta_ContasPagar.Rows(i).Cells(5).Value).ToString

                '------------ verifica se a coluna 5 (Data de vencimento) possui dados
                If Dgv_Consulta_ContasPagar.Rows(i).Cells(5).Value > "01/01/1900" Then

                    '------------- se a condição for verdadeira lança na coluna 7 o resultado
                    Dgv_Consulta_ContasPagar.Rows(i).Cells(7).Value = Vencimento & " dia(s)"

                End If

            Next

        End If

    End Sub

coloquei esse codigo no Activated do formulário e nas rotinas toda vez que quero atualizar o datagridview

 

Espero ajudar alguem ;)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×