maan, de maan, de wijze van berekening van de bijdrage van 艾伦格拉夫,: {, Robert Forbes zegt dat alle 25 /94...,   RF > niemand enig idee hoe een algoritme,   RF > berekening van een bepaalde datum van de maan?在这里，你：，类DateType =记录，     天：字；，     月：单词；，     年：词；，     道：字；，     端；================================================================= }，{，程序gregoriantojuliandn（年，月，日：整数；，                              VaR juliandn：LongInt）；，VaR，  世纪，  xyear：LongInt；开始gregoriantojuliandn }，{，  如果月<；= 2然后开始，    年：= PRED（年）；，    月：=月+ 12；，    端；，  月：=月3；，  世纪：=年DIV 100；，  xyear：=年mod 100；，  世纪：=（世纪* D1）SHR 2；，  xyear：=（xyear * D0）SHR 2；，  juliandn：=（（（（月* 153）+ 2）DIV 5）+天）+D2,                                                                         + xyear + eeuw;,     einde gregoriantojuliandn; {} {=================================================================}, functionele maan (datum van het type)  : huisvesting;,   (***************************************************************),     (* *) (* * * * * * *  ,   bepaling van de aanpassing van de maan (%) (* * * * * * * * * * * * * *),     0 = Nieuwe maan, 1 = de volle maan   (* * * * * * * * * * * * * *),   als gevolg van afronding, de volledige waarde niet kan worden bereikt,     (*) * * * * * * * de geldigheidsduur van 1582 op 15 oktober 2008 tot en met 28 februari, 4000 *) (* * * * * * *    , berekening van de programma 's en dat(* * * * * * * * * * * * * *),     " 119 nut van de SW zakrekenmachines " * * * * * * *),     (John Clark, Craig, bibliotheek, 1982,   (* * * * * * * *)   艾伦格拉夫 Williamsburg, Wheeler, oh * turbo Pascal omschakeling),     (* *),     (************************** *************************************) var, de J:LongInt; m: huisvesting, te beginnen,    ; gregoriantojuliandn (datum, jaar, maand, dag, dag, dag, J);    , M = (J + 4.867) /29.53058 = 2;,     M:* (m-int (m)) 1;  ,   maan: = ABS (m), een einde te maken aan de;,