[01;34mwith[m Ada[31m.[mCalendar[31m;[m
[01;34muse[m Ada[31m.[mCalendar[31m;[m
[01;34mpackage[m Libsens[31m.[mUtil [01;34mis[m
   
   [01;34mfunction[m [01;30mInteger_Image[m [31m([mValue [31m:[m [01;34min[m [32mInteger[m[31m)[m [01;34mreturn[m [32mString[m[31m;[m
      
   [01;34mprocedure[m [01;30mDifference_In_Years[m[31m([mTop_Date [31m:[m [01;34min[m Time[31m;[m
                                 Bot_Date [31m:[m [01;34min[m Time[31m;[m
                                 Years    [31m:[m [01;34mout[m Natural[31m;[m
                                 Months   [31m:[m [01;34mout[m Natural[31m;[m
                                 Days     [31m:[m [01;34mout[m Natural[31m;[m
                                 Houres   [31m:[m [01;34mout[m Natural[31m;[m
                                 Minutes  [31m:[m [01;34mout[m Natural[31m;[m
                                 Second   [31m:[m [01;34mout[m Natural[31m;[m
                                 Rest     [31m:[m [01;34mout[m [32mDuration[m[31m);[m
[01;34mend[m Libsens[31m.[mUtil[31m;[m
