datetimepicker1 wmonth wyear ayırma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

datetimepicker1 wmonth wyear ayırma

Mesaj gönderen erdogan_ozkaya »

merhaba,

aşağıdaki kod ile sistem tarihi geliyor, datetimepicker1 seçimini, yılı ve ayı nasıl alabilirim ?

Teşekkürler

Kod: Tümünü seç

const
 Aylar: array[1..12] of string = ('Ocak', 'Şubat', 'Mart', 'Nisan', 'Mayıs', 'Haziran', 'Temmuz', 'Ağustos', 'Eylül', 'Ekim', 'Kasım', 'Aralık');
var
 Ay: TSystemTime;
 Yil: TSystemTime;
begin
 
 
 GetLocalTime(Ay);
 GetSystemTime(Yil);
 ComYil.ItemIndex := ComYil.Items.IndexOf(IntToStr(Yil.wYear));
 ComAy.ItemIndex := ComAy.Items.IndexOf(Aylar[Ay.wMonth]);
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: datetimepicker1 wmonth wyear ayırma

Mesaj gönderen ertank »

Merhaba,

Sorunuz çok net değil. Benim anladığım kadarıyla örnek kod içinde olmayan bir DateTimePicker1 nesnesi var. Bunun içinden seçilmiş olan yıl ve ay bilgisini almak istiyorsunuz.

Doğru anladı isem aşağıdaki gibi bir kod ile bunu yapmanız mümkün.

Kod: Tümünü seç

uses
  DateUtils;

procedure MyProcedure;
var
  SecilenYil: Integer;
  SecilanAy: Integer;
begin
  SecilenYil := DateUtils.YearOf(DateTimePicker1.Date);
  SecilanAy := DateUtils.MonthOf(DateTimePicker1.Date);
end;
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: datetimepicker1 wmonth wyear ayırma

Mesaj gönderen erdogan_ozkaya »

Çok Teşekkür Ederim Hocam.
Cevapla