SmartPascal MinsPerDay Constant Gives the number of minutes in a day SysUtils unit

const MinsPerDay = 1440;

Description The MinsPerDay constant gives the number of minutes in a day (24 * 60 = 1440). Related commands DaysInAMonth Gives the number of days in a month DaysInAYear Gives the number of days in a year MonthDays Gives the number of days in a month SecsPerDay Gives the number of seconds in a day		Example code : Show the number of minutes and seconds in a week // Full Unit code. // ----------------------------------------------------------- // You must store this code in a unit called Unit1 with a form // called Form1 that has an OnCreate event called FormCreate.   unit Unit1;   interface   uses   SysUtils,   // Unit containing the MinsPerDay command   Forms, Dialogs;   type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   end;   var   Form1: TForm1;   implementation {$R *.dfm} // Include form definitions   procedure TForm1.FormCreate(Sender: TObject); begin   ShowMessage('Number of minutes in a week = '+IntToStr(MinsPerDay*7));   ShowMessage('Number of seconds in a week = '+IntToStr(SecsPerDay*7)); end;   end. Hide full unit code    Number of minutes in a week = 10080    Number of seconds in a week = 604800