Datetimepicker yılın ilk gününe setleme

[conari]

Form un Create edilişinde,

Datetimepicker.date := 'Yılın ilk günü '01-01-2006 gibi
yılın ilk gününe getirmem lazım..

Yardım alabilirmiyim.

[Kuri_YJ]

Selamlar,

Basit bir kodla halledebilirsiniz.

Kod: Tümünü seç

var
  wrdYil, wrdAy, wrdGun : word ;
begin
  DecodeDate(Now, wrdYil, wrdAy, wrdGun) ;
  DateTimePicker1.Date := EncodeDate(wrdYil,1,1) ;
end ;

Bu kadar.

Koaly Gelsin.

Not : Delphi'de yeni misiniz?

[conari]

Kod: Tümünü seç

var
yil :string;
begin
yil:=(inttostr( YearOf(Date)));
DateTimePicker1.Date :=''+yil+''+'-01-01';
DateTimePicker1.Date := FormatDateTime('yyyy-mm-dd',Date);
end;

Şeklinde kullanıyordum ama otomatik bir fonk. vardır diye sordum..



Not:Deplhi de çok eski ama Kodlama da yeni sayılırım..

[Kuri_YJ]

Selamlar,

Formatlı Tarih dönüşümlerinden kaçının. Regional and Language Options (Yerelleştirme ile ilgili seçeneklerde başınız ağrır).

Şimdi sizin ve benim kodlari birleştirip daha güzel bir şey yapalım.

Kod: Tümünü seç

  intYil = YearOf(Date) ;
  DateTimePicker1.Date := EncodeDate(intYil, 1, 1) ;

hem daha kısa hem de sorunsuz bir şekilde tarihi set etmiş olursunuz.

Kolay Gelsin