Autor Tema: Calcular Hora (Leído 13459 veces)

UserCode · « **en:** Lunes 21 de Mayo de 2007, 23:02 »

Saludos aquí nuevamente.

No tengo idea de como solventar este asunto, no sé si en algun momento haya tenido alguien este problema:

Tengo dos ComboBox (son más pero tratan de lo mismo pero distintas horas)
En uno se indica hora de Entrada del empleado, y en el otro se indica la hora de salida.
En un Label se coloca el estimado de Horas de ese rango.

Pero los Combo tienen lo siguiente: (ambos los mismos datos)
6:00 am
6:30 am
7:00 am
7:30 am
8:00 am
8:30 am
9:00 am
.... etc
.... etc
.... etc
12:00 pm
12:30 pm
1:00 pm
1:30 pm
2:00 pm

Si se selecciona en un combo 7:00 am y en el otro 12:00 pm, se deberia de mostrar en el Label de horas = 5 (horas trabajadas)

Ni idea en verdad de como atacar o darle la vuelta correcta a esto, no podría con algo como:

Código: Text

 
If CmbEntrada.Caption = &#34;7:00 am&#34; And CmbSalida.Caption = &#34;12:00 pm&#34; Then
    LbTotalHrs.Caption = 5
ElseIf CmbEntrada.Caption = &#34;8:30 am&#34; And CmbSalida.Caption = &#34;12:00 pm&#34; Then
    Lb TotalHrs.Caption = 4.5
ElseIf ..... 
.... etc
.... etc
 
 

Las combinaciones en la sentencia de deición son demasiadas, ha sido lo primero que me paso por la mente, no digo que sea lo que vaya a usar.
¿No habra algun control de VB que permita resolver este tipo de tarea?

Ya tenia el programita listo y viene el que lo mando a hacer a venir a desear tomar los datos de otra forma y me desperoleo todo, espero que no tenga que reestructurar las tablas o el reporte, alguien sabe por fa?

ElNapster · « **Respuesta #1 en:** Lunes 21 de Mayo de 2007, 23:48 »

Ya probaste con algo como esto :

Código: Text

Private Sub Command1_Click()
Dim d As Double
    Dim res As Double
    Dim h1 As Date
    Dim h2 As Date
    
    d = 86400               'Nº de segundos de un día
    On Error GoTo ErrorDat
    h1 = CDate(Text1.Text)
    h2 = CDate(Text2.Text)
    res = DateDiff(&#34;s&#34;, h1, h2)
    If res &#60; 0 Then
        res = d + res
    End If
    Text3.Text = DateAdd(&#34;s&#34;, res, &#34;00:00:00&#34;)
    Exit Sub
ErrorDat:
    res = MsgBox(&#34;Error en la introducción de la hora...&#34;, vbCritical)
    Text1.SetFocus
End Sub
 

cpmario · « **Respuesta #2 en:** Lunes 21 de Mayo de 2007, 23:56 »

Otra forma:

Código: Text

 LbTotalHrs.Caption = DateDiff(&#34;h&#34;, dtmHoraEntrada, dtmHorasalida)
 

UserCode · « **Respuesta #3 en:** Martes 22 de Mayo de 2007, 00:00 »

Lastima, ningno de los dos sirve

si por ejemplo indico como primera hora 6:00 am y en la segunda 6:30 am, u 8:00am y 8:30 am, la misma hora siempre me da como resultado 12:30 am

UserCode

No importa por eso muchachos, seguire viendo, en la lucha como siempre

Angel38

Hola,

La forma de sumar o restar horas es esta.

Código: Text

suma=timevalue(Hora1) + timevalue(Hora2)
 

Para restarlas solo tienes que cambiar el simbolo. Ya como lo apliques seria cuestion tuya.

Te sugiero que los coloques en variables y luego hagas las operaciones correspondiente y suma (o resta) la envias a el label "Horas".

Espero haberte ayudado.

UserCode

Igual si se coloca 6:00 am y 6:30 am y otro misma hora entre "hora en punto" y la msima hora pero "media hora" da 12:30am (resta de horas, la diferencia entre ellas)

Pero voy a trabajar con todo esto, creo que ni con hora militar serviria, puesto que igual estaria el problema por debajo de las horas de las 12pm. Eso porque tengo varios ComboBox con una lista de horas y existe datos de Horas Extra, sea Diurnas o Nocturnas y puede pasar que alguien trabaje al menos 30 minutos, tomandose eso en la parte de horas Extras.

gracias de igual forma

UserCode

Bueno, la diferencia entre H1 y H2 = Nº Hrs

Las horas se indican en unos Combo y la diferencia de hroas entre estos en un Label, pues mientras (no sé si para siempre) cambie el Label de salida de horas por un Text
Cuando coloquen 7:00 am - 7:30 am =12:30 am quitan el 12 y ponen un 0

Despues de todo, aunque los combo tienen un listado de horas
6:00 am
6:30 am
7:00 am
7:30 am
.... etc
.... etc

Igual en ocasiones se escribe la hora en vez de seleccionarse de la lista porque al parecer, una persona puede haber llegado a las 7:08 am y haber salido a las 11:43 am
El codigo funciona con esto, solo falla en lo ya comentado antes. No es la solución ni lo más elegante, podría tardarme no sé cuántos días intentando nuevas sintaxis y buscando en internet, pero por los momentos, cambie los Labels de salida por Text y así el mismo usuario que corriga el problema.

Por cierto, alguien sabe como poner en controles de Calendario DTPicker, el primer y ultimo dia del mes? tengo dos: DTPFecha1 y DTPFecha2 pero los actualizo con el día actual con un = Date
¿Cómo sería para poner en el DTPFecha1.Value = 01/M/Año y en el otro DTPFecha2.Value=31/M/Año (de cada mes). Esos calendarios controlan de llenar en un MSFlexGrid los registros, es para ver si muestran la panoramica del mes y no del día actual.

Voy a seguir viendo que hago con eso de sumar horas, saludos

Angel38

Busca informacion sobre la forma de sumar horas (TimeValue), y la verdad viejo eso funciona es sumando horas militar.

Aunque a mi parecer cuando trabajé con las sumas de horas, si escogias 3:00 p.m. como ejemplo, el en la suma la pasaba a Hora militar.

Lastima que no te pueda ayudar más, pues no recuerdo como solucionaba ese asunto, pero es por ahi.

UserCode

Citar

Busca informacion sobre la forma de sumar horas (TimeValue), y la verdad viejo eso funciona es sumando horas militar.

Buscando...

thx.

UserCode

Bueno, creo que ya esta solucionado el asunto de las sumas, siempre quise probar algo que daba mal hasta que ya de forma más organizada dio.

Debido al problema de mostrar un Total (formato dato numerico) en base a datos de Hora (formato hora), decidí hacer una tablita en la Bd y desde el programa truncar o tomar la porción de interés de cada Total_Horas (las horas y los minutos de cada turno).

Recurri a esto porque de usar alguna función en VB, no sabía luego como solucionarlo igual en Crystal.

Luego de recopilar o llenar eso con cada ingreso de datos, los organizo y sumo asi:
Ejemplo:

Código: Text

 
Select Sum(hD) As HrsD, Sum(mD) As MinD, 
          Sum(hN) As HrsN, Sum(mN) As MinN, 
          Sum(hExtD) As HrsExtD, Sum(mExtD) As MinExtD, 
          Sum(hExtN) As HrsExtN, Sum(mExtN) As MinExtN 
From chl_totalesemp 
Where NumEmp=30915 And 
Fecha Between #01/05/2007# And #31/05/2007#
 
 

Y metiendo eso en unos Labels en la ventana:

Código: Text

 
    Dim THrsD As Integer
    Dim TMinD As Integer
    Dim THrsN As Integer
    Dim TMinN As Integer
    Dim THrsExtD As Integer
    Dim TMinExtD As Integer
    Dim THrsExtN As Integer
    Dim TMinExtN As Integer
    Dim Clau26 As Integer
    
    With Data2.Recordset
        While Not .EOF
            '....................................
            'hD:
            If IsNumeric(![HrsD]) = False Then
                Exit Sub
            Else
                THrsD = THrsD + Val(![HrsD])
            End If
            'mD:
            If IsNumeric(![MinD]) = False Then
                Exit Sub
            Else
                TMinD = TMinD + Val(![MinD])
            End If
            '....................................
            'hN:
            If IsNumeric(![HrsN]) = False Then
                Exit Sub
            Else
                THrsN = THrsN + Val(![HrsN])
            End If
            'mN:
            If IsNumeric(![MinN]) = False Then
                Exit Sub
            Else
                TMinN = TMinN + Val(![MinN])
            End If
            '....................................
            'hExtD:
            If IsNumeric(![HrsExtD]) = False Then
                Exit Sub
            Else
                THrsExtD = THrsExtD + Val(![HrsExtD])
            End If
            'mExtD:
            If IsNumeric(![MinExtD]) = False Then
                Exit Sub
            Else
                TMinExtD = TMinExtD + Val(![MinExtD])
            End If
            '....................................
            'hExtN:
            If IsNumeric(![HrsExtN]) = False Then
                Exit Sub
            Else
                THrsExtN = THrsExtN + Val(![HrsExtN])
            End If
            'mExtN:
            If IsNumeric(![MinExtN]) = False Then
                Exit Sub
            Else
                TMinExtN = TMinExtN + Val(![MinExtN])
            End If
            '....................................
            .MoveNext
        Wend
    End With
    
    LbHrsD.Caption = THrsD & &#34;:&#34; & TMinD
    LbHrsN.Caption = THrsN & &#34;:&#34; & TMinN
    LbTotalHrs.Caption = (THrsD + THrsN) & &#34;:&#34; & (TMinD + TMinN)
    If (THrsD + THrsN) &#62; 44 Then
        Clau26 = (THrsD + THrsN) - 44
    Else
        Clau26 = 0
    End If
    LbHrsExtD.Caption = THrsExtD & &#34;:&#34; & TMinExtD
    LbHrsExtN.Caption = THrsExtN & &#34;:&#34; & TMinExtN
    LbClau26.Caption = Clau26
 
 

Lo cual saca al final de los datos traidos a la ventana, el tan sufrido total de horas y minutos como se ve remarcado en recuadro rojo.
Probando como rula:

Y ya con eso, igual para el Reporte, al cual procedere a terminarlos
Además de los totales, preocupaba el dato llamado "Clausula 26" que estima que un Empleado debe trabajar 44 horas a la semana, no más de eso.

Código: Text

 
If TotalHrsLb &#62;44 Then
    Clau26 = TotalHrsLb - 44
Else
    Clau26 = 0
End If
 
 

Ya ese problema lo había mencionado en otro post, antes que viniese el Sr y cambiase todo haciendome perder tiempo, por remplazarlo casi todo

Yo creo que si furula bien, pues lo dejo así, aplicandose al dicho de "si funciona, dejalo así, ni lo toques"

F_Tanori

Citar

09:00
08:30
02:30
--------
19:60 ?

que no serian 20 hrs? en ese caso que pasaria si fueran algo como

Citar

09:50
08:40
02:30
--------
19:120

desde mi punto de vista (humilde opinion

) deberias de convertir todo a segundos y hacer las operaciones matematicas con ellas una vez obtenido el resultado convertir en formato hh:mm:ss

Saludos

Angel38

Huy man que pena contigo. Al final suma tienes que darle asi.

Código: Text

Varsuma= format(suma,&#34;hh:mm:ss&#34;)
 

Prueba a ver que te sale.

UserCode

Citar

09:00
08:30
02:30
--------
19:60 ?

que no serian 20 hrs? en ese caso que pasaria si fueran algo como

Son 19 Hrs con 60 minutos

Citar

09:50
08:40
02:30
--------
19:120

Ese 120 me está asustando

tendría que revisar. Pero no es que no sea valido.
Sería fabuloso que por cada 60 minutos o más, se incremente el de hora, es decir, se distribuya como deberia, porque 3:60 podría ser realmente 4:00 por ejemplo.

De todas formas, creo que el formato de todo esto siempre es semanal, claro está que si se desea ver registros de un Empleado de más de una semana, un mes o más, el acumulado excederia lo normal de totales, pero por ejemplo, todo esto a partido de algo en Excel en donde solo se observa la semana, siendo así un control de semana por semana los 7 dias.

Si si, ya sé, ahí dice AM y PM, es que ese era el formato viejo, ahora es con todo este dolor de cabezas de horas haciendo que lo hecho anteriormente haya ido directo al caño cuando yo era feliz y el programa trabajaba por numeros

F_Tanori:

Citar

desde mi punto de vista (humilde opinion rolleyes.gif ) deberias de convertir todo a segundos y hacer las operaciones matematicas con ellas una vez obtenido el resultado convertir en formato hh:mm:ss

Aun no sé hacer eso, es la primera vez que trabajo tanto con horas

procedere a investigar un poco sobre como hacer eso.

Angel38:

Citar

Varsuma= format(suma,"hh:mm:ss")

Hmmmm.... con razón no furulaba bien, eso tambien lo voy a revisar

UserCode

El código que he usado gracias a un ring y pregunta a alguien

Código: Text

 
Dim hc As Variant
Dim h As Variant
Dim h1 As Variant
Dim h2 As Variant
Dim ht As Variant
Dim m As Variant
Dim s As Variant
h1 = CmbEntradaD.Text
h2 = CmbSalidaD.Text
If h1 = &#34;&#34; Or h2 = &#34;&#34; Then
   Exit Sub
End If
hc = Format(CDate(h2) - CDate(h1), &#34;hh:mm:ss&#34;)
h = Hour(hc)
m = Format(Minute(hc) / 60, &#34;0.00&#34;)
s = Format(Second(hc) / 3600, &#34;0.00&#34;)
ht = h + m + s
LbHorasTurnoD.Caption = ht
 
 

Resultados del código:
7:00 am - 12:00 pm = 5
7:30 am - 12:00 pm = 4,5
6:00 am - 6:30 am = 0,5

hc: Hora Completa
h1: Hora de Entrada
h2: Hora de Salida
h: La hora resultado de la diferencia de h2-h1 y ya con su formato "hh:mm:ss"
ht: Hora Total
m: minutos (obviamente)
s: segundos (obviamente)

Por cierto, había preguntado en una ocasión algo sobre como mostrar en controles de calendario DTPicker el 1er y ultimo dia del Mes. Bueno el ultimo día no es importante puesto que con respecto al día presente, no hay manera de conocer ni interes en ver datos que aun no han sido ingresados, ni que viesemos el futuro de los datos de mañana y los continuos dias

Seria entonces desde el 1er día del mes hasta el día actual del mismo en el que nos encontramos para mostrar datos de días anteriores.

Primer día del Mes:
DTPicker.Value = "01/" & Month(Date) & "/" & Year(Date)

Para un TextBox pues seria eso mismo pero dentro de un Format.

Por fiiiiiiiin!!!

Si alguien lo necesita, ahi ta

SoloCodigo

Autor Tema: Calcular Hora (Leído 13459 veces)

UserCode

Calcular Hora

ElNapster

Re: Calcular Hora

cpmario

Re: Calcular Hora

UserCode

Re: Calcular Hora

UserCode

Re: Calcular Hora

Angel38

Re: Calcular Hora

UserCode

Re: Calcular Hora

UserCode

Re: Calcular Hora

Angel38

Re: Calcular Hora

UserCode

Re: Calcular Hora

UserCode

Re: Calcular Hora

F_Tanori

Re: Calcular Hora

Angel38

Re: Calcular Hora

UserCode

Re: Calcular Hora

UserCode

Re: Calcular Hora