3657 sayısını gün ay yıl olarak çevirme

[alitolga2000]

Merhabalar,,,
Bir hücredeki
3657 sayısını gün sayısı olarak görüp,
yıl ay gün olarak hesaplatabilirmiyiz.
birde bir yılı isteğe göre 360 yada 365 olarak saymamız lazım.

mesela;

360 a göre;
360 sayısını
1 yıl 0 ay 0 gün
359 sayısını
0 yıl 11 ay 29 gün
331 sayısını
0 yıl 11 ay 1 gün

gibi yapabilirmiyiz.
teşekkürler.

 

[veyselemre]

Function yilaygunbul(toplamgun, yilkacgun)
If yilkacgun = 0 Then yilkacgun = 365
yil = Int(toplamgun / yilkacgun)
kalan = toplamgun - (yil * yilkacgun)
ay = Int(kalan / 30)
gun = kalan - (ay * 30)
yilaygunbul = yil & " yil " & ay & " ay " & gun & " gun "
End Function

yukarıdaki kodları bir modulün içerisine kopyala
çalışma sayfasında =yilaygunbul(a1,360)
veya =yilaygunbul(a1,365)
şeklinde kullanabilirsin

 

[alitolga2000]

Sayın veyselemre,

:icelim: :icelim: :icelim:

Harika tam istediğim gibi olmuş çok teşekkür ediyorum.
birçok sayıdada denedim hiç hatasız çıkarıyor.
harikasınız....