dateedit nesnesi

[Misafir]

selam
arkadaşlar en kısa yoldan bulunduğumuz yılın ilk gününü bulaya çalışıyorum bana yardımzcı olabilir misiniz....???

[lazio]

merhaba,

Kod: Tümünü seç

var
  Year, Month, Day : Word;
begin
  DecodeDate(Now, Year, Month, Day);
  ShowMessage(FormatDateTime('dddd', EncodeDate(Year, 1, 1)));
end;