Календарь

[Стелс]

Суть вопроса : при прокрутке календаря вперед даты соответствуют дням недели но при обратном отсчете какая то билиберда получается вот прошу помощи подсказать где я ошибиться мог

StringGrid1: TStringGrid;
    Button4: TButton;
    Button5: TButton;

    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);

var
  Form1: TForm1;
  d_R:integer=0;
  d_L:integer=0;
  S:integer=31;
  Year:integer=2012;

 const
 stDay : array[1..7] of string[2] = ('Вс','Пн','Вт',
                                       'Ср','Чт','Пт','Сб');
  stMonth : array[1..12] of string[8] = ('Январь','Февраль','Март',
                                          'Апрель','Май','Июнь','Июль',
                                          'Август','Сентябрь','Октябрь',
                                          'Ноябрь','Декабрь');

ИЗВИНЯЮСЬ упустил вам выложить еще кусочек
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);
begin
 StringGrid1.ColCount :=S;
end;

 
procedure TForm1.Button4Click(Sender: TObject);//листаем вперед
var
C:integer;
begin
 if (stMonth[d]='Февраль')then S :=28+ord(IsLeapYear(year));
 if (stMonth[d]='Январь')or(stMonth[d]='Март')or(stMonth[d]='Май')or
    (stMonth[d]='Июль')or(stMonth[d]='Август')or(stMonth[d]='Октябрь')or
    (stMonth[d]='Декабрь')then S:=31;
 if (stMonth[d]='Апрель')or(stMonth[d]='Июнь')or(stMonth[d]='Сентябрь')or
    (stMonth[d]='Ноябрь')then S :=30;

for C:=0 to s  do begin
   Inc(d_R);
if d_R >7 then d_R:=1;
   StringGrid1.Cells[C,0]:=stDay[d_R];
   StringGrid1.Cells[C,1]:=Inttostr(C+1);
end;
 with StringGrid1 do begin
         if  Cells[s,0]= 'Пн' then d_R:=1;
         if  Cells[s,0]= 'Вт' then d_R:=2;
         if  Cells[s,0]= 'Ср' then d_R:=3;
         if  Cells[s,0]= 'Чт' then d_R:=4;
         if  Cells[s,0]= 'Пт' then d_R:=5;
         if  Cells[s,0]= 'Сб' then d_R:=6;
         if  Cells[s,0]= 'Вс' then d_R:=7;
           end;
end;

procedure TForm1.Button5Click(Sender: TObject);//листаем назад
var
C:integer;
begin
 if (stMonth[d]='Февраль')then S :=28+ord(IsLeapYear(year));
 if (stMonth[d]='Январь')or(stMonth[d]='Март')or(stMonth[d]='Май')or
    (stMonth[d]='Июль')or(stMonth[d]='Август')or(stMonth[d]='Октябрь')or
    (stMonth[d]='Декабрь')then S:=31;
 if (stMonth[d]='Апрель')or(stMonth[d]='Июнь')or(stMonth[d]='Сентябрь')or
    (stMonth[d]='Ноябрь')then S :=30;

//ВОТ С ЭТОГО МЕСТА КОДА И НАЧИНАЮТСЯ ВЕЛИКИЕ ГРАБЛИ

with StringGrid1 do begin
         if  Cells[0,0]= 'Пн' then d_R:=1;
         if  Cells[0,0]= 'Вт' then d_R:=2;
         if  Cells[0,0]= 'Ср' then d_R:=3;
         if  Cells[0,0]= 'Чт' then d_R:=4;
         if  Cells[0,0]= 'Пт' then d_R:=5;
         if  Cells[0,0]= 'Сб' then d_R:=6;
         if  Cells[0,0]= 'Вс' then d_R:=7;
           end;

for C:=S downto 0 do begin
 Dec(d_L);
if d_l <1 then d_l:=7;
  StringGrid1.Cells[C,0]:=stDay[d_L];
  StringGrid1.Cells[C,1]:=Inttostr(C+1);
end;
 end;

жду критики

Причина закрытия темы подробно описана в самом первом пункте правил раздела...
Там даже примеры приведены, как следует называть свою тему, а как не следует.
Так что увы...

[Аватар]

1. Две процедуры Button4Click - это ноу-хау?
2. В первой из них end не хватает
3. d где определено и где значение присваивается
4. DayOfWeek - функция определения дня недели
DayOfTheMonth - к-во дней в месяце
EncodeDate - получение даты из года, месяца, числа

[Стелс]

ну это я сюда часть своего кода копировал так что неточности исправил уже )
Вот там где Button5Click у меня тупик (о_О стихи )

//ВОТ С ЭТОГО МЕСТА КОДА И НАЧИНАЮТСЯ ВЕЛИКИЕ ГРАБЛИ

with StringGrid1 do begin
         if  Cells[0,0]= 'Пн' then d_R:=1; 
         if  Cells[0,0]= 'Вт' then d_R:=2;
         if  Cells[0,0]= 'Ср' then d_R:=3;
         if  Cells[0,0]= 'Чт' then d_R:=4;
         if  Cells[0,0]= 'Пт' then d_R:=5;
         if  Cells[0,0]= 'Сб' then d_R:=6;
         if  Cells[0,0]= 'Вс' then d_R:=7;
           end;

for C:=S downto 0 do begin
 Dec(d_L);
if d_l <1 then d_l:=7;
 StringGrid1.Cells[C,0]:=stDay[d_L];
end;

Ну и все же как заставить работать МОЙ код ???

[Стелс]

Сообщение от Аватар

3. d где определено и где значение присваивается

на эту переменную не обращайте внимания с ней все в норме )

//глобальная 
d:integer=0;
//в обработчике батона 4 //листаем вперед
 Inc(d);
 if d > 12 then begin d := 1;Year:= (Year)+1;end;
//ну и в обработчике батона 5 только листаем назад Dec(d)

грабли там где я закапсил

[Стелс]

уточняю вопрос если месяц заканчивается Пн то следующий начинается со Вт например, и тд-это батон 4
соответственно если месяц начался со Вт то предыдущий кончился Пн-это батон 5

[Аватар]

1. Месяц назад

dec(d);
if d=0 then begin d:=12; Dec(Year); end;

2. День недели первого числа месяца

DayOfWeek(EncodeDate(Year,d,1));

1 - вскр, 2 - пон ... 7 - суб. Это короче и проще

3. К-во дней в месяце

DayOfTheMonth(EncodeDate(Year,d,1));

[Стелс]

спасибо все очень понятно сей час буду втыкать в свою прогу
вам +

[Стелс]

Свой код я всё же заставил функционировать )
Михалыч ,а что сразу красная карточка ,а не желтая ?