sonraki ay olayı

[gamsizgani]

Merhaba

12 adet tarih formatında maskedit var. Ve il girdiğim maskedit.in tarihine göre sonrakilerde sırayla birbirini takip eden ay ve uygun gün olsun.

Mesela; maskedit1'e 12.12.2004 girdiğimde
maskedit2 12.01.2005 olsun
maskedit3 12.02.2005 olsun
......
bir de

eğer ilk maskedit girdiği ayın son günü veriyorsa sonraki maskeditler de takip eden ayın son gününü versin

Melela: maskedit1'e 31.12.2003 girdiğimde
maskedit2 31.01.2005 olsun
maskedit3 29.02.2005 olsun
......

bunu maskedit1'in exit olayına yazmak istiyorum.

Lütfen şununla yap demeyin bu istediğii nasıl yaparım onu söyleyin. Bu 3 veya 4 maskedit göre (12 maskedite göre de olabilir) kodları yazarsanız inanın çok mutlu olurum.

Teşekkür Ederim.

[Fatih!]

incmonth

[gamsizgani]

incmonth'u biliyorum ama soruyu ayrıntılı yazım okursanız sevinirim.
teşekkür ederim.

[lazio]

maskedit in onexit ine..

Kod: Tümünü seç

MaskEdit2.Text := DateToStr(IncMonth(StrToDate(MaskEdit1.Text)));
MaskEdit3.Text := DateToStr(IncMonth(StrToDate(MaskEdit2.Text)));

[pro_imaj]

Merhaba,

Daha önce taksitli satışla ilgili ufak bir çalışma yapmıştım.

Şimdi Taksitli satış mantığındaki taksit olayı iki şekilde olur.

1 yol ) taksit sayısı +30 şeklinde olur.
2 yol ) taksit sayısı =her ayın aynı günü şekilinde.

ay sonunu bulmak için

Kod: Tümünü seç

IncMonth

komutunu kullanabilrsiniz ayrıntılı bilgi için delphiturkiye.com anasayfasında çok açıklayıcı bilgiler mevcut.

Ben bunu şu şekilde yapıyorum.

Kod: Tümünü seç

for i:=1 to strtoint(TaksitSayisiEdit.text) do
begin
tarih := IncMonth(tarih);
if (strtoint (copy(datetostr(tarih),4,2))=12) and  (copy(datetostr(tarih),1,2)<> u) then
begin
k:=u+copy(datetostr(tarih),3,8);
tarih:=StrToDate(k);
end;

Kolay gelsin.

[gamsizgani]

İlginize gerçekten çok teşekkür ederim

Sevgiyle...