Dim inicio As DateTime = DateTime.Now
'---Proceso que se va a realizar
Dim fin As DateTime = DateTime.Now
Dim totalMin As String
Dim total As TimeSpan = New TimeSpan(fin.Ticks - inicio.Ticks)
totalMin = total.Hours.ToString("00") & ":" & total.Minutes.ToString("00") & ":" & total.Seconds.ToString("00")
Resultado: 00:15:46
Suscribirse a:
Enviar comentarios (Atom)
Muchisimas gracias me fue de gran ayuda amigo xD
ResponderEliminarMuchas gracias... me sirvió de mucho tu código. Saludos desde Chile
ResponderEliminargracias mente..... muy buen aporte.
ResponderEliminarsaludos desde Perú - Arequipa
asi es
ResponderEliminarNo sirve solo me muestra ceros
ResponderEliminarMuy buen aporte felicitaciones...Puedes agregar milisegundos puede ser que el proceso no alcance a medir en segundos...totalMin = total.Hours.ToString("00") & ":" & total.Minutes.ToString("00") & ":" & total.Seconds.ToString("00") & ":" & total.Milliseconds.ToString("0000")
Eliminar' The following statements set datTim1 to a Thursday
ResponderEliminar' and datTim2 to the following Tuesday.
Dim datTim1 As Date = #1/4/2001#
Dim datTim2 As Date = #1/9/2001#
' Assume Sunday is specified as first day of the week.
Dim wD As Long = DateDiff(DateInterval.Weekday, datTim1, datTim2)
Dim wY As Long = DateDiff(DateInterval.WeekOfYear, datTim1, datTim2)
Excelente, nada de restar, sumar o multiplicar o realizar calculos, todo es automatico
ResponderEliminarExcelente, casi 10 años después aun sigue ayudando.
ResponderEliminar