, data en tussen Julian, bijdragen: 格雷戈魏格 nart {DF > ik wil een accurate omzetting heen en weer tussen de methoden,     > Gregory en Julian   date, als je verwijst naar de echte Julian dagen voor astronomie,}, zoals... Het programma juliandate; {datum} - Julian dagen, het gebruik van beeldschermen; {turbine /snelle Pascal}, var. De maand en jaar, Greg,  : gehele getal;               dagen, julianday: huisvesting,  ;               schrikkeljaar, dateokay: doek,,,;         clrscr;,         Writeln (en' de datum van dec.20.91 g.vigneault Julian v0.1 en');  ,       Writeln (en&#[39] en&#kalenderjaar; in de waarde van 39;); ,       methoden;    ,     {jaar jaar binnen de normale, negatieve},         schrijven (en' input (waar voor Christus, BC - en&#waar voor): 39;);  ,       readln (jaar); en         schrikkeljaar: = vals;} {draagt niet    ,     als ((Mod. 4) = 0) {een schrikkeljaar?},         then if ((Year MOD 100)<>0) { LeapYear if not century },              or ((Year MOD 100)=0) and ((Year MOD 400)=0),              then LeapYear := True;,     Repeat,         Write( 'Enter Month (1..12): ' );,         ReadLn( Month );,     Until ( Month < 13 ) and ( Month > 0 );,     WriteLn('Julian Days begin at Greenwich mean noon (12:00 UT)');,     DateOkay := False;,     Repeat,     Write( 'Enter Day (1.0 <= Day < 32.0): ' );,     ReadLn( Day ); {may be decimal to include hours},     if ( Day >= 1.0 ) and ( Day < 32.0 ),         then Case Month of,                 1,3,5,7,8,10,12：如果天<；32然后dateokay：= true；，                4,6,9,11：如果天<；31然后dateokay：= true；，                2：如果（天<；29）或，，                                     （天<；30）和闰年，                                  然后dateokay：= true，                                  其他的方法（与# 39；不是一个闰年！与# 39；）；，                {案例}，        结束；如果不dateokay然后写（# 7）；{哔}，        直到dateokay；，        （*这里是我们开始的日期*朱利安计算），        如果在[ 1，2 ]个月，        然后开始，                        月（年）；，                        公司（月12），                端；，        {占教皇格雷戈瑞和# 39；历的校正，当        }，{后天oct.4.1582是oct.15.1582 }，        如果（年<；1582），           （年为1582），（月<；10），           （年= 158(2) en op = 10) en (dag < = 15),                 Greg: = 0 {oct.15.1582 of eerder} {oct.16.1582 of andere             na het begin van    },                                                 Greg: = trunc (jaar van die 100);  ,                                               Greg: = 2 - Greg + trunc (Greg zone 4,    );                             is. Als  ,               (jaar > = 0) (ongeveer of Christus?}，                然后julianday：= int（365.25×年）{广告}，                别的julianday：= int（365.25年0.75）；} {公元前，        julianday：= julianday，                   + int（30.6001 *（月+ 1）），                   +天，                   + 1720994.5，                   +格雷戈；，        方法；，        Writeln（与# 39；等效朱利安日期：与# 39；，julianday：8:2）；，        例程，结束。{juliandate},