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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  calculo de tempo
heber
não registrado
Postada em 12/11/2009 17:31 hs   
cara....  o negocio funciona da seguinte forma... o usuário registra um atendimento... la e coloca o tempo q ele gastou para executar ...  ex: 10:25 (horas e minutos), e ai ele abre outro atendimento e gasta 05:10 (horas e minutos) ... queria fazer o total desses horários gastos em atendimento.... ai preciso somar essas horas  pra dar um total nos relatorios....
 
 
 
     
heber
não registrado
Postada em 12/11/2009 17:33 hs   
o usuario ira registrar em um campo só na tela... o tempo q ele gastou...
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 12/11/2009 19:35 hs            
use o datediff
 
desta forma
 
Função que acabei de criar pra facilitar seu trabalho
 
Function DifHoras(Hora1 As Date,Hora2 As Date) As String
Dim H As Integer, M As Integer, TempDeco As Integer
TempDeco = DateDiff("n",Hora1, Hora2) ' Tempo decorrido
M = TempDeco Mod 60 ' Minutos  igual ao Resto do tempo decorrido dividido por 60
H = (TempDeco - M) / 60 ' Horas igual ao tempo decorrido menos os minutos dividido por 60
DifHoras = Format(H & ":" & M, "hh:nn")
End Function
 
para usar é simples
 
txtDiferenca.text = DifHoras(txtHora1.Tex,txtHora2.Text)
 
tente
 
 
 
TÓPICO EDITADO
 
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 12/11/2009 20:33 hs            
eu pensei q vc quisesse calcular diferenças entre horários; mas parece q vc está querendo somar horas de ordens de serviço...
então vamos lá.... SUPONDO q vc esteja armazenando os dados como texto (porem só numeros ok? ex 10h e 8 min armazenados como 1008...)
 
hanterior= tempo já gasto anteriormente salvo no bd
h_atual = tempo q foi gasto digitado no campo do form
 
hanterior= val(hanterior)
hranterior= int (hanterior/100)
minanterior= hanterior mod 100
hr_atual=  int (h_atual /100)
min_atual=h_atual  mod 100
'agora é somar...
Tmin= minanterior+min_atual
Thoras= hranterior+hratual
if Tmin>= 60 then
        Tmin=Tmin-60
        Thoras=Thoras+1
else
endif
 
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 13/11/2009 00:01 hs            
é eu nao havia entendido também mas....
 
Total = CDate(txtHora1) + CDate(txtHora2)
 
pronto
 
 
     
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 13/11/2009 11:52 hs            
como eu disse ... os valores tem q ser numero ou string... caso contrario, ao passar de 24 h vc terá  um resultado didferente ex: 29:45 h
se usar data irá aparecer.... 1:05:45
     
Página(s): 2/4     « ANTERIOR    PRÓXIMA »


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