United States

Change

All Microsoft Sites

Help and Support

Id. de artículo: 111268 - Última revisión: miércoles, 11 de octubre de 2006 - Versión: 2.2

Calcular el tiempo transcurrido para un procedimiento de Visual Basic

Advertencia: Artículo de Traducción Automática, vea la exención de responsabilidad.

Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna

Ver los productos a los que se aplica este artículo

Resumen

En Microsoft Visual Basic para aplicaciones, puede tiempo procedimientos, instrucciones y funciones especificando la función Timer antes y después las instrucciones que desea que el tiempo.

Volver al principio

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos que cumplan sus requisitos específicos. La función Timer de Visual Basic puede utilizarse para registrar horas para una serie de comandos del inicio y finalización. El siguiente ejemplo establece la variable StartTime en la hora actual del sistema, se ejecuta el código para que se ha superado el tiempo, después se establece la variable EndTime en la hora actual del sistema. Por último, el tiempo transcurrido entre StartTime y EndTime se imprime en la ventana de depuración mediante el comando Debug.Print.

Volver al principio

Ejemplo de código de Visual Basic

Sub ElapsedTime()
   Dim StartTime As Double, EndTime As Double

   'Stores start time in variable "StartTime"
   StartTime = Timer

   'Place your code to be timed here

   'Stores end time in variable "EndTime"
   EndTime = Timer

   'Prints execution time in the debug window
   Debug.Print "Execution time in seconds: ", EndTime - StartTime
End Sub

Después de ejecutar la macro ElapsedTime, puede ver el tiempo transcurrido en el panel Inmediato de la ventana depuración. Para ver el panel Inmediato de la ventana depuración, haga clic en ventana depuración en el menú Ver.

La siguiente macro de Visual Basic crea un archivo de texto que contiene una lista de mensajes de error que pueden generarse en Visual Basic, aplicaciones de edición. Se mostrará la cantidad de tiempo que tarda en realizar este procedimiento en un cuadro de mensaje.

Volver al principio

Ejemplo de código de Visual Basic

Sub ErrorCodes()
   Dim StartTime As Double, EndTime As Double, X
   'creates a file of error messages
   StartTime = Timer 'Stores start time in variable "StartTime"
   Open "vbaerror.txt" For Output As #1
   For X = 1 To 3300
      Print #1, X, Error$(X)
   Next X
   Close #1
   EndTime = Timer 'Stores end time in variable "endTime"
   'Shows Message Box with elapsed time
   MsgBox "Execution time in seconds: " + Format$(EndTime - StartTime)
End Sub

Volver al principio

Referencias

"Manual del usuario de Visual Basic", versión 5.0, capítulo 8, página 158

Volver al principio

La información de este artículo se refiere a:

Microsoft Excel 97 Standard Edition

Volver al principio

kbmt kbprogramming KB111268 KbMtes

Volver al principio

Traducción automática

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

Haga clic aquí para ver el artículo original (en inglés): 111268 (http://support.microsoft.com/kb/111268/en-us/ )

Volver al principio

Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna

El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Volver al principio