Функции/процедуры даты

[Hirurg_90]

Здравствуйте! Помогите плз! Суть программы в том, чтобы находить заданный файл(по дате) в архиве, затем из этих данных построить график. Все работает, только траблы с датой, задаю апрель 2011 года, график не строиться, так как в апреле 30 дней, а я задал for d:=1 to 31 do begin, меняю на 30, работает.Ниже полный листинг программы:
Спасибо!
ЗЫ Не получается под спойлер закинуть листинг, не поддерживается такой ББ код?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Chart1: TChart;
    Chart2: TChart;
    Series1: TLineSeries;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Grapher;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  yys,mms:string;
  data: array[1..31,1..24]of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
act:real;
dt:tdatetime;
path : string;
stb :string;
k,d,h,yy,mm :word;
f :textfile;
begin
   yys:=edit1.Text;
   mms:=edit2.Text;
   path:='D:/ASd/cosray!/ftp_nm/c/'+yys+'c/'+yys+'aatb/'+yys[3]+yys[4]+mms+'aatb.c0c';
   if fileexists(path)then begin
   assignfile(f,path);
   reset(f);
   for k:=1 to 7 do readln(f,stb);
   for d:=1 to 31 do begin
   for h:=1 to 24 do read(f,data[d,h]);
   readln(f,stb);
   end;
   closefile(f);
   edit1.color:=clmoneygreen;
   Grapher;

   end
      else    begin

   for d:=1 to 31 do for h:=1 to 24 do data[d,h]:=0;
   edit1.color:=clred;
    end;
    end;
Procedure Tform1.Grapher;
var
d,h,yy,mm:word;
act:double;
dt:tdatetime;
begin
for d:=1 to 30 do begin
   for h:=1 to 24 do begin
   yy:=StrToInt(yys);
   mm:=StrToInt(mms);
   Act:=Data[d,h];
   DT:=EnCOdeDate(yy,mm,d)+EnCodeTime(h-1,0,0,0);
   Series1.AddXY(DT,Act,'',0,);
                      end;
                 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

___________
Тут на форуме не поддерживается тег [spoiler]...[/spoiler]
и код оформлятся тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Модератор.

[BDA]

Заведите массив c: array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) с количеством дней в месяце.

function leap(year: integer): integer;
begin
  if ((year mod 4 = 0) and (year mod 100 <> 0)) or (year mod 400 = 0) then
    leap := 1
  else
    leap := 0;
end;

И сделайте c[2]:=c[2]+leap(year), чтобы массив содержал правильные размеры месяцев.
Затем берите размеры месяца из массива.

[Hirurg_90]

Спасибо большое!