tarih hesaplaması

[nes432]

bir tarihe 1 ay eklemek istiyorum. sonra ayrı bi hücrede aynı tarihe 2 ay daha eklemek şeklinde altı ayı içerecek bir işlemim var.

Ama; 25/12/2017 tarihime bir ay eklediğim zaman 25/01/2017 tarihini vermeli, 2 ay ekleyince 25/02/2017, üç ay ekleyince 25/03/2017 şeklinde olmalı 30/31/28 içeren tarihler sapma yaratmadan.. Nasıl yapabiliriz

 

[YUSUF44]

İlk tarih A1 hücresindeyse bir ay sonrasını aşağıdaki formülle bulabilirsiniz:

=TARİH(YIL(A1);AY(A1)+[COLOR="Red"][B]1[/B][/COLOR];GÜN(A1))

Daha fazla arttırmak için kırmızı olan 1 sayısını arttıracağınız sayıya göre değiştirebilirsiniz

 

[nes432]

tşk ederim tam istediğim gibi.

 

[Ömer BARAN]

Merhaba.

YUSUF Bey'in müsadesiyle bir hususun açıklığa kavuşturulması için bir soru sormak gerekiyor.

İlk hücreye yazılan tarihin GÜN kısmı, sonraki ayda/aylarda yoksa ne olmasını istiyorsunuz?

İlk hücreye yazılan tarihe göre AY'ın 1 artırılmasının vereceği sonuçların aşağıdaki gibi olacağını bilmelisiniz.
-- 31.01.2018 için 03.03.2018,
-- 31.05.2018 için 01.07.2018
.

 

[nes432]

peki bu sorunu nasıl gidereceğiz

 

[Ömer BARAN]

Siz böyle bir durumda ne yapılmasını istediğinizi söyleyin ki; ona göre çözüm önerilebilsin değil mi?

 

[Orion1]

vba kod ile ;
Deneyiniz.
Tarih B1 hücresinde ;

Sub tar59()
Dim tar1 As Date, tar2 As Date
tar1 = Range("B1").Value
tar2 = DateAdd("m", 1, tar1)
MsgBox tar2
End Sub

 

[Ömer BARAN]

Eğer isteğiniz, Sayın GİZLEN'in makro kullanarak önerdiği gibi;

ilgili gün bir sonraki ayda;
-- yoksa o ayın son gününün,
-- varsa sonraki ayın aynı gününün

elde edilmesi ise ve makro yerine formül kullanmak isterseniz aşağıdaki formüllerden birini kullanabilirsiniz
(başlangıç tarihinin A1 hücresinde olduğu varsayıldı).
.

=[COLOR="red"]MİN[/COLOR]([COLOR="red"]SERİAY[/COLOR]($A$1;[COLOR="red"]SATIR[/COLOR](A1));[COLOR="red"]TARİH[/COLOR]([COLOR="red"]YIL[/COLOR]($A$1);[COLOR="red"]AY[/COLOR]($A$1)+[COLOR="red"]SATIR[/COLOR](A1);[COLOR="red"]GÜN[/COLOR]($A$1)))

=[COLOR="red"]EĞER[/COLOR]([COLOR="red"]GÜN[/COLOR]($A$1)>[COLOR="red"]GÜN[/COLOR]([COLOR="red"]SERİAY[/COLOR]($A$1;[COLOR="red"]SATIR[/COLOR](A1)));[COLOR="red"]SERİAY[/COLOR]($A$1;[COLOR="red"]SATIR[/COLOR](A1));[COLOR="red"]TARİH[/COLOR]([COLOR="red"]YIL[/COLOR]($A$1);[COLOR="red"]AY[/COLOR]($A$1)+[COLOR="red"]SATIR[/COLOR](A1);[COLOR="Red"]GÜN[/COLOR]($A$1)))

 

[nes432]

tmm yardımı olan tüm arkadaşlara tşk ederim. ilgili gün yoksa o ayın son günü olan işimi gordü.