Notifications
Clear all

Carregar Hora no TextBox Acima de 24 Horas

2 Posts
1 Usuários
0 Reactions
980 Visualizações
(@tarcelles)
Posts: 0
New Member
Topic starter
 

Olá Bom dia a todos, estou a 2 dias procurando a solução para o meu problema , porém ainda nao consegui, espero que alguem possa ajudar, é o seguinte :

Tenho uma planilha de controle de horas, Carrego em um form os dados do funcionário, porém no textbox que contem o saldo de horas a hora fica diferente.

Ex :

gravados na Planilha :

nome saldo de horas
Fulano da silva -28:30

Quando eu jogo pra variavel no forumalário e atribuído o valor de -1,1875 .. até ai eu entendo.

saldo = (Plan2.Range("f2"))

porém quando eu passo o valor pro textbox, ele converte o -1 pra um dia tendo como resultado 04:30

tsaldo.Text = Format(saldo, "[h]hh:mm;@")

Alguém sabe a mascara correta de por ali no Format, ou uma laço que amarre o valor da hora quando passe de 1 e conte 24horas ? quero que apareca no texbox -28:30

Por favor me ajudem

 
Postado : 01/10/2015 9:03 am
(@tarcelles)
Posts: 0
New Member
Topic starter
 

Pesquisando por ai Acabei resolvendo, ficando assim :

'Colocar o Saldo de horas
horaplanilha = (Plan2.Range("f2"))
tempo = CDec(horaplanilha)
hora = Round(tempo * 24) ' calculo qtas horas
Minuto = Int((tempo * 24 - Int(tempo * 24)) * 60) 'calculado qtde minutos
Segundo = ((tempo * 24 - Int(tempo * 24)) * 60 - Int((tempo * 24 - Int(tempo * 24)) * 60)) * 60 'calculo a qtde de seg
If Segundo > 59 Then
If Minuto + 1 > 59 Then
hora = hora + 1
Minuto = 0
Segundo = 0
End If
End If

tsaldo.Text = Format(hora, "00") & ":" & Format(Minuto, "00") & ":" & Format(Segundo, "00") 'Format(h3 * 24, "#0.0")

If tsaldo.Value <= maior Then
'vermelho
tsaldo.BackColor = &H8080FF
Else
'verde
tsaldo.BackColor = &HFF00&
End If
ActiveSheet.Visible = xlSheetVeryHidden

 
Postado : 01/10/2015 11:18 am