Mikroelektronika MIKROE-742 데이터 시트

Demonstration of Time library routines usage for time calculations in UNIX time format.

program Time_Demo;

program Time_Demo;

var epoch, diff : longint;

ts1, ts2 : TimeStruct;

ts1.ss := 0 ;

ts1.mn := 7 ;
ts1.hh := 17 ;
ts1.md := 23 ;

ts1.mo := 5 ;
ts1.yy := 2006 ;

{*

* What is the epoch of the date in ts ?
*}

epoch := Time_dateToEpoch(ts1) ;

{*

* What date is epoch 1234567890 ?

*}

epoch := 1234567890 ;

Time_epochToDate(epoch, ts2) ;

{*

* How much seconds between this two dates ?

*}

diff := Time_dateDiff(ts1, ts2) ;

type TimeStruct = record

ss : byte ;    

// seconds

mn : byte ;    

// minutes

hh : byte ;    

// hours

md : byte ;    

// day in month, from 1 to 31

wd : byte ;     // day in week, monday=0, tuesday=1, ....

sunday=6

mo : byte ;    

// month number, from 1 to 12 (and not

from 0 to 11 as with unix C time !)

yy : word ;   

// year Y2K compliant, from 1892 to 2038

503

- SOFTWARE AND HARDWARE SOLUTIONS FOR EMBEDDED WORLD

CHAPTER 6