[Resolvido]Somando minutos e transformando em horas

Caros amigos

Apesar de muito que olhei por aqui não encontrei uma resposta.

Tenho um total em minutos que precisa ser transformado em horas no formato 00:00

A imagem abaixo deve dar uma visão do que preciso.



A soma de horas me dá uma valor errado.

Carlos Silveira

Olha, acredito que melhor mesmo seria você trabalhar em cima dos minutos e não da hora. Converte a hora em minuto, calcula o valor por minuto e calcula o valor total.

criquio

Tenho usado isso, para ter em texto a informação, com a seguinte formula

=(([SomaDeTtlMinGeral])/60) & " Horas e"
=[SomaDeTtlMinGeral]-((Int(Nz([SomaDeTtlMinGeral]))/60)*60) & " Minutos"

Mas nesse relatório queria ter a soma no formato, 00:00 e acho que é possivel.
O que eu não sei, é se isso não virar uma enorme "engronha". LOL

Carlos Silveira

Você pode exibir o acúmulo no formato 00:00 mas utilizar em minutos para fazer os cálculos. Ou seja, deixa o formato hh:mm apenas na exibição.

=[SomaDeTtlMinGeral]-((Int(Nz([SomaDeTtlMinGeral]))/24)*60) & " Minutos"

Silvio de Deus

Agora "minhas caspas viraram Mandiopan" (só para os mais experientes).

Se sua formula está correta tenho baseado minhas contas em informações erradas...

Aqui, a mudança de SomaDeTtlMinGeral]))/60)*60) para SomaDeTtlMinGeral]))/24)*60) deu uma diferença enorme nos minutos.

Foi de 35100 minutos segundo sua formula contra 23400 na minha.

Carlos Silveira

tardes...

faz os testes e nos informe.

Olá

veja este tutorial que acabei de lançar no meu site:

http://www.usandoaccess.com.br/tutoriais/tuto49.asp?id=1#inicio

Bom estudo!

Eu consegui resolver o meu problema com esse código!

On Error Resume Next
Dim Msg As String
If IsNull(DataAdmissão) Or DataAdmissão = "" Or IsNull(DataDemissão) Or DataDemissão = "" Then
Msg = "Digite uma data válida nos campos" & vbCrLf _
& "Data de Início e Data Término."
ElseIf DataAdmissão.Value > DataDemissão.Value Then
Msg = "A Data Término deve ser posterior" _
& vbCrLf & "à Data de Início."
Else
TempoTrabalho = CalculaPeriodo(DataAdmissão, DataDemissão)
Exit Sub
End If
'Retorna a msg de erro.
MsgBox Msg, vbExclamation, "Erro"

Private Function CalculaPeriodo(Date1 As Date, Date2 As Date)


If Date1 > Date2 Then
MsgBox "Data Inicial não pode ser maior que Data Final!", vbExclamation, "Erro"
Exit Function
End If

Dim Anos, meses, dias
Dim iAnos As Double, iMeses As Double, Intervalo As Double

Tente desta forma

Faça uma consulta

[seucampohoras]
depois para calcular os minutos gastos coloque assim
CalcMinutos: [seucampohoras] * 24 * 60

desta forma ao lançar o tempo gasto transforma em minutos

Bom dia e boa semana a todos.

Estou testando as sugestões enviadas. O baile é grande.

Carlos Silveira

Bom, vamos lá!

Depois de muito analisar e comparar com o que recebi por aqui cheguei às seguintes conclusões:

Minhas Formulas:

Private Sub IDQuemF_Change()
Me![TtlMin] = Int(([HoraFim] - [HoraIni]) * 1441)
If [HoraFim] < [HoraIni] Then
Me![TtlMin] = Int(([HoraFim] - [HoraIni]) * 1441) + 1441
End If
Me![TtlCtrl] = [HoraFim] - [HoraIni]
If [HoraFim] < [HoraIni] Then
Me![TotalTrabalho] = ([HoraFim] - [HoraIni]) + 60
End If
Me.ValorTotal = ((TtlMin * CustoQF) / 60)
End Sub

Com este procediemnto consigo obter corretamente os minutos dispendidos.

Na imagem abaixo voces podem conferir os resultados e as formulas:



Minha questão era representar visualmente um total como 58:20 para o total de horas.

O Sr. Avelino Sampaio possui um script que faz isso de forma perfeita, mas é bem complexo e bastante trabalhoso aplicar agora
no meu projeto somente por uma representação gráfica.

Carlos Silveira

Caros Amigos

Quando a solução parece dificil, a "dona preguiça" sempre acha uma solução criativa:

- - -> Como ficou.
- - -> Como foi feito.

Ou seja, é bem mais fácil achar totais em minutos e estes converter em horas e minutos e depois "simular" o formato em horas.

Se voce achar 1251 minutos totais divida por 60 e terá 20,85
20 é o número de horas e o decimal são os minutos.
Para acha os minutos corretos basta multiplicar o decimal por 60.
60*0,85 = 51 minutos

Espero que isso possa servir para alguém.

Carlos Silveira

Casilveira
Bom Dia!

Tem um modo de fazer sem fazer muitos calculos como você fez.

Total de Horas e Minutos
Horas
Minutos
Total de Minutos

Opa SSP,

Me conte como é, voce viu o que preciso e se há uma formula mais fácil..


Carlos Silveira

Eu ainda acho que pode ser calculado em cima dos minutos. Você tem o preço por hora e tem o total de minutos. Vamos supor que você tenha um campo chamado vlrHora que tem o valor por hora e tem um campo chamado tMin com o total em minutos. Seu campo com o valor total ficaria assim:

=[vlrHora] / 60 * [tMin]

Se for diferente bastará adaptar.

Casilveira
Boa tarde!
Segue exemplo que fiz, para que sirva para todos que estão precisando

Bom Trabalho

http://speedy.sh/F5U5X/Somas-de-horas-e-Minutos-com-calculos.rar

Casilveira
Bom Dia!

Viu o meu exemplo, deu para simplificar seus calculos.

Meus Amigos

Um pequeno acidente me tirou do ar por algum tempo.
Estarei em convalecença por mais alguns dias até poder usar o braço direito plenamente.
Olhei todos os exemplos aqui mas como não posso dar sequencia no assunto agora, peço encarecidamente uns poucos dias mais para encerrar esse tema.

Grato

Carlos Silveira

Caros Amigos

Estou retornando à atividade (não completamente), uma fratura consequencia de um tombo tirou meu braço direito do jogo.

Quanto minhas dúvidas, mais uma vez, tive mais do que esperava em soluções incriveis.

spp, suas dicas serviram como luva.

Mais uma vez, agradeço a todos pela paciência destes abnegados que não se importam em dividir seus conhecimentos.

Carlos Silveira