CALCULAR HORA
Pessoal, quando uma pessoa digita por exemplo:
70.
Como fazer para que num label mostre: 01:10?
Outro exemplo:
Tempo.text = 80
TotalTempo.caption = 00:20
Como fazer isso quando o tempo.text for maior que 59??
70.
Como fazer para que num label mostre: 01:10?
Outro exemplo:
Tempo.text = 80
TotalTempo.caption = 00:20
Como fazer isso quando o tempo.text for maior que 59??
Cabei de montar:
Private Sub Command1_Click()
Dim horas As String
Dim horas1 As String
Dim horas2 As String
Dim horas3 As String
Dim horas4 As String
horas = Text1.Text
horas1 = horas / 60
horas2 = Left$(horas1, InStr(horas1, ",") - 1)
horas3 = (horas1 - horas2) * 60
horas4 = Left$(horas3, InStr(horas3, ",") - 1)
Label1.Caption = horas2 & " : " & horas4
End Sub
Só tem que tomar cuidado que se transformar o campo para Date/Time você perdera o valor da hora quando for acima de 24 Horas.... Ou transforma em Dias + Horas ou então transforma em Texto para colocar tipo 27:52 ..
OK!?
OK!?
Assim
Dim Hora as integer
Dim Hora_Formatada as string
Hora = 70
Hora_Formatada = Format(TimeSerial(0,Hora,0,"HH:MM")
Automaticamente Hora_Formatada = "1:10"
Comando Responsabel > TimeSerial
Espero ter Ajudado
Dim Hora as integer
Dim Hora_Formatada as string
Hora = 70
Hora_Formatada = Format(TimeSerial(0,Hora,0,"HH:MM")
Automaticamente Hora_Formatada = "1:10"
Comando Responsabel > TimeSerial
Espero ter Ajudado
Certo Cardoso, mas deste modo ele pere o tempo se for dias..
Por exemplo se o campo Hora for 1930 o resultado deveria ser 32:10 mas da forma citada acima o resultado será 08:10...
Isto que tem que tomar cuidado e se o foco do CARINHENA for este ele tem que tratar convertendo tudo em minutos e depois calcular tudo em numero e mostrar como texto e não como hora... Entende?
Por exemplo se o campo Hora for 1930 o resultado deveria ser 32:10 mas da forma citada acima o resultado será 08:10...
Isto que tem que tomar cuidado e se o foco do CARINHENA for este ele tem que tratar convertendo tudo em minutos e depois calcular tudo em numero e mostrar como texto e não como hora... Entende?
Veja bem, esses dados será apenas para "contar" o numero de minutos que uma pessoa deseja ficar em uma lan house.
Exemplo:
A pessoa digita 70 minutos, então o programa pergunte se ele realmente deseja ficar 01:10 minutos mesmo.
Não tenho problemas com dias, pq não creio que alguem consiguira ficar mais de 24 horas, não acham?
Ou terei problemas?
Exemplo:
A pessoa digita 70 minutos, então o programa pergunte se ele realmente deseja ficar 01:10 minutos mesmo.
Não tenho problemas com dias, pq não creio que alguem consiguira ficar mais de 24 horas, não acham?
Ou terei problemas?
CARDOSO2911 falou primeiro.
só organizando
MsgBox TimeSerial(0, 0, 70)
só organizando
MsgBox TimeSerial(0, 0, 70)
cara faz desse jeito ae
Private Sub cmdCalcular_Click()
Dim horas As String
Dim horas1 As String
Dim horas2 As String
Dim horas3 As String
Dim horas4 As String
horas = Text1.Text
horas1 = horas / 60
horas2 = Left$(horas1, InStr(horas1, ",") - 1)
horas3 = (horas1 - horas2) * 60
horas4 = Left$(horas3, InStr(horas3, ",") - 1)
hora.Caption = horas2 & " : " & horas4
End Sub
Private Sub cmdCalcular_Click()
Dim horas As String
Dim horas1 As String
Dim horas2 As String
Dim horas3 As String
Dim horas4 As String
horas = Text1.Text
horas1 = horas / 60
horas2 = Left$(horas1, InStr(horas1, ",") - 1)
horas3 = (horas1 - horas2) * 60
horas4 = Left$(horas3, InStr(horas3, ",") - 1)
hora.Caption = horas2 & " : " & horas4
End Sub
Tópico encerrado , respostas não são mais permitidas