两个日期之间的天数要怎么计算 编程计算两个日期之间的天数

两个日期之间的天数要怎么计算？

两个日期之间的天数的计算=日期相减 1。比如:六月一号到六月三号，这之间是3天，分别是:一号、二号、三号，算式:3-1 1=3（天）。同理，2001年到2002年是2年，分别是:2001年和2002年，算式:2002-2001 1=2（年）；星期一到星期三是3天，分别是:星期一、二、三，共3天，算式:3-1 1=3（天）

编程计算两个日期之间的天数

主函数的功能是输入2个日期，然后求2个日期之间的总天数。
totoaldays的函数就是求从公元0年开始到输入日期之间的总天数。
long totaldays(int year,int month,int day)/*公元纪年的总天数*/
{ int days[]={0,31,28,31,30,31,30,31,31,30,31,30,31}
int c=day,m,y=year-1
days[2]=28 LEAP(year) //确定今年2月的天数
for(m=1m return c y/4-y/100 y/400 y*365L //计算方法是先计算假如全部年份都是平年的天数即y*365L，然后加c，c是year那一年的天数，再加上闰年出现的次数。
}

用pascal编写程序 编一程序计算两个日期之间的天数。

var

  y,m,y0,m0,ans,d,d0:longint

begin

  readln(y,m,d)
  readln(y0,m0,d0)

  repeat

    d:=d 1ans:=ans 1

    case m of

    1,3,5,7,8,10,12: if d>31 then begin m:=m 1d:=1end

    4,6,9,11:if d>30 then begin m:=m 1d:=1end

    2: if (y mod 4=0)and(y mod 100<>0)or (y mod 400=0)then

         begin if d>29 then begin m:=m 1d:=1endend

      else if d>28 then  begin m:=m 1d:=1end

    end

    if m>12 then begin m:=1y:=y 1end

  until (m=m0)and(d=d0)and(y=y0)

  writeln(ans)

end.