tarih seçimii

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

tarih seçimii

Mesaj gönderen erdogan_ozkaya »

Merhaba Arkadaşar,

Bir alanımda proje PROJE_BASLANGIC var referans tarihim, 19.07.2015 olsun

puantaj eklerken ekranda iki adet DateTimePicker var birine 19.07.2017 birine de 19.08.2017 nasıl eklerim ?

teşekkürler
Kullanıcı avatarı
cinarbil
Üye
Mesajlar: 109
Kayıt: 18 Mar 2014 09:26

Re: tarih seçimii

Mesaj gönderen cinarbil »

Kod: Tümünü seç

DateTimePicker1.Date := StrToDate('19.07.2017'); 
DateTimePicker2.Date := StrToDate('19.08.2017');
//tarih formatınıza göre   .   / veya - koyabilirsiniz 
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: tarih seçimii

Mesaj gönderen erdogan_ozkaya »

Cevabınız için teşekkürler fakat bu olmaz tarih değişken 1...2..4..25... olabilir :(
Kullanıcı avatarı
cinarbil
Üye
Mesajlar: 109
Kayıt: 18 Mar 2014 09:26

Re: tarih seçimii

Mesaj gönderen cinarbil »

Soruyu tam anlayamadım herhalde
tarih bir değişkende tutuluyorsa

Kod: Tümünü seç

DateTimePicker1.Date := StrToDate(tarih_degiskeni1); 
DateTimePicker2.Date := StrToDate(tarih_degiskeni1);

veya soruyu daha ayrıntılı yazın
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: tarih seçimii

Mesaj gönderen erdogan_ozkaya »

proje kayıt ederken kayıt edildiği tarih giriliyor.

sonraki aylarda puantaj yapılırken (örnek proje 19.07.2015 de kayıt olsun) her ayın 19 ile sonraki ayın 19 arası puantaj yapılıyor şuan manuel seçiyorum tarihi ama ben istiyorum ki otomatik gelsin.

umarım anlatabilmişimdir.

teşekkürler

ayın başını ve sonunu aşağıdaki kodla getirebiliyorum.

Kod: Tümünü seç

//////////////ayın son günü
function LastDayOfCurrentMonth: TDate;
var
y, m, d: word;
begin
       decodedate(now, y, m, d);
       m := m + 1;
    if m > 12 then
    begin
        y := y + 1;
        m := 1;
    end;
    result := encodedate(y, m, 1) - 1;
end;
//////////////ayın son günü son

Kod: Tümünü seç

[code]var
  DTTarih : tDateTime;
begin
    dtTarih := StartOfTheMonth( IncDay( StartOfTheMonth( Now() ),  0  ) );
    dtpBASLANGIC.Date:= DTTarih;
    dtpBITIS.Date:=LastDayOfCurrentMonth;
[/code]
bilal09
Üye
Mesajlar: 26
Kayıt: 28 Haz 2017 10:21

Re: tarih seçimii

Mesaj gönderen bilal09 »

post işlemi esnasında (beforepost esnasında) puantaj tarih alanların gün bilgisini kayıt tarihinden alsın ay ve yıl bilgilerini +1 ile arttırsın ve kaydetsin olabilirmi acaba yanlış anlamadım ise

kolay gelsin
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: tarih seçimii

Mesaj gönderen erdogan_ozkaya »

sanırım ben anlatamadım :(

proje kayıt tarihi x yılın x ayın 19. günü olsun

basitçe ikitane DateTimePicker1 (19.07.2017) mevcut ayın günü DateTimePicker2 (19.08.2017) sonraki ayın günü gelsin bukadar

burda proje kayıt tarihi x gün olabilir yani otomatik tarihde değişir 15.01.2016.... 10.07.2016 vs

teşekkür ederim ilgi ve alakanız için
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: tarih seçimii

Mesaj gönderen ertank »

Merhaba,

Sorunuzdan anladığım şu: Kullanıcı bir tarih girsin. Ben otomatik bir ay sonraki tarihi hesaplayıp diğer alana yazayım. Bunu aşağıdaki gibi yapmak mümkün olabilir.

Kod: Tümünü seç

uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimePicker2.Date := IncMonth(DateTimePicker1.Date);
end;
Tarih değişir değişmez diğer DateTimePicker'da değişsin istiyorsanız yukarıdaki kodu TDateTimePicker.OnChange() olayına yazmanız gerekir.
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: tarih seçimii

Mesaj gönderen erdogan_ozkaya »

yok hocam bu değil.

projem 05.05.2015 başladı.


puantaj ekranını açtığımda mevcut ay yıl gelsin ama gün 05 gelsin ikinci tarihte sonraki ayın 05 gelsin.

:(



teşekkürler
Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: tarih seçimii

Mesaj gönderen SimaWB »

Bazen "Soru sormak cevap, vermekten daha zor galiba" diye düşünüyorum :(
There's no place like 127.0.0.1
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: tarih seçimii

Mesaj gönderen erdogan_ozkaya »

:)
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: tarih seçimii

Mesaj gönderen erdogan_ozkaya »

hocam ben mi soramadım valla anlayamadım :))
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: tarih seçimii

Mesaj gönderen ertank »

erdogan_ozkaya yazdı:yok hocam bu değil.

projem 05.05.2015 başladı.


puantaj ekranını açtığımda mevcut ay yıl gelsin ama gün 05 gelsin ikinci tarihte sonraki ayın 05 gelsin.

:(



teşekkürler

Kod: Tümünü seç

uses
  DateUtils;

procedure TForm2.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Date := EncodeDate(YearOf(Now()), MonthOf(Now()), 5);
  DateTimePicker2.Date := IncMonth(DateTimePicker1.Date);
end;
Cevapla