Pues tenia algo de tiempo libre y me puse a ver ke me salia, aunke la verdad si me hacia falta algo asi.
es un programa ke te dice cuanto tiempo se va a tardar en descargar cierto archivo segun la conexion que tengas,:
Private Sub cmdDownload_Click()
Dim time56 As Integer
Dim time64 As Integer
Dim time128 As Integer
Dim time256 As Integer
Dim time512 As Integer
Dim timex As Integer
time56 = ((Val(txt_size) * 1024) / 5.6) / 60
lbl_56k.Caption = time56
time64 = ((Val(txt_size) * 1024) / 6.4) / 60
lbl_64k.Caption = time64
time128 = ((Val(txt_size) * 1024) / 12.
/ 60
lbl_128k.Caption = time128
time256 = ((Val(txt_size) * 1024) / 25.6) / 60
lbl_256k.Caption = time256
time512 = ((Val(txt_size) * 1024) / 51.2) / 60
lbl_512k.Caption = time512
timex = ((Val(txt_size) * 1024) / 102.4) / 60
lbl_xk.Caption = timex
End Sub
aqui nadamas da los minutos, pero me gustaria que se mostraran los resultados en segundos u horas, segun sea el caso, como se podria hacer esto??
Autor