Question

How to convert time in milliseconds to number of years in Pascal

Answer 1

program MillisecondsToYears;

uses
  SysUtils;

const
  MS_PER_SECOND = 1000;
  SECONDS_PER_MINUTE = 60;
  MINUTES_PER_HOUR = 60;
  HOURS_PER_DAY = 24;
  DAYS_PER_YEAR = 365.25;

function MillisecondsToYears(ms: Int64): Double;
begin
  MillisecondsToYears := ms / (MS_PER_SECOND * SECONDS_PER_MINUTE * 
                               MINUTES_PER_HOUR * HOURS_PER_DAY * DAYS_PER_YEAR);
end;

var
  milliseconds: Int64;
  years: Double;

begin
  milliseconds := 1476907455894; 
  
  years := MillisecondsToYears(milliseconds);
  
  WriteLn('Years: ', FormatFloat('0.00', years));
end.



(*
run:

Years: 46.80

*)

 

70+ SQL courses for beginners and professionals