İnşallah derdimi anlatabilirim. Bence biraz karışık. Şimdiden sürç-i lisan ettiysem affınıza sığınıyorum.
Excel sayfasının
başlama tarihi = C4:C25 arası
bitiş tarihi = D4: D25 arası
E sütununa İki tarih arası Gün farkını
F sütununa Gün sayısına göre Yıl
G sütununa Gün sayısına göre Ay
H sütununa Gün sayısına göre Gün sayılarını buluyorum.
Kod:
On Error Resume Next
If Not Intersect(Target, [C4:D20]) Is Nothing Then
sat = Target.Row
Cells(sat, "E") = Day(Cells(sat, "D")) + 30 * Month(Cells(sat, "D")) + 360 * Year(Cells(sat, "D")) - (Day(Cells(sat, "C")) + 30 * Month(Cells(sat, "C")) + 360 * Year(Cells(sat, "C")))
Cells(sat, "F") = Int(Cells(sat, "E") / 360)
Cells(sat, "G") = Int((Cells(sat, "E") - Int(Cells(sat, "E") / 360) * 360) / 30)
Cells(sat, "H") = Cells(sat, "E") - Int(Cells(sat, "E") / 360) * 360 - Int((Cells(sat, "E") - Int(Cells(sat, "E") / 360) * 360) / 30) * 30Eğer E sütununda ki gün sayısı 720' den küçük ise I sütununa 720 yazacak
J sütununa 2 yıldan F sütununda ki yıl farkını alacak
K sütununa 2 yıldan G sütununda ki Ay farkını alacak
L sütununa 2 yıldan H sütununda ki Gün farkını alacak
Eğer E sütununda ki gün sayısı 720 => Büyük ise I sütununa 720' den fazla olan gün sayısını yazacak
J sütununa fazla olan gün sayısını yıla çevirecek
K sütununa fazla olan gün sayısını Aya çevirecek
L sütununa fazla olan gün sayısını Güne çevirecek
Umarım anlatabildim. Yardımcı olacak tüm üstad'larıma teşekkür ederim.
