Como calcular horas - minutos

[acmc]

Salu2 Foxeros.. 

Necesito hacer calculos de la suma de horas extras trabajadas y quieren hacerlo de la siguiente manera:

Fecha           Horas    Minutos

13/10/20          1             0

14/10/20          0            30 

15/10/20          0            45

 TOTAL             2             15

Pero no se cual sea la conversión para que en la suma de los minutos aumente la hora y el resto convertirlos en minutos, no se si me explico, porque lo que he encontrado convertir todo en minutos y dividirlo entre 60 y esto no me sirve porque me daria 135 entre 60 = 2.25 que no es lo mismo que 2 hrs con 15 minutos, alguna idea?

Salu2!!

[Walter Cordova]

135 /60 =2.25 Hrs

Convertimos la parte decimal a minutos

0.25 * 60 = 15 Min

Slds

Walter

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/93783bf3-2ef2-495f-8d47-fe93dced506en%40googlegroups.com.

[Rodrigo Ortiz Cubillos]

Hola, primero, transforma todo a minutos. Suma las horas y las muliplicas x 60, luego le sumas el total de minutos. En tu ejemplo es 1 hora= 60 min y 30+45=75 minutos, es decir tienes 60+75 = 130 min. Y ahora si quieres transformar a horas y minutos, y ahora al dividir por 60, te da 2.25 horas, lo que sgnifica 2 horas + 0.25 horas y la parte decimal de las horas, la transformas a minutos, es decir 0.25 * 60 = 15 minutos.

[Rodrigo Ortiz Cubillos]

60+75 = 135

Saludos

Rodrigo

[Víctor Hugo Espínola Domínguez]

lnMinutos = HM2M(1, 0)
lnMinutos = lnMinutos + HM2M(0, 30)
lnMinutos = lnMinutos + HM2M(0, 45)

loHorasMinutos = M2HM(lnMinutos)

Messagebox("Total = " + Transform(loHorasMinutos.nHoras) + ":" + Transform(loHorasMinutos.nMinutos))

Function HM2M(tnH, tnM As Number) As Number

lnMinutos = tnH * 60 + tnM

Return m.lnMinutos


Function M2HM(tnM As Number) As Object

loHM = CreateObject("Empty")
AddProperty(loHM, "nHoras", Int(tnM / 60))
AddProperty(loHM, "nMinutos", tnM % 60)

Return m.loHM

Saludos,

Víctor.

Lambaré - Paraguay.

--

[Zarlu]

Que tal acmc!

Te dejo esto:

CLEAR
lcHor=2
lcMin=61
lcTrans=lcHor*60+lcMin
lcConvert=PADL(INT(lcTrans/3600),2,"0")+":"+;
PADL(INT(MOD(lcTrans/3600,1)*60),2,"0")+":"+;
PADL(INT(MOD(MOD(lcTrans/3600,1)*60,1)*60),2,"0")
? lcConvert
RETURN

Suerte

zarlu

Chetumal, Quintana Roo, México

[Angel Perez]

Pefecto!!

Muchas gracias a todos por sus aportes!!

Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/IWKhy6Js9Cw/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/1bc27c45-9e54-40aa-b708-65c8b2753052n%40googlegroups.com.

[Víctor Hugo Espínola Domínguez]

> lcTrans=lcHor*60+lcMin

debe ser

lcTrans=lcHor*3600+lcMin*60

Saludos,

Víctor.

Lambaré - Paraguay.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/1bc27c45-9e54-40aa-b708-65c8b2753052n%40googlegroups.com.

[Luis Maria Guayan]

Este artículo te puede ayudar:

-- Trabajar con fechas y horas en Visual FoxPro --

https://comunidadvfp.blogspot.com/2014/09/trabajar-con-fechas-y-horas-en-visual.html

 --

Luis María Guayán
Tucumán, Argentina
_______________________________

Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

[Angel Perez]

Gracias!!

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---

Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/IWKhy6Js9Cw/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/6aee6dd3-3a10-49f4-a2f1-ce6c5e9a42bfn%40googlegroups.com.