Pascal / dos / PackTime

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: PackTime()
Sintaxis:

procedure PackTime(
 
  var t: DateTime;
 
  var p: LongInt

Descripcion: UnPackTime convierte la fecha y hora especificada en T a un formato del embalar-tiempo que se pueda alimentar a SetFTime.
Ejemplo:

Program Example4;
uses Dos;
 
{ Program to demonstrate the PackTime and UnPackTime functions. }
 
var
  DT   : DateTime;
  Time : longint;
begin
  with DT do
   begin
     Year:=1998;
     Month:=11;
     Day:=11;
     Hour:=11;
     Min:=11;
     Sec:=11;
   end;
  PackTime(DT,Time);
  WriteLn('Packed Time : ',Time);
  UnPackTime(Time,DT);
  WriteLn('Unpacked Again:');
  with DT do
   begin
     WriteLn('Year  ',Year);
     WriteLn('Month ',Month);
     WriteLn('Day   ',Day);
     WriteLn('Hour  ',Hour);
     WriteLn('Min   ',Min);
     WriteLn('Sec   ',Sec);
   end;
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