ObjectPascal SecsPerDay Constant Gives the number of seconds in a day SysUtils unit

const SecsPerDay = 86400;

Description The SecsPerDay constant gives the number of seconds in a day (24 * 60 * 60 = 86400). Related commands DaysInAMonth Gives the number of days in a month DaysInAYear Gives the number of days in a year MinsPerDay Gives the number of minutes in a day MonthDays Gives the number of days in a month		Example code : Show the number of minutes and seconds in a week begin   WriteLn('Number of minutes in a week = '+IntToStr(MinsPerDay*7));   WriteLn('Number of seconds in a week = '+IntToStr(SecsPerDay*7)); end; Show full unit code    Number of minutes in a week = 10080    Number of seconds in a week = 604800