Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

Site with time computations

  1. Sep 17, 2005 #1
    Is there a site which has a "program" that allows me to enter two dates and then the program will compute the length of time between these two dates?
     
  2. jcsd
  3. Sep 17, 2005 #2
    why not sit down and figure that out yourself? heck, you could write a perl script to do that/
     
  4. Sep 19, 2005 #3
    I wrote a function in Delphi that does that. Im not sure if you have Delphi or not. If you really want I can write a VB code and it should be easily transated to VB Script to be used in Web Browsers. By the way, it returns the result in seconds. Here ya go. (may get range check error if Date1 > Date2 ^^)

    Function SubtractDateTime(Date1, Date2: TDateTime): Extended;
    Const
    {-Time-}
    Millisecond = 0.001;
    Second = 1; Seconds = 1;
    Minute = 60; Minutes = 60;
    Hour = 3600; Hours = 3600;
    Day = 86400; Days = 86400;
    Week = 604800; Weeks = 604800;
    Month = 2629743.83; Months = 2629743.83;
    year = 31556926; years = 31556926;
    Decade = 315569260; Decades = 315569260;
    Century = 3.1556926 * 10e09;
    Millenium = 3.1556926 * 10e10;
    {-/Time-}
    var
    Hour1, Min1, Sec1, MSec1 : Word;
    Y1, M1, D1: Word;
    Hour2, Min2, Sec2, MSec2 : Word;
    Y2, M2, D2: Word;
    RHour, RMin, RSec, RMSec, RY, RM, RD: Word;
    Begin
    Try
    Result := 0;
    DecodeDate(Date1, Y1, M1, D1);
    DecodeDate(Date2, Y2, M2, D2);
    DecodeTime(Date1, Hour1, Min1, Sec1, MSec1);
    DecodeTime(Date2, Hour2, Min2, Sec2, MSec2);
    RHour := Hour1 - Hour2;
    RMin := Min1 - Min2;
    RSec := Sec1 - Sec2;
    RMSec := MSec1 - MSec2;
    RY := Y1 - Y2;
    RM := M1 - M2;
    RD := D1 - D2;

    Result := Result + RHour * Hour;
    Result := Result + RMin * Minute;
    Result := Result + RSec * Seconds;
    Result := Result + RMSec * MilliSecond;
    Result := Result + RY * Year;
    Result := Result + RM * Month;
    Result := Result + RD * Day;
    Except Result := 0;//wtf ^^
    End;
    End;
     
    Last edited: Sep 19, 2005
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook

Have something to add?



Similar Discussions: Site with time computations
  1. Computer Sites (Replies: 2)

  2. New computer time! (Replies: 24)

  3. Free web site hosting? (Replies: 6)

Loading...