TextBox'taki Sayıyı Yıl Ay Gün Olarak Ayırma

[ZorBey_]

Merhaba İyi Çalışmalar

Textbox1'e Yazılan Bir Sayıyı Yıl Ay Güne Çevirebilirmiyiz
Örnek
Text Box1'e 790 Yazalım
Bu 790 İçinde Kaç Tane 360 ( Yani Kaç Tane Yıl Var )
Yıl Çıktıktan Sonra Kalanda 70 Kalıyor ( Ay 30 Günden Kaç Tane Ay Var )
Ay Çıktıktan Sonra Kalanda 10 Kalıyor ( Kaç Tane Gün Var )

Textbox1 Birde Yazılan 790 Örneğine Göre
TextBox2 De Yazılan Sonuç Aşağıdaki Gibi Olmalı
2 Yıl 2 Ay 10 Gün

Bu Konuda Yardımcı Olabilirmisiniz
Şimdiden Teşekkür Ederim
İyi Çalışmalar.

 

[ayktzn]

Bunların virgülden sonraki değeri atarsan yuvarlar olabilir.

(A2/360) & (MOD(A2;360)/30 & MOD((MOD(A2;360);30)

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    q = Int(Val(TextBox1.Value) / 360)
    a = Int((Val(TextBox1.Value) - (q * 360)) / 30)
    z = Int(Val(TextBox1.Value) - (q * 360) - (a * 30))
    TextBox2.Value = q & "  Yıl  " & a & "  Ay  " & z & "  Gün  "
End Sub

 

[ZorBey_]

Merhaba
Sayın
dEdE
İyi Çalışmalar
Evet Tam İstediğim Gibi
Çok Teşekkür Ederim
Allah Razı Olsun
İyi Çalışmalar.