COMO FAZER CALCULO DE HORAS EM UM DATAGRIDVIEW???
boa tarde gente estou tentando calcular horas em um datagridview, faço pesquisa no sql eh trago em um coluna no datagridview!! ai quando eu calculo valores ate dar 24 hora ele mostra normal mais depois de 24 horas ele começa a mostra como dia 1, dia 2, dia 3 e asssim vai!!! ai ja conseguir fazer os dias ficarem em horas!!! mais hora cheia queria juntar o dois em horas!!! me ajundem ai pessoa por favorl!!!
meu codigo esta assim
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For Each Linha As DataGridViewRow In Me.data_gt.Rows
Dim valor As Date
If Not Linha.IsNewRow Then
[ô]Executa a soma dos valores da coluna 6
valor += Linha.Cells(([Ô]total_horas[Ô])).Value
Me.Label11.Text = valor
End If
Next
For Each Linha As DataGridViewRow In Me.data_gt.Rows
Dim valor2 As Double
Dim valor As Date
Dim S As Double
If Not Linha.IsNewRow Then
[ô]Executa a soma dos valores da coluna 6
valor += Linha.Cells(6).Value
[ô]valor3 += Linha.Cells(6).Value
Me.Label11.Text = valor
valor2 = Val(valor) - 1
If Val(valor) > Val([Ô]24:00:00[Ô]) Then
Val(valor2 * 24)
[ô]TextBox3.Text = Entrada.day()
End If
Me.txtDate.Text = S
If valor2 > 0 Then
Me.TextBox2.Text = (Val(valor2.ToString([Ô]00,00[Ô]) * 24))
End If
End If
Next
End Sub
meu codigo esta assim
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For Each Linha As DataGridViewRow In Me.data_gt.Rows
Dim valor As Date
If Not Linha.IsNewRow Then
[ô]Executa a soma dos valores da coluna 6
valor += Linha.Cells(([Ô]total_horas[Ô])).Value
Me.Label11.Text = valor
End If
Next
For Each Linha As DataGridViewRow In Me.data_gt.Rows
Dim valor2 As Double
Dim valor As Date
Dim S As Double
If Not Linha.IsNewRow Then
[ô]Executa a soma dos valores da coluna 6
valor += Linha.Cells(6).Value
[ô]valor3 += Linha.Cells(6).Value
Me.Label11.Text = valor
valor2 = Val(valor) - 1
If Val(valor) > Val([Ô]24:00:00[Ô]) Then
Val(valor2 * 24)
[ô]TextBox3.Text = Entrada.day()
End If
Me.txtDate.Text = S
If valor2 > 0 Then
Me.TextBox2.Text = (Val(valor2.ToString([Ô]00,00[Ô]) * 24))
End If
End If
Next
End Sub
olha uma imagem de como esta ai pra ver se ajuda!!! sou novo nisso ehh tem menos de um mes que comecei a mexer com isso mais estou adorando!!! me ajudem a terminar meu projeto gente por favor!!!! obrigado
Gente me ajuda ai por favor!! nao tem um comando pra mim juntar a parte de horas que esta na label com o valor que esta no textbox???
Talvez o pessoal que pudesse te ajudar esteja dividido entre responder um dos dois tópicos que vc havia aberto com o mesmo assunto.
Leia primeiramente o as REGRAS DO FORUM, assim suas dúvidas podem ser sanadas mais facilmente.
Utilize a PESQUISA do forum, pois certamente esta sua dúvida já tenha resposta.
REGRAS DO FORUM
Leia primeiramente o as REGRAS DO FORUM, assim suas dúvidas podem ser sanadas mais facilmente.
Utilize a PESQUISA do forum, pois certamente esta sua dúvida já tenha resposta.
REGRAS DO FORUM
Desculpa nao sabia!! mais agora acho que so tem um!!! Foxman vc sabe como me ajudar ou alguem que saiba????
Achei isto na net.
Fiz um teste e funcionou.
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
Dim textoHORA As String
Dim textoMINUTO As String
Dim textoSEGUNDO As String
Dim totDataHora As Long
Dim totDataMinuto As Long
Dim totDataSegundo As Long
Dim concatena_HORARIO As String
[ô]Dim cont As Integer
Dim data1 As TimeSpan
[ô]cont = DataGridView1.Rows.Count - 1
For Each Linha As DataGridViewRow In Me.DataGridView1.Rows
data1 = Linha.Cells([Ô]Horaini[Ô]).Value
totDataHora = totDataHora + data1.Hours
totDataMinuto = totDataMinuto + data1.Minutes
totDataSegundo = totDataSegundo + data1.Seconds
[ô] cont = cont - 1
Next
If totDataSegundo >= 60 Then
Do While totDataSegundo >= 60
totDataMinuto = totDataMinuto + totDataSegundo / 60
totDataSegundo = totDataSegundo - 60
Loop
End If
If totDataMinuto >= 60 Then
Do While totDataMinuto >= 60
totDataHora = totDataHora + totDataMinuto / 60
totDataMinuto = totDataMinuto - 60
Loop
End If
If totDataHora.ToString.Length = 1 Then
textoHORA = [Ô]0[Ô] & totDataHora.ToString
Else
textoHORA = totDataHora
End If
If totDataMinuto.ToString.Length = 1 Then
textoMINUTO = [Ô]0[Ô] & totDataMinuto
Else
textoMINUTO = totDataMinuto
End If
If totDataSegundo.ToString.Length = 1 Then
textoSEGUNDO = [Ô]0[Ô] & totDataSegundo
Else
textoSEGUNDO = totDataSegundo
End If
concatena_HORARIO = textoHORA & [Ô]:[Ô] & textoMINUTO & [Ô]:[Ô] & textoSEGUNDO
MessageBox.Show(concatena_HORARIO)
End Sub
Valeu.
Fiz um teste e funcionou.
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
Dim textoHORA As String
Dim textoMINUTO As String
Dim textoSEGUNDO As String
Dim totDataHora As Long
Dim totDataMinuto As Long
Dim totDataSegundo As Long
Dim concatena_HORARIO As String
[ô]Dim cont As Integer
Dim data1 As TimeSpan
[ô]cont = DataGridView1.Rows.Count - 1
For Each Linha As DataGridViewRow In Me.DataGridView1.Rows
data1 = Linha.Cells([Ô]Horaini[Ô]).Value
totDataHora = totDataHora + data1.Hours
totDataMinuto = totDataMinuto + data1.Minutes
totDataSegundo = totDataSegundo + data1.Seconds
[ô] cont = cont - 1
Next
If totDataSegundo >= 60 Then
Do While totDataSegundo >= 60
totDataMinuto = totDataMinuto + totDataSegundo / 60
totDataSegundo = totDataSegundo - 60
Loop
End If
If totDataMinuto >= 60 Then
Do While totDataMinuto >= 60
totDataHora = totDataHora + totDataMinuto / 60
totDataMinuto = totDataMinuto - 60
Loop
End If
If totDataHora.ToString.Length = 1 Then
textoHORA = [Ô]0[Ô] & totDataHora.ToString
Else
textoHORA = totDataHora
End If
If totDataMinuto.ToString.Length = 1 Then
textoMINUTO = [Ô]0[Ô] & totDataMinuto
Else
textoMINUTO = totDataMinuto
End If
If totDataSegundo.ToString.Length = 1 Then
textoSEGUNDO = [Ô]0[Ô] & totDataSegundo
Else
textoSEGUNDO = totDataSegundo
End If
concatena_HORARIO = textoHORA & [Ô]:[Ô] & textoMINUTO & [Ô]:[Ô] & textoSEGUNDO
MessageBox.Show(concatena_HORARIO)
End Sub
Valeu.
OMAR2011 ficou perfeito Cara!!!! vc ehhh fodaaaaaaaaaaaaaaaaaaaaaaaaa!!! valeu mesmo!!! ihhh o Marcelo que tambem me ajudou pra caramba!!! Obrigado gente!!!! kkkkk
Tópico encerrado , respostas não são mais permitidas