Eu tenho um banco de dados com as horas, minutos e segundos convertidas em numero inteiro.

Ex:

1H29min26seg = 53366

 

Eu queria uma formula ou parte de código em VB que me transforme o número inteiro em horas, minutos e segundos.

Se tiverem para o VB e para o crystal podem enviar-me.

 

valew pessoal...

Divida o número por 3600
3600 = quantidade de segundos em cada hora

5366 / 3600 = 1.49 int(1.49) = 1 hora

1 * 3600 = 3600 (multiplique a quantidade de horas por 3600)

5366 - 3600 = 1766

60 = quantidade de segundos em cada minuto

1766 / 60 = 29.4 int(29.4) = 29 minutos

29 * 60 = 1740 (multiplique a quantidade de minutos por 60)

1766 - 1740 = 26 segundos

 

Coloque no form um CommandButton um TextBox e um Label
Coloque o código abaixo no Code do form.

 

Private Sub Command1_Click()
  numero = Val(Text1.Text)
  horas = Int(numero / 3600)
  minutos = Int((numero - (horas * 3600)) / 60)
  segundos = numero - (horas * 3600) - minutos * 60
  Label1 = horas & " hora(s) " & minutos & " minuto(s) e "
  Label1 = Label1 & segundos & " segundo(s)."
End Sub

 

use os mesmos cálculos no Crystal Reports

 

att.
Rui C. Silva

Olá!!

O problema é que no crystal não sei fazer a formula com as variaveis que lá existem, se alguém me puder ajudar!!!

 

valew pessoal