oi gente..

como faço pra soma em hora em valor
exp: a cada hora e 2,50

 

Você poderia se expressar melhor. não estou entendendo seu problema

veja se ajuda se o que entendi você quer é saber o valor hora trabalhada:

É o seguinte:

ex:
Rem ===================================
Rem Calcula as horas trabalhadas semana
Rem ===================================
xhoras = 0: xminutos = 0: xsegundos = 0

If Abs(xsegundos) < 60 Then
   xsegundos = xsegundos + Abs(Mid$(txthora_trabalhada_dia.Text, 7, 2))
   If Abs(xsegundos) >= 60 Then
      xsegundos = xsegundos - 60
      xminutos = xminutos + 1
   End If
End If
        
If Abs(xminutos) < 60 Then
   xminutos = xminutos + Abs(Mid$(txthora_trabalhada_dia.Text, 4, 2))
   If xminutos >= 60 Then
      xminutos = xminutos - 60
      xhoras = xhoras + 1
   End If
End If
                  
xhoras = xhoras + Abs(Mid$(txthora_trabalhada_dia.Text, 1, 2))

txthora_trabalhada_semana.Text = Format$(xhoras, "00") & ":" & Format$(xminutos, "00") & ":" & Format$(xsegundos, "00")

espero ter ajudado

e o seguinte eu quero faz um programinha bem simpres de LANHOUSE

que caucula as horas que o clientes esta no computador.

eu peguei um exp aqui de como calcula o tempo.

10:00:00 entrada

11:30:00 saida

01:30:00 tempo

agora quero que ele Calcula este tempo por valor em real 2,50 a hora

você pode gravar as horas como um número ... é uma alterantiva, fica mais fácil de trabalhar depois ...

  Dim intHoraInicial As Integer
  Dim intHoraFinal As Integer
  Dim intIntervalo
  intHoraInicial = 1000
  intHoraFinal = 1150
  intIntervalo = intHoraFinal - intHoraInicial
  MsgBox intIntervalo / 100 * 2.5, vbInformation, "Aviso"