AJUDA COM FLEX GRID

JEFINHO 05/12/2014 10:27:46
#443009
Pessoal bom dia, estou com um problema na soma de valores do Flexgrid.
Tenho um cadastro de banco de horas e horas a compensar, estou inserindo os valores no formato [Ô]hh:mm[Ô], quando tiver um valor [Ô]2:00[Ô] em uma linha e outro [Ô]2:10[Ô] teria que me mostrar [Ô]4:10[Ô], desculpe se não fui claro na pergunta.
segue imagem do exemplo.
FABAO 07/12/2014 11:06:57
#443039
Veja se funciona assim amigo...

  
aux3 = Format (TimeValue (aux) + TimeValue (aux2), [Ô]hh:mm[Ô])

Label1.Caption = Format (TimeValue (aux3), [Ô]hh:mm[Ô])


veja ai e me diz se funcionou...
OMAR2011 07/12/2014 19:59:53
#443043
Quanto a FABAO teve um engano.
Declara as variáveis.
For i = 1 To MSHFlexGrid1.Rows - 1
Total = Total + CDate(MSHFlexGrid1.TextMatrix(i, 1))
Text1.Text = Total
Next i

Pela imagem deve ser a coluna 1, então TextMatrix(i, 1)
FABAO 08/12/2014 00:40:16
#443045
Bem observado OMAR2011

eu não tinha testado...

agora sim ja testei aqui e adaptei seu código

Jefinho, substitua seu código por este:


  
Private Sub Command3_Click()

For i = 1 To MSFlexGrid1.Rows - 1
    total = total + CDate(MSFlexGrid1.TextMatrix(i, 1))
Next i
  
  Label1.Caption = Format(TimeValue(total), [Ô]hh:mm[Ô])
  Data1.Refresh
  
End Sub

espero ter ajudado...

abraço
MARCELO.TREZE 08/12/2014 09:00:47
#443048 Resposta escolhida
só uma observação se a soma das horas for maior que 24 vai dar ai, pense em converter as horas pra minutos e depois fazer a conversão novamente em horas porém e formato de string para se poder obter valores do tipo 123:23
MARCELO.TREZE 08/12/2014 09:20:10
#443049
na prática 

Dim Soma As Long
Dim Dif As Integer, Horas As String, Minutos As String
With MSFlexgrid1
Soma = 0
For i = 1 To .Rows - 1
Soma = Soma + Datediff([Ô]n[Ô],CDate([Ô]00:00[Ô]), CDate(.TextMatrix(i, 1)))
Next i
End With
Dif = Soma Mod 60
Horas = (Soma - Dif) / 60
Minutos = Dif
Label1.Caption = Horas & [Ô]:[Ô] & Minutos


eu não testei o código mas acho que irá funcionar
OMAR2011 08/12/2014 10:16:34
#443052
Realmente Marcelo, esqueci de mencionar quando a soma for superior a 24hs.
JEFINHO 11/12/2014 14:37:04
#443149
Valeu Pessoal, esta funcionando conforme o esperado, valeu a força de todos vocês!
Tópico encerrado , respostas não são mais permitidas
Voltar