none
calcular horas RRS feed

  • Pergunta

  • boa tarde a todos preciso criar uma sub que execute umas açoes desta forma: tenho dois campos para inserçao de horas. campo 1 (h.Entrada) e campo 2 (h.saida) preciso que a diferença entre o campo 1 e o campo 2 seja superior a um determinado tempo por ex: campo 1 06:00 e campo 2 17:00 resultado = 11:00 permita o uso do registro "126705" se a diferença for inferior a 11:00hs o registro "126705" fique impossibilitado de uso. grato pelo apoio
    Antonio Carlos acefeli@hotmail.com
    segunda-feira, 7 de novembro de 2011 17:00

Respostas

  • http://msdn.microsoft.com/en-us/library/system.timespan.aspx
    One word frees us of all the weight and pain of life: that word is love.
    segunda-feira, 7 de novembro de 2011 17:04
    Moderador
  • Olá,

     

    Dim t_ini As

    DateTime

     

    Dim t_fim As

    DateTime

     

    Dim Dif As

    TimeSpan

    Dif = t_fim.Subtract(t_ini)

    If Dif>11 Then

    ... abra seu registro

    segunda-feira, 7 de novembro de 2011 17:23
  • Ola Pessoal com muito esforço consegui fazer uma SUB p/ calcular HORAS e transformar em MINUTOS. Acompanhem ai.

       Sub Calcular1() 'calcular os campos HORAS E MINUTOS
    
            Dim Hinicio As DateTime = MkHInicio.Text
            Dim Hfim As DateTime = MkHFim.Text
            Dim tempo As TimeSpan
    
            tempo = Hfim.Subtract(Hinicio)
            Dim Tminimo As DateTime = DateTime.MinValue + tempo
    
    
            Dim hora As Integer = Tminimo.Hour
            Dim minuto As Integer = Tminimo.Minute
    
            hora = hora.ToString()
            minuto = minuto.ToString()
            'calcular horas e transformar em minutos
            Dim Hfinal As Integer = hora / 60
            Dim Mfinal As Integer = minuto
            Dim final As Integer
            final = (hora * 60) + minuto
            Dim Tfinal As Integer
            Tfinal = final / 60 * 60
            Label11.Text = Tfinal
            If Tfinal > 660 Then ' se superar 11 horas 
                Beep()
                MsgBox("O Funcionário não descansou o Tempo Necessário Obrigatório!")
            End If
    
    
        End Sub

    Agradeço a todos que tentaram me ajudar.
     
    Antonio Carlos acefeli@hotmail.com
    • Editado acefel quinta-feira, 17 de novembro de 2011 23:20
    • Marcado como Resposta acefel quinta-feira, 17 de novembro de 2011 23:20
    quinta-feira, 17 de novembro de 2011 23:16

Todas as Respostas

  • http://msdn.microsoft.com/en-us/library/system.timespan.aspx
    One word frees us of all the weight and pain of life: that word is love.
    segunda-feira, 7 de novembro de 2011 17:04
    Moderador
  • Olá,

     

    Dim t_ini As

    DateTime

     

    Dim t_fim As

    DateTime

     

    Dim Dif As

    TimeSpan

    Dif = t_fim.Subtract(t_ini)

    If Dif>11 Then

    ... abra seu registro

    segunda-feira, 7 de novembro de 2011 17:23
  • vou tentar até breve
    Antonio Carlos acefeli@hotmail.com
    segunda-feira, 7 de novembro de 2011 17:56
  • Ola Pessoal com muito esforço consegui fazer uma SUB p/ calcular HORAS e transformar em MINUTOS. Acompanhem ai.

       Sub Calcular1() 'calcular os campos HORAS E MINUTOS
    
            Dim Hinicio As DateTime = MkHInicio.Text
            Dim Hfim As DateTime = MkHFim.Text
            Dim tempo As TimeSpan
    
            tempo = Hfim.Subtract(Hinicio)
            Dim Tminimo As DateTime = DateTime.MinValue + tempo
    
    
            Dim hora As Integer = Tminimo.Hour
            Dim minuto As Integer = Tminimo.Minute
    
            hora = hora.ToString()
            minuto = minuto.ToString()
            'calcular horas e transformar em minutos
            Dim Hfinal As Integer = hora / 60
            Dim Mfinal As Integer = minuto
            Dim final As Integer
            final = (hora * 60) + minuto
            Dim Tfinal As Integer
            Tfinal = final / 60 * 60
            Label11.Text = Tfinal
            If Tfinal > 660 Then ' se superar 11 horas 
                Beep()
                MsgBox("O Funcionário não descansou o Tempo Necessário Obrigatório!")
            End If
    
    
        End Sub

    Agradeço a todos que tentaram me ajudar.
     
    Antonio Carlos acefeli@hotmail.com
    • Editado acefel quinta-feira, 17 de novembro de 2011 23:20
    • Marcado como Resposta acefel quinta-feira, 17 de novembro de 2011 23:20
    quinta-feira, 17 de novembro de 2011 23:16