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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Controlar horas trabalhadas
SRick
LAVRAS
MG - BRASIL
ENUNCIADA !
Postada em 19/04/2011 17:15 hs            
Olá pessoal, mais uma vez estou precisando de vocês. É o seguinte

Como fazer para somar horas, assim

DATA: 19/04/2011

HORA INICIAL: 08:30

HORA FINAL: 18:00

TOTAL DE HORA DO DIA: 07:30 HORAS

E SE CASO EU QUISER FAZER UM APESQUISA EM UM PERÍODO, EXEMPLO
DATA INICIAL: 11/04/2011  A  19/04/2011

TOTAL DE HORAS D PERÍODO: 85:15 HORAS.


   
Roßerto
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/04/2011 17:28 hs            
como somar se nao tem informado que horas comeca e termina ?

passando apenas a data nao tem como.

   
Almir
não registrado
ENUNCIADA !
Postada em 20/04/2011 07:23 hs   
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 20/04/2011 13:34 hs            
     
SRick
LAVRAS
MG - BRASIL
ENUNCIADA !
Postada em 22/04/2011 12:11 hs            
TREZE, OBRIGADO, ME AJUDOU MUITO, MAS COMO SOMAR O TOTAL DE HORAS NO FINAL DO MES OU DE UM DETERMINADO PERÍODO?
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 23/04/2011 10:20 hs            
Henrique, é o seguinte, não sei como está fazendo mas se está salvando as horas em um banco de dados se supondo que sua tabela possua campos parecidos com esses (data,horaini,horafim) seria assim:

usando ADO

Dim SomaMIn As Long
Dim Horas As Integer,Minutos As Integer, Total As String

sSQL = "SELECT * FROM tabela WHERE data BETWEEN #01/01/2011# AND #30/01/2011#"
Set RS = CNN.Execute(sSQL)
SomaMin = 0
Do While Not RS.EOF
SomaMin = SomaMin + CLng(Datediff("n",RS!horaini,RS!horafim))
RS.Movenex_t
Loop
Minutos = SomaMin Mod 60
Horas = (SomaMin - Minutos) / 60
Total = Horas & ":" & Minutos
MsgBox Total

   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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