Ay ve Yıl degerinden tarih üretme?

[gkimirti]

Elimizde Ay ve Yıl degerleri var 2005 1.Ay gibi
bu ayın baslangıc ve bitis tarihini nasıl bulurum

baslangıc kolay
DateBas:=EncodeDate(Yil,Ay,1);

ama bitis aya gore 28,29,30,yada 31 olabiliyor.

not:Delphi5 kullandıgım icin D7 deki tarizh fonksiyonlarının hepsi yok

[mussimsek]

Delphi 7'de bir dizi yapmış, artık yıl olup olmamasına göre de Şubat ayını ayarlamış.

Kod: Tümünü seç

const
  MonthDays: array [Boolean] of TDayTable =
    ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
     (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));

function DaysInAMonth(const AYear, AMonth: Word): Word;
begin
  Result := MonthDays[(AMonth = 2) and IsLeapYear(AYear), AMonth];
end;

benzer bir mantıkla yapabilirsin sen de.

Kolay gelsin.

[memiky]

Herkese Merhaba;

gkimirti arkadaşım bu sorusundan belki şunu anlamak gerekiyor: Delphi 5'te DateUtils adlı hazır Unit'in DaysInAMonth() fonksiyonu yok.. Ancak buraya yine de DaysInAMonth() fonksiyonun kullanım şeklini gösteren kısa bir kod vermeme izin verin:

Var
Yil, Ay, Gun : Integer;
begin
Yil := StrToInt(Edit1.Text);
Ay := StrToInt(Edit2.Text);
Gun := DaysInAMonth(Yil, Ay);
Edit3.Text := IntToStr(Gun);
end;

Gelelim bu fonksiyonu kullanmadan ayın kaç çektiğini öğrenmeye: Bence bunun en basit çözümü isim-değer çiftine sahip bir StringsList hazırlamaktır. Ama Delphi 5'te StringList'in olup olmadığını hatırlamıyorum.

Herkese saygılar..

[mege]

Delphi 7'de bir dizi yapmış, artık yıl olup olmamasına göre de Şubat ayını ayarlamış.

iki gün düşünsem bu işi tek satırda yapamasdım

Ama Delphi 5'te StringList'in olup olmadığını hatırlamıyorum.

delphi 1 de bile var,merak etmeyin

[gkimirti]

mustafa hocamın verdigi kodu fonksiyonlarımın arasına ekledim
bununla hallederim artık
saolun...