Programación en segundos

Subcomando privado 1_Click()

Dim i, j, iHour, iMinute, iSecond son números enteros

i = Val(Text1. Text)

I segundos = i Mod 60

i = i \ 60

iMinuto = i Mod 60

i = i \ 60

iHora = i Mod 60

Etiqueta1. Título = Str(iHour) & "hora"; str(I minuto) & "minuto"; str(I segundo) & "segundo"

Conector final