Private Sub Cmd1_Click()
Dim i, j As Integer
Dim N, M As Integer
Dim Coun(), Film(), Mucs() As String
N = InputBox("Ââåäèòå êîëè÷åñòâî ñòðàí")
M = InputBox("?")
ReDim Coun(1 To N, 1 To M), Film(1 To N, 1 To M), Mucs(1 To N, 1 To M)
For i = 0 To N - 1
For j = 0 To M * 2
If j = 0 Then
Coun(i, j) = InputBox("Coun" & i)
List1(i).List(j) = Coun(i, j)
ElseIf (i / 2) - Fix(i / 2) = 0 Then
Film(i, j) = InputBox("Film" & i)
List2(i).List(j) = Film(i, j)
Else
Mucs(i, j) = InputBox("Mucs" & i)
List3(i).List(j) = Mucs(i, j)
End If
Next j
Next i
End Sub

uses crt;
type
 mymas=array[1..12] of integer;
const d1:mymas=(0,31,59,90,120,151,181,212,243,273,304,334);  {Dlya NE vicokosnogo}
      d2:mymas=(0,31,60,91,121,152,182,213,244,274,305,335);   {Dlya vicokosnogo}
var data:string[10];
    d:mymas;
    god,mes,den,kol_v:integer;
    kol_dney:array[1..3] of longint;
    er,i:integer;{for error and cikl :)}
begin
clrscr;

for i:=1 to 2 do
  begin
    readln(data);  {GGGG.MM.DD}
    Val(Copy(data,1,4),god,er);
    Val(Copy(data,6,2),mes,er);
    Val(Copy(data,9,2),den,er);

    {Proverka na "visokosnost"}
    if ((god mod 4)=0) and (((god mod 100)<>0)or((god mod 400)=0)) then d:= d2 {Dlya vicokosnogo}
    else d:= d1;{Dlya NE vicokosnogo}

    kol_v:=((god-1) div 4)-((god-1) div 100)+((god-1) div 400);
    kol_dney[i]:=god*365+kol_v+d[mes]+den;
  end;
  
kol_dney[3]:=kol_dney[2]-kol_dney[1];
writeln(kol_dney[3],' Days');
write('HAI+IMUTE ''Enter'' DLYA BUXODA');
readln;
end.

program data;

uses crt;
label escape,asd,dsa,contin;
var
m1:array[1..12] of integer;
m2:array[1..12] of integer;
a:array[1..3] of longint;
b:array[1..3] of longint;
err:boolean;
cd:char;
i:byte;
razn,d1,d2,mo1,mo2,y1,y2:longint;
begin
clrscr;
writeln('Input first date');
writeln('Day');
read(a[1]);
writeln('Month');
read(a[2]);
writeln('Year');
read(a[3]);
writeln('Input second date');
writeln('Day');
read(b[1]);
writeln('Month');
read(b[2]);
writeln('Year');
read(b[3]);

for i:=1 to 12 do
begin

if (i=1) or (i=3) or (i=5) or (i=7) or (i=8) or (i=10) or (i=12) then
begin
m1[i]:=31;
m2[i]:=31;
end
else
begin
m1[i]:=30;
m2[i]:=30;
end;
end;

if a[3]/4=int(a[3]/4) then m1[2]:=29 else m1[2]:=28;
if b[3]/4=int(b[3]/4) then m2[2]:=29 else m2[2]:=28;

clrscr;
if (a[1]<=0) or (b[1]<=0) or (a[2]<=0) or (b[2]<=0) or (a[3]<=0) or (b[3]<=0) then err:=true;
if (a[2]>12) or (b[2]>12) then err:=true;
if a[1]>m1[a[2]] then err:=true;
if b[1]>m2[b[2]] then err:=true;
if err=true then
begin
writeln('Error! Please check your data.');
goto escape;
end;

if a[3]>b[3] then
dsa:
begin
d1:=a[1];
mo1:=a[2];
y1:=a[3];
d2:=b[1];
mo2:=b[2];
y2:=b[3];
goto contin;
end;

if b[3]>a[3] then
asd:
begin
d1:=b[1];
d2:=a[1];
mo1:=b[2];
mo2:=a[2];
y1:=b[3];
y2:=a[3];
goto contin;
end;

if b[3]=a[3] then
begin
if a[2]>b[2] then goto dsa;
if b[2]>a[2] then goto asd;
if b[2]=a[2] then
begin
if a[1]>b[1] then goto dsa;
if a[1]<b[1] then goto asd;
end;
end;

contin:

razn:=0;
repeat
if y2/4=int(y2/4) then m1[2]:=29 else m1[2]:=28;
razn:=razn+1;
if (d2<=m1[mo2]) and (mo2<=12)  then d2:=d2+1;

if (d2>m1[mo2]) and (mo2<12) then
begin
mo2:=mo2+1;
d2:=1;
end;
if (d2>m1[mo2]) and (mo2=12) then
begin
y2:=y2+1;
d2:=1;
mo2:=1;
end;
until (d1=d2) and (mo1=mo2) and (y1=y2);
escape:
writeln('Difference');
writeln(razn);
writeln('days');
cd:=readkey;
end.

Program Jules;
{
  All of the explanation needed is the source.

  "May this routine make all your code run faster"
                            - Programmer's Prayer
}


Type
  Str3 = string[3];  {for a month name}
  str9 = string[9];
Var
  Date1,Date2    : string[12]; {the dates to compare}
  Number_of_days : integer;    {Number of days between the two dates}

Function Number_of_Month (Month : str3) : integer;
{Returns the sequential number of the month; Jan=1 & Dec = 12}
Var
  Temp : integer;
  Dates : string[36];
Begin
  {Notice how I scan the string. Less code than a case!}
  Dates := 'JanFebMarAprMayJunJulAugSepOctNovDec';
  Number_of_Month := round((pos(Month,Dates)-1)/3) +1;
End;

function Since_Beginning (month,day,year : integer) : integer;
var
   DayCount  : integer;   {Holds the number of days}
   Temp      : integer;   {Just a temporary holding integer}
   Num_Leaps : integer;   {Holds the number of leap years}
Begin
  Num_Leaps := 0;
  DayCount  := 0;
  Writeln;
  Writeln('Scanning ',month,'/',day,'/',year,' ...');
  for Temp := 1 to year do   {Gets the number of leap years}
    If (temp mod 4) = 0 then Num_Leaps := Num_Leaps + 1;
  Writeln('Found ',num_leaps,' leap years occuring');
  DayCount := (year * 365) + Num_Leaps;  {calcs year & leap year}
  Writeln('Making ',abs(daycount),' days in ',year,' YEARS');
  DayCount := DayCount + Day; {adds in days}
  Writeln('Plus ',day,' days makes ',abs(daycount),
          ' days in YEAR + DAY');

  For Temp := 1 to Month-1 do
{
 Couldn't help but put a large case here.
 The number is the number of days in that month. Feb is 28 because
 the leap year counter takes the leap year into effect
}
  Begin
    Case Temp of
      1 : DayCount := DayCount + 31; {jan}
      2 : DayCount := DayCount + 28; {feb}
      3 : DayCount := DayCount + 31; {mar}
      4 : DayCount := DayCount + 30; {apr}
      5 : DayCount := DayCount + 31; {may}
      6 : DayCount := DayCount + 30; {jun}
      7 : DayCount := DayCount + 31; {jul}
      8 : DayCount := DayCount + 31; {aug}
      9 : DayCount := DayCount + 30; {sep}
     10 : DayCount := DayCount + 31; {oct}
     11 : DayCount := DayCount + 30; {nov}
     12 : DayCount := DayCount + 31; {dec}
    end; {case of temp}
  end; {for loop}
  Since_Beginning := DayCount;
  Writeln('Plus ',month,' months makes ',abs(daycount),
          ' days since 00/00/00');
end; {function SINCE_BEGINNING}


Function Days_Elapsed (date1,date2 : str9) : integer;
Var
  Month1,Day1,Year1,
  Month2,Day2,Year2 : integer; {sets of dates}
  Temp1,Temp2       : integer; {for the VAL function}
Begin
  Month1 := Number_of_Month(Copy(date1,4,3));  {gets the month number}
  Month2 := Number_of_Month(Copy(date2,4,3));  {gets the month number}
  Val(copy(date1,1,2),Day1,Temp2);      {get everything into numerics}
  Val(copy(date2,1,2),Day2,Temp2);      { "        "      "      "   }
  Val(copy(date1,8,2),year1,temp2);     { "        "      "      "   }
  Val(copy(date2,8,2),year2,temp2);     { "        "      "      "   }
  Val(copy(date1,8,2),year1,temp2);     { "        "      "      "   }
  Val(copy(date2,8,2),year2,temp2);     { "        "      "      "   }
  Days_Elapsed := Since_Beginning(month2,day2,year2) -
                  Since_Beginning(month1,day1,year1);
                  {The difference of the two numbers}
end;

Begin {Main}
  Date1 := '27 Jan 64';  {My birthday}
  Date2 := '20 Nov 85';  {When I last edited this program}
  ClrScr;                {If you want originality, call an author...}
  Writeln('JULES   -  Finds the number of days between two dates ',
          'using a JULIAN manner.');
  Writeln('Author  -  David Strickler');
  Writeln('Address -  FIDO 101/45  [Midnight DEC]');
  Writeln;
  Writeln('This program shows a pretty good way to find the number');
  Writeln('of days between two dates. It is reasonably fast and');
  Writeln('has a mininum of source code to it. Please use it as');
  Writeln('you wish. The only right I claim, is that is it officialy');
  Writeln('in the Public Domain.');
  Writeln;
  {Call the main function. Very neat & clean. Two in, one out}
  Number_of_Days := Days_Elapsed(date1,date2);
  Writeln('Number of days between ',date1,' and ',date2,' is ',
           Number_of_days);
End.