Pascal 中两个日期之间的差异

Question

这个程序应该可以找到两个日期之间的差异，但它有一个错误，我找不到它。它不断返回一个大数字 - 请帮忙

Program tp4;
Type
  dt = Record
    jour : Integer;
    mois : Integer;
    annee : Integer;
  End;
Var
  date : dt ;
  y,x,i,s : Integer;
Begin
  x := 0;
  s := 0;
  For y:=1 To 2 Do                                                  
    //2 dates
    Begin
      Writeln('Entrez un date : jour mois année ');
      Readln( date.jour, date.mois, date.annee);
      While ((date.jour<=0) Or (date.jour>31) Or (date.mois>12) Or (date.annee<=0) ) Do
        //verfication loop
        Begin
          Writeln('Entrez une  date valide : jour mois année ');
          Readln(date.jour ,date.mois ,date.annee);
        End;
      s := s+date.jour  ;
      For i:= 1 To date.mois-1 Do
        Case i Of
          3,5,7,8,10,12,1 : s := s+31;
          4,6,9,11 : s := s +30;
          2 : If ((date.annee Mod 100)=0) And ((date.annee Mod 400) = 0 ) Then //convert months to days
                s := s+29
              Else If date.annee Mod 4 = 0 Then
                     s := s+29
              Else s := s+28;
        End;                                                                                                                            //Convert years to days
      For i:= 1 To date.annee  Do
            
            If (i Mod 100 = 0) And (i Mod 400 = 0) Then s := s+366
            Else If (i Mod 4 =0) Then s := s+366
            Else s := s+365;
                    x:=s-x ; 
                
    End;

        
  If (x)<=0 Then
    Writeln('la difference est :',-x)
  Else Writeln('la difference est :',x);
  Readln;
End.

**input**
12 03 2019

13 03 2019
**output**


737510

Answer 1

我认为错误在s和x（x:=s-x;等）的某个地方，我做了重构：

Program tp4;

Type dt = Record 
  jour : Integer;
  mois : Integer;
  annee : Integer;
End;

Type
  arrayDate = array[1..2] of dt;

Var
  y,i,f,s : Integer;
  arrDate: arrayDate;

function Leap (Y : Word): Boolean;
Begin
  If (Y Mod 4) <> 0 Then Leap := FALSE 
  Else If (Y Mod 100) <> 0 Then Leap := TRUE 
  Else Leap := (Y Mod 400) = 0;
End;

function Lenght (date: dt) : Integer;
Begin
  Lenght := 0;
  Lenght := Lenght + date.jour;
  For i := 1 To date.mois Do 
    Case i Of 
      3, 5, 7, 8, 10, 12, 1 : Lenght := Lenght + 31;
      4, 6, 9, 11 : Lenght := Lenght + 30;
      2 : If Leap (date.annee) Then Lenght := Lenght + 29 Else Lenght:= Lenght + 28;
    End;  
  For i := 1 To date.annee Do  //Convert years to days
    If Leap (i) Then Lenght := Lenght + 366 Else Lenght := Lenght + 365;
End;

Begin
  For y := 1 To 2 Do  //2 dates
  Begin Writeln ('Entrez un date : jour mois année ');
    Readln (arrDate[y].jour, arrDate[y].mois, arrDate[y].annee);
    While ((arrDate[y].jour <= 0) 
      Or (arrDate[y].jour > 31) 
      Or (arrDate[y].mois > 12) 
      Or (arrDate[y].annee <= 0)) Do //verfication loop
    Begin
      Writeln ('Entrez une  date valide : jour mois année ');
      Readln (arrDate[y].jour, arrDate[y].mois, arrDate[y].annee);
    End;
  End;
  
  f := Lenght(arrDate[1]);
  s := Lenght(arrDate[2]);

  Writeln ('la difference est :', Abs(s - f)); // absolute |s-f|
  Readln;
End.

Answer 2

您正在使用 For y ... 循环请求输入并计算每个输入的天数。在循环中，s 变量是天数计数器。

你犯的错误是你在 For y ... 循环之前而不是在循环开始时将 s 归零。因此，您第二次请求日期时，s 仍然具有第一个日期的值，然后您开始计算第二个日期的天数。

更正当然是把s := 0;移动到For y ...循环的开头，

或将s的第一个赋值从

更改

s := s + date.jour;

至

s := date.jour;

Answer 3

在循环中找出相隔 6,000 年的两个日期之间的差异？并且（ab）使用标准函数“长度”的名称？哎哟！

试试这个：

//----------------------------------------------------------------------
// Convert a date to its Julian Day Number
//----------------------------------------------------------------------
procedure cj(dd, mm, yyyy: longint; var jdn, dow: longint);
var
  cj_y,
  cj_c,
  cj_x,
  cj_y: double;

begin
  if dd = 0 then
    begin
      jdn:= -1
      dow:= -1;
    end
  else
    begin
      cj_y:= yyyy + (mm - 2.85) / 12;
      cj_c:= 0.75 * trunc(cj_y * 0.01);

      cj_x:= frac(cj_y);
      cj_y:= trunc(cj_y);

      jdn:= trunc(
            trunc(
            trunc(367 * cj_x) + 367 * (cj_y) -
                                1.75 * cj_y + dd) - cj_c) +
                                1721115.0;
      dow:= jdn mod 7;
    end;
end; {cj}

给定的公式在 1582-10-15 之后的几天内有效，稍作调整将允许日期追溯到 0000-03-01。

按照我 1998 年 8 月在 comp.lang.pascal.borland 中发布的 https://groups.google.com/g/comp.lang.pascal.borland/c/itwgcfYpLEU 中的 link 进行解释。

Pascal 中两个日期之间的差异

Difference between two dates in Pascal

pascal