Ao lidar com o tempo de Pascal , é calcular a quantidade de tempo entre os dois eventos diferentes . Por exemplo, você pode querer verificar tempo leva parte de um programa para ser executado, ou ver quanto tempo alguém foi logado ou para controlar o tempo durante um teste de múltipla escolha. Depois de recolher dois momentos diferentes , você codificá-los em uma forma numérica , subtrair e , em seguida, exibir a diferença horária. Instruções
1

Abra seu arquivo fonte Pascal em um editor de texto como o Bloco de Notas do Windows
2

Digite o seguinte código na parte superior do seu arquivo : .

Exemplo Programa;

Usa Dos ;

uses SysUtils ;

Usando " Dos " permite o acesso à função " GetTime " . Usando " sysutils " dá acesso ao " EncodeTime " e " funções" DecodeTime
3

Declare variáveis ​​que armazenam os valores de tempo , adicionando o código : .

Var

Hour1 , Min1 , Sec1 , HSec1 : palavra ;

hora2 , Min2 , Sec2 , HSec2 : palavra ;

hora3 , Min3 , Sec3 , MSec3 : palavra ; < br >

x , y, z: TDateTime ;
4

Obter a primeira vez , no início de sua função, adicionando o código :

Comece

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

Execute o código principal de sua função e , em seguida, chamar de " GetTime " novamente , adicionando o código :

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

Calcule a diferença entre os dois tempos , adicionando o código :

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

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

z: = y - x ;

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

a função " EncodeTime " converte o tempo em um valor " TDateTime " , que é armazenado como um "double ". O código subtrai as duas vezes e , em seguida, decodifica o resultado em um formato de impressão
7

Mostrar a diferença de tempo com a função " writeln " , adicionando o código: .

Writeln (formato ( 'Time diferença = % d:% d: % d' , [ hora3 , Min3 , Sec3 ] ) );

Fim
8

Salve o arquivo , compilar e executar. o programa para visualizar as medições de tempo.