Ayın ilk ve son günü bulma

[dogan]

Faklı bir bilgisayara alttaki kodları çalıştırdığımda 01.05.2015 olaması gereken tarih _1._2.2015 olarak geliyor, kodlar değişiklik yaparak bunu nasıl düzeltebilirim?

Kod: Tümünü seç

function FDOM(Date: TDateTime): TDateTime; // --->>Ayın 1 günü
var
  Year, Month, Day: Word;
begin
  DecodeDate(Date, Year, Month, Day);
  Result := EncodeDate(Year, Month, 1);
end;

function LDOM(Date: TDateTime): TDateTime; // --->>Ayın son günü
var
  Year, Month, Day: Word;
begin
  DecodeDate(Date, Year, Month, Day);
  Result := EncodeDate(Year, Month, MonthDays[IsLeapYear(Year), Month]);
end;

Kod: Tümünü seç

[list]procedure TForm5.FormShow(Sender: TObject);
begin
  MaskEdit1.Text := (DateToStr(FDOM(Now)));
  MaskEdit2.Text := (DateToStr(LDOM(Now)));
end;[/list]

[lazymule]

1. si maskedit kullanmışsın atama yaparken ile maskedit daki editmask ile aynı şekilde ata ve veya FormatDateTime() "dd.mm.yyyy" gibi kullanabilirsin.
yardımda kullanımı var bakarsın.
2. DateUtils.pas ın içinde yazdığın fonksiyonlar mevcut delphini kendi unitlerine ağırlık verirsen versiyon değişikliklerinde daha az sorun yaşarsın. EndOfTheMonth ve StartOfTheMonth olması lazım

[brs]

Kod: Tümünü seç

procedure TForm1.Button4Click(Sender: TObject);
begin
  ShowMessage(DateToStr(EndOfTheMonth(Now)));
  ShowMessage(DateToStr(StartOfTheMonth(Now)));
end;

end;

// uses DateUtils;

[akuyumcu63]

brs Karderş Çok Teşekkürler