USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Ajuda!!!! Calculo de horas trabalhadas
FLAVIO
não registrado
Postada em 14/11/2005 15:08 hs   
Prezados Amigos,
 
Venho através deste, solicitar quem pode me ajudar como eu devo calcular horas trabalhadas.
Ex: 17:50 hora inicio.
      até 01:15 da Manhã como eu devo utilizar para gerar esse resultado de horas trabalhadas.
 
Fico muito grato
 
Att
 
Flavio
 
     
Shel
GOIÂNIA
GO - BRASIL
Postada em 15/11/2005 08:48 hs         
Flávio,
            dê uma olhada nesse link: http://www.macoratti.net/d010901.htm
 
Ats,
Marcelo
     
Rodrigo F.
JABOTICABAL
SP - BRASIL
ENUNCIADA !
Postada em 15/11/2005 11:23 hs            
horas_trabalhadas= format((#15:00# + #20:30#) * 24, "#0.0")
msgbox(horas_trabalhadas & " horas ")

Rodrigo Ferreira

MSN - rjpferreira@hotmail.com

   
FLAVIO
não registrado
Postada em 16/11/2005 09:17 hs   
Muito obrigado pelas dicas caros amigos, mas desenvolvi uma rotina que pode ajudar mais alguem.
 
                Dim Dif
                Dim DIFHORA
                Dim DIFMINT
                Dim DIFMINT_P1_ENT
                Dim DIFMINT_P1_SAI
                DIFMINT_P1_ENT = Val(Right(rstHorasTrab("P1_H_ENTRADA"), 2))
                DIFMINT_P1_SAI = Val(Right(rstHorasTrab("P1_H_SAIDA"), 2))
               
                            
                mP1_H_ENTRADA = rstHorasTrab("P1_H_ENTRADA")
                mP1_H_SAIDA = rstHorasTrab("P1_H_SAIDA")
                If Val(mP1_H_ENTRADA) > Val(mP1_H_SAIDA) Then
                    DIFHORA = Format((24 + Val(mP1_H_SAIDA) - Val(mP1_H_ENTRADA)), "#0.00")
                   
                Else
                    DIFHORA = Format((Val(mP1_H_SAIDA) - Val(mP1_H_ENTRADA)), "#0.00")
                End If
               
                If DIFMINT_P1_SAI > DIFMINT_P1_ENT Then
                    DIFMINT = (DIFMINT_P1_SAI - DIFMINT_P1_ENT)
                Else
                    DIFMINT = (60 - DIFMINT_P1_ENT) + DIFMINT_P1_SAI
                    If DIFMINT < 0 Then DIFMINT = DIFMINT * -1
                    DIFHORA = DIFHORA - 1
                    If DIFHORA < 0 Then DIFHORA = 0
                   
                End If
                rstHorasTrab.Edit
                rstHorasTrab("HORAS_TRABALHADAS") = strzero((Val(DIFHORA)), 2) + ":" + strzero((DIFMINT), 2)
                rstHorasTrab.Update
 
 
Public Function strzero(sString As String, nzeros As Integer)
Do While Len(sString) < nzeros
    sString = "0" & sString
Loop
strzero = sString
End Function
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página