🚀 go-pugleaf

In article <35C07780.DF0F02D4@bigfoot.com>,
  Dag Welinder <welinder@bigfoot.com> wrote:
> Hello!
>
> Is it possible to compute the number of days between two dates? I have
> two instances of GregorianCalendar, each containing a date. Can I
> compute the number of days between these two dates?

  Translate the dates to Julian numbers and subtract the two.

  // Quick and Dirty translation from an older
  // turbo pascal function
  // UNTESTED - see original funciton

  int Julian(int M, int D,int Y) {
    int j2; int ju;
    j2 = (M - 14) / 12;
    ju = D - 32075 + (1461 * (Y + 4800 + j2) / 4);
    ju = ju + (367 * (M - 2 - j2 * 12) / 12);
    ju = ju - (3 * ( (Y + 4900 + j2) / 100) / 4);

    return ju;
  }

  // original function
  function dateType.Julian( mo, da, yr: integer): LongInt;
  var     i, j, k, j2, ju: longInt;
  begin
       i := yr;     j := mo;     k := da;
       j2 := ( (j - 14) div 12 );
       ju := k - 32075 + (1461 * ( i + 4800 + j2 ) div 4 );
       ju := ju + ( 367 * (j - 2 - j2 * 12) div 12);
       ju := ju - (3 * ( (i + 4900 + j2) div 100) div 4);
       Julian := ju;
  end;  { Jul }



--
The Idiot's Guide To Everything (ComputerRelated)
http://members.tripod.com/~igte
=================================================

-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp   Create Your Own Free Member Forum