Subj : Unix time
To   : Sean Dennis
From : Bj”rn Felten
Date : Tue Dec 06 2005 06:25 am

 SD> I've never dealt with the DAYTIME format before.

   I guess you mean DateTime? If so, it's a very useful record, that you really 
should get used to. You can find out all about it, in the IDE, by pressing 
Ctrl-F1 with the cursor located on the word. Basically it's a record defined, 
in the DOS unit, as:

DateTime = record
  Year,Month,Day,Hour,Min,Sec: Word;
end;


   Here's a little test program for you, just to get you started. Add the 
variable DT to your Watch window in the IDE and then trace through the program 
with F8 to the line with Unix2Norm, press F7 to get into the UnixUtil unit, and 
then more F8 to see how DT changes in the Unix2Norm procedure.

uses UnixUtil, Dos;

var DT: DateTime;
    unixtime: longint;

function z2p(W: word): string;
begin
    z2p:=chr(W div 10 + 48) + chr(W mod 10 + 48)
end;

begin
    unixtime:=$7fffffff;
    Unix2Norm(unixtime, DT);
    with DT do begin
        write('Unixtime will only be valid until');
        write(' ',Year,'-',z2p(Month),'-',z2p(Day));
        write('  ',z2p(Hour),':',z2p(Min),':',z2p(Sec));
        writeln
    end
end.

---
 * Origin: news://felten.yi.org (2:203/2)

.