SRick
|
LAVRAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/07/2013 16:35 hs
Olá amigos, preciso de uma ajuda dos senhores: tenho dois textbox que recebem as seguintes quantidades de horas:
textbox1 = "160:00:00" valor fixo
textbox2 = "122:35:00" valor variavel.
textbox3 vai receber a diferença entre (textbox2-texbox1) Quem poderia me ajudar, pois não estou conseguindo de jeito nenhum.
Obrigado
SRICK
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/07/2013 20:58 hs
Private Sub Command1_Click()
Text3.Text = calculo(Text1.Text, Text2.Text)
End Sub
Function calculo(HoraFixa As String, HoraVar As String) As String
Dim FHORA() As String
Dim VHORA() As String
Dim f As Integer
Dim v As Integer
Dim Calc As Integer
Dim ResultHora As Integer
Dim ResultMin As Integer
FHORA = Split(HoraFixa, ":")
VHORA = Split(HoraVar, ":")
f = CInt(FHORA(0) * 60) + CInt(FHORA(1))
v = CInt(VHORA(0) * 60) + CInt(VHORA(1))
Calc = f - v
ResultMin = Calc Mod 60
ResultHora = (Calc - ResultMin) / 60
calculo = ResultHora & ":" & Format(ResultMin, "00") & ":00"
End Function
|
|
|
|
SRick
|
LAVRAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2013 09:48 hs
Olá amigo TREZE, saudações, mais uma vez, você quebrou meu galho, ficou 10. Muito obrigado. Um abraço. Henrique |
|
|
|
|
