Cómo comparar Tiempo en Pascal

Cuando se trata de tiempo de Pascal , se calcula la cantidad de tiempo entre dos eventos diferentes . Por ejemplo , es posible que desee comprobar el tiempo que toma parte de un programa para correr, o ver cuánto tiempo una persona ha estado conectado o para realizar un seguimiento del tiempo durante un examen de opción múltiple. Una vez que usted recoge dos momentos diferentes , que las codifican en una forma numérica, restas y luego mostrar la diferencia horaria. Instrucciones
1

Abra el archivo de código fuente Pascal en un editor de texto como el Bloc de notas de Windows
2

Escriba el siguiente código en la parte superior de su archivo : .
< p> Ejemplo de programa ;

Usos Dos ;

Usos sysutils ;

uso de " Dos" permite acceder a la función " GetTime " . Usando " sysutils " proporciona acceso a las funciones " DecodeTime " " EncodeTime " y
3

Declare las variables que almacenarán los valores de tiempo con el código : .

Var

hORA1 , Min1 , Sec1 , HSec1 : word ;

hora2 , Min2 , Sec2 , HSec2 : word ;

hora3 , MIN3 , Sec3 , MSec3 : word ;

x, y, z: TDateTime ;
4

Cómo la primera vez al principio de la función con el código :

Comience

GetTime ( hORA1 , Min1 , Sec1 , HSec1 ) ;
5

Realice el código principal de su función y luego llamar " GetTime " de nuevo con el código :

GetTime ( hora2 , min2 , Sec2 , HSec2 ) ;
6

Calcular la diferencia entre los dos tiempos con el código :

x: = EncodeTime ( hORA1 , Min1 , Sec1 , 0);

y: = EncodeTime ( hora2 , Min2 , Sec2 , 0);

z: = y - x;

DecodeTime (z, hora3 , MIN3 , Sec3 , MSec3 ) ;

la función " EncodeTime " convierte el tiempo en un valor de " TDateTime " , que se almacena como un " doble ". El código resta los dos veces y luego decodifica el resultado en un formato imprimible
7

Muestra la diferencia horaria con la función " writeln " con el código : .

Writeln (formato ( ' diferencia horaria =% d:% d:% d', [ hora3 , MIN3 , Sec3 ])) ;

End
8

guardar el archivo, compilar y ejecutar . el programa para ver las medidas de tiempo .