Qual é o código que usa-se para somar apenas os minutos ou somar apenas as horas?

Question

Galera boa tarde.

Estou montando um c&oacute;digo e gostaria de saber se existe alguma fun&ccedil;&atilde;o/comando sei la que eu possa selecionar fazer a soma apenas dos minutos ou das horas de um valor em formato hh:mm?

Exemplo: 8:58 - 9:02 = Quero a soma apenas dos minutos ou horas. Como fazer em vba?

Answer

Tete isso:

[code=VB]
Sub Teste_Tempo()

MsgBox Horas:  & Left(Format(VBA.TimeValue(Format(8:58, hh:mm)) + VBA.TimeValue(Format(9:02, hh:mm)), HH:MM), 2) & vbNewLine & _
Minutos:  & Right(Format(VBA.TimeValue(Format(8:58, hh:mm)) + VBA.TimeValue(Format(9:02, hh:mm)), HH:MM), 2)

End Sub

[/code][/code]

Answer

[QUOTE=Basole, post: 7422350, member: 908394]Tete isso:

[code=VB]
Sub Teste_Tempo()

MsgBox Horas:  & Left(Format(VBA.TimeValue(Format(8:58, hh:mm)) + VBA.TimeValue(Format(9:02, hh:mm)), HH:MM), 2) & vbNewLine & _
Minutos:  & Right(Format(VBA.TimeValue(Format(8:58, hh:mm)) + VBA.TimeValue(Format(9:02, hh:mm)), HH:MM), 2)

End Sub

[/code][/code][/QUOTE]
Basole,
Para colocar isso num loop, ficaria como? Deu certinho, por&eacute;m meus valores de hora ir&atilde;o mudar de linha &aacute; linha.
Eu estava testando seu c&oacute;digo aqui, a id&eacute;ia &eacute; boa, por&eacute;m eu n&atilde;o queria isto num msgbox exibindo os dois, eu queria calcular apenas a diferenca de minutos e que essa diferen&ccedil;a fosse exibida para mim numa linha na planilha, entende? Neste caso, 9:02-8:58, queria o c&aacute;lculo apenas da diferen&ccedil;a de minutos.

Answer

[FONT=Courier New]Segue um exemplo com loop:

[code=VB] 
Sub Teste_Tempo()
    Dim i As Long

For i = 2 To 10 ' onde 2 &eacute; a 1&ordf; linha e 10 a ultima linha com dados

If Range(B & i).Value  0 And Range(A & i).Value  0 Then  ' Verific. se as celulas conteem valores nulos

Range(C & i).Value = Format(VBA.TimeValue(Format(Range(B & i).Value, hh:mm)) - VBA.TimeValue(Format(Range(A & i).Value, hh:mm)), HH:MM) ' calcula o tempo em min.

Range(C & i).NumberFormat = HH:MM  ' Formata a celula p/ Personalizado (horas/Minutos)

End If

Answer

[QUOTE=Basole, post: 7423084, member: 908394][FONT=Courier New]Segue um exemplo com loop:

[code=VB] 
Sub Teste_Tempo()
    Dim i As Long

For i = 2 To 10 ' onde 2 &eacute; a 1&ordf; linha e 10 a ultima linha com dados

If Range(B & i).Value  0 And Range(A & i).Value  0 Then  ' Verific. se as celulas conteem valores nulos

Range(C & i).Value = Format(VBA.TimeValue(Format(Range(B & i).Value, hh:mm)) - VBA.TimeValue(Format(Range(A & i).Value, hh:mm)), HH:MM) ' calcula o tempo em min.

Range(C & i).NumberFormat = HH:MM  ' Formata a celula p/ Personalizado (horas/Minutos)

End If

End Sub
[/code][/FONT][/QUOTE]
Basole, funcionou sim. 
Agora, d&ecirc; uma olhada se voc&ecirc; consegue me ajudar na 2 parte do progama: Anexei a planilha para melhor entendimento.
O progama deve pegar o intervalo de UMA hora exata (Exemplo: 8 &aacute;s 9) e colocar o valor da soma total de minutos que deu de parada na coluna C no periodo de 8 as 9. Voc&ecirc; teria uma ideia de como posso fazer isso?
Exemplo na planilha:
08:00 08:10
08:20 08:24
08:58 09:02
O meu tempo total de parada no periodo de 8 as 9 foi de 16 minutos, ent&atilde;o o progama deveria jogar para a coluna ao lado do periodo 8 as 9 na planilha hora a hora este resultado.  Caso possa me ajudar! Se n&atilde;o s&oacute; falar que coloco como resolvido, pois ja ajudou bastante.

Answer

O progama deve pegar o intervalo de UMA hora exata (Exemplo: 8 &aacute;s 9)
Exemplo na planilha:
08:00 08:10
08:20 08:24
[COLOR=#ff0000]08:58 09:02[/COLOR] 
Luis desculpe, mas pra min esta meio confuso, vc diz que quer pegar o intervalo de 1 hora (Exemplo: 8 &aacute;s 9), mas analizando o seu exemplo acima, entre o intervalo (08:00 09:02) , ultrapassa de 1 hora (?). 
Ta complicado entender este seu criterio.

Answer

[QUOTE=Basole, post: 7423404, member: 908394]Luis desculpe, mas pra min esta meio confuso, vc diz que quer pegar o intervalo de 1 hora (Exemplo: 8 &aacute;s 9), mas analizando o seu exemplo acima, entre o intervalo (08:00 09:02) , ultrapassa de 1 hora (?).
Ta complicado entender este seu criterio.[/QUOTE]
Este &eacute; o X da quest&atilde;o brasole! Como ultrapassou 2 minutos, estes dois minutos devem ser computados no intervalo de 1 hora entre 9 &aacute;s 10 horas! Perceba uqe na soma total deu 18 minutos, eu coloquei resultado final =16 por conta disso! Isso que ta me agarrando. se o tempo ultrapassar o intervalo de 1 hora deve ser computado no intervalo da hora seguinte. Entendeu?

Answer

Se a esperan&ccedil;a &eacute; a &uacute;ltima q morre eu sei q alguem vai me ajudar nesse VBa do capiroto!!! Somebody save meeeeeeeeeee

Answer

Veja se &eacute; isso.
Rode o c&oacute;digo a partir da planilha Intervalos; formate a coluna 'C' da planilha hora a hora para Geral.

Sub TempoDeParada()
Dim h As Long, h1 As Long, h2 As Long, m1 As Long
Dim m2 As Long, s As Long, ws As Worksheet
Set ws = Sheets(hora a hora):  ws.Columns(3) = 
For h = 1 To Cells(Rows.Count, 1).End(3).Row
  h1 = Hour(Cells(h, 1)): m1 = Minute(Cells(h, 1))
  h2 = Hour(Cells(h, 2)): m2 = Minute(Cells(h, 2))
  If h1 = Hour(Cells(h + 1, 1)) Then
  s = s + m2 - m1
  Else
  If h1 = h2 Then
  s = s + m2 - m1
  ElseIf h2 = h1 + 1 Then
  s = s + 60 - m1
  End If
  If s  0 Then ws.Cells(h1 + 1, 3) = s: s = 0
  End If
Next h
ws.Range(C1:C24).SpecialCells(xlCellTypeBlanks) = 0
End Sub

Answer

[QUOTE=osvaldomp, post: 7465762, member: 964656]Veja se &eacute; isso.
Rode o c&oacute;digo a partir da planilha Intervalos; formate a coluna 'C' da planilha hora a hora para Geral.

Sub TempoDeParada()
Dim h As Long, h1 As Long, h2 As Long, m1 As Long
Dim m2 As Long, s As Long, ws As Worksheet
Set ws = Sheets(hora a hora):  ws.Columns(3) = 
For h = 1 To Cells(Rows.Count, 1).End(3).Row
  h1 = Hour(Cells(h, 1)): m1 = Minute(Cells(h, 1))
  h2 = Hour(Cells(h, 2)): m2 = Minute(Cells(h, 2))
  If h1 = Hour(Cells(h + 1, 1)) Then
  s = s + m2 - m1
  Else
  If h1 = h2 Then
  s = s + m2 - m1
  ElseIf h2 = h1 + 1 Then
  s = s + 60 - m1
  End If
  If s  0 Then ws.Cells(h1 + 1, 3) = s: s = 0
  End If
Next h
ws.Range(C1:C24).SpecialCells(xlCellTypeBlanks) = 0
End Sub[/QUOTE]
Caraca Osvaldo!! Desculpe a demora para responder. Ja havia desistido! hehehehe Funcionou cara!!!!!! 
Teve apenas um pequeno probleminha, no periodo de 00 as 8 am nao computou. Apenas isso! Ficou 0 quando deveria ficar 1 hora

Answer

Substitua o zero pelo 1 ao final desta linha
ws.Range(C1:C24).SpecialCells(xlCellTypeBlanks) =[SIZE=5] [COLOR=rgb(255, 0, 0)]1[/COLOR][/SIZE]

Answer

[QUOTE=osvaldomp, post: 7472718, member: 964656]Substitua o zero pelo 1 ao final desta linha
ws.Range(C1:C24).SpecialCells(xlCellTypeBlanks) =[SIZE=5] [COLOR=rgb(255, 0, 0)]1[/COLOR][/SIZE][/QUOTE]
Show osvaldo! Deu certo!!! 
Aproveitando sua ajuda, como fa&ccedil;o para inv&eacute;s das respostas serem exibidas naqueles valores inteiros, ficar em formato HH:MM:SS ?

Osvaldo, fiz alguns testes e t&aacute; dando algumas divergencias..:( Segue planilha pra confer&ecirc;ncia!

Answer

No seu arquivo n&atilde;o h&aacute; qualquer explica&ccedil;&atilde;o sobre quais s&atilde;o as diverg&ecirc;ncias, qual o resultado do c&oacute;digo, qual o resultado que voc&ecirc; espera e como chegou a ele.

[QUOTE=Luis Sangy, post: 7473638, member: 1031442]... como fa&ccedil;o para inv&eacute;s das respostas serem exibidas naqueles valores inteiros, ficar em formato HH:MM:SS ?[/QUOTE]

N&atilde;o vejo sentido em apresentar o resultado que &eacute; dado em minutos, com apar&ecirc;ncia de hor&aacute;rio :nao_sei:

Assim:
m&aacute;quina desligada &agrave;s 14h20 >> isto &eacute; um hor&aacute;rio
m&aacute;quina religada &agrave;s 14h25 >> isto tamb&eacute;m &eacute; um hor&aacute;rio
tempo de m&aacute;quina desligada (14h25 - 14h20 ) = 5 min >> isto &eacute; tempo, n&atilde;o faz sentido exibi-lo como hor&aacute;rio

Answer

Osvaldo, foi mal ter deixado essa confus&atilde;o pra vc auto interpretar da forma que deveria ser.. Estou te mandando o arquivo original que uso todos os dias, nele fica mais facil compreender. Preciso que o formato seja em hora, por causa de uma macro de outro arquivo que puxa esses dados para montagem de gr&aacute;ficos.

Um breve resuminho deste arquivo que estou mandando:
A Aba Base MTS 100% contem horarios de paradas durante todo um dia.. Destaquei de amarelo um dia para vc ver melhor. O total de tempo de paradas num certo dia, deve ser o mesmo que eu preencho para o dia equivalente na aba Paradas Aonde mostro em 24 horas, num intervalo de Hora em Hora quanto tempo fiquei parado. O que complica &eacute; que as vezes os horarios de parada s&atilde;o assim:

Eu come&ccedil;o uma parada &aacute;s 12:33 (Ou seja, esse intervalo est&aacute; entre 12 hr a 13 hr) por&eacute;m minha parada acaba apenas 13:40
Ou seja, eu tive 27 minutos de parada entre 12-13 hrs e tamb&eacute;m tive + 40 minutos de parada j&aacute; no intervalo de 13-14 hrs. Se voce analisar na planilha, na aba Base Mts 100% aonde destaquei de vermelho, ver&aacute; tbm que eu ja tinha outros 2 campos com paradas no intervalo de 12-13 hrs. Ou seja, o que eu fa&ccedil;o atualmente que gostaria que fosse um progama, &eacute; examente isso, somar o tempo de parada num intervalo de 1 hr, por&eacute;m atento para nao perder minutos que come&ccedil;aram entre um intervalo e s&oacute; acabaram em outro intervalo de hora. Deu pra esclarecer um pouco?

Answer

Luis, no post #5 voc&ecirc; disponibilizou uma amostra do seu arquivo e no post #9 eu coloquei um c&oacute;digo sugerido para atuar naquele arquivo.

Ent&atilde;o, antes de tratar do arquivo do seu post #14, que &eacute; diferente do anterior, vamos finalizar a an&aacute;lise sobre a atua&ccedil;&atilde;o do c&oacute;digo no primeiro arquivo, citado acima. Por favor me informe se o c&oacute;digo fornece ou n&atilde;o resultado conforme esperado. Se h&aacute; diverg&ecirc;ncias no resultado no arquivo do post #5 rode o c&oacute;digo nele, cujo resultado aparece na coluna 3, e na coluna 4 coloque o resultado que voc&ecirc; entende como correto e explique na coluna 5 como chegou em cada resultado e disponibilize o arquivo.

Ferramentas

Mover Tópico