CALCULO VALOR HORAS

LUIZGS 06/12/2010 06:46:03
#358870
Bom dia, como posso fazer o seguinte calculo: (calcular o valor das horas trabalhadas)
txttotal.text= ( txthora.text * 31.8)
(15:00 * 31.8 = 477,00)

Obrigado

Luiz
FEDERHEN 06/12/2010 09:12:07
#358878 Resposta escolhida
Dim dblHoras As Double
Dim dblMinutos As Double

dblHoras = Mid([Ô]15:30[Ô], 1, 2)
dblMinutos = Mid([Ô]15:30[Ô], 4, 2) / 60

MsgBox (dblHoras + dblMinutos) * 31.8
LUIZGS 06/12/2010 09:29:52
#358880
Bom dia FEDERHEN, obrigado pelo retorno, funcionou direitinho.
Obrigado
Abraços
Luiz
Tópico encerrado , respostas não são mais permitidas
Voltar