Site with time computations

  • #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?
 

Answers and Replies

  • #2
379
0
why not sit down and figure that out yourself? heck, you could write a perl script to do that/
 
  • #3
352
1
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:

Related Threads on Site with time computations

  • Last Post
Replies
2
Views
2K
  • Last Post
Replies
1
Views
2K
Replies
21
Views
2K
  • Last Post
Replies
6
Views
5K
  • Last Post
Replies
24
Views
5K
  • Last Post
Replies
4
Views
4K
  • Last Post
Replies
1
Views
4K
  • Last Post
Replies
3
Views
815
  • Last Post
Replies
1
Views
2K
  • Last Post
Replies
9
Views
2K
Top