Pascal / dos / GetTime

AddDisk, DiskFree, DiskSize, DosExitCode, DosVersion, DTToUnixDate, EnvCount, EnvStr, Exec, FExpand, FindClose, FindFirst, FindNext, FSearch, FSplit, GetCBreak, GetDate, GetEnv, GetFAttr, GetFTime, GetIntVec, GetLongName, GetMsCount, GetShortName, � GetTime, GetVerify, Intr, Keep, MSDos, PackTime, SetCBreak, SetDate, SetFAttr, SetFTime, SetIntVec, SetTime, SetVerify, SwapVectors, UnixDateToDt, UnpackTime, weekday,

Funcion: GetTime()
Sintaxis:

procedure GetTime(
 
  var hour: Word;
 
  var minute: Word;

Descripcion: Obtiene la hora actual del sistema.
Ejemplo:

Program Example3;
uses Dos;
 
{ Program to demonstrate the GetTime function. }
 
Function L0(w:word):string;
var
  s : string;
begin
  Str(w,s);
  if w<10 then
   L0:='0'+s
  else
   L0:=s;
end;
 
var
  Hour,Min,Sec,HSec : word;
begin
  GetTime(Hour,Min,Sec,HSec);
  WriteLn('Current time');
  WriteLn(L0(Hour),':',L0(Min),':',L0(Sec));
end.

Librerias Pascal

Libreria crt - CRT - Pantalla y teclado del PASCAL de Turbo que maneja la unidad
Libreria dos - DOS - Interface Turbo Pascal MS-DOS
Libreria Graph - Unidad para manipular los graficos de la pantalla compatible con TP
Libreria Objects - Objetos basicos compatible con TP
Libreria math - Rutinas adicionales matematicas
Libreria Printer - Provee de acceso a la impresora
Libreria strings - Rutinas para el manejo de cadenas
Libreria BaseUnix - Funcionalidad Basica de Linux
Libreria System - Manejo de Archivos - Funciones para la manipulacion de archivos en Pascal