toplam günü ay ve yıla çevirmek

[memduh]

Arkadaşlar Textbox1 de bulunan sayıyı (günü) textbox2, textbox3 ve textbox4 te gün, ay yıl olarak nasıl ayırırız makru yapablirmiyiz. Örneğin textbox1 de 563 gün var bunu makro ile textbox2 ye 1 yıl textbox3 e 6 ay textbox4 e ise 23 gün olarak nasıl aktarırırız. saygılar.

 

[fedeal]

örnek dosya eklyin bence olur.saygılar.

 

[Orion1]

Günleri 30 gün üzerinden hesaplar.

Sub Yil_ay_hesapla()
'Günleri 30 gün üzerinden hesaplar.--------
Dim gun As Long, yil As Long, ay As Single
On Error Resume Next
gun = InputBox("Yıl Ay Hesaplama :", "HESAPLAMA")
yil = gun / 360
ay = (gun / 30) - (yil * 12)
MsgBox "Yıl : " & yil & vbLf & "Ay : " & ay, vbOKOnly + vbInformation, gun
End Sub

 

[memduh]

Sayın Evren Gizlen cevabınız için teşekkürler. verdiğiniz örnek verilen süreyi tanm olarak gün ay yıl cinsinden doğru vermiyor. Dosyam ekte. yardımınız için teşekkürler.

 

[memduh]

özür dilerim dosya ektedir.

 

[fedeal]

sayın Evren Gizlen çevrim dışı onun kodlarından yararlanarak yaptım,kendisine teşekkürler.

Private Sub CommandButton1_Click()
Yil_ay_hesapla
End Sub
Sub Yil_ay_hesapla()
'Günleri 30 gün üzerinden hesaplar.--------
Dim gun As Long, yil As Long, ay As Single
On Error Resume Next
gun = TextBox1.Text
If gun < 365 Then
TextBox2.Text = 0
Else
If CLng(gun / 360) * gun > gun Then
TextBox2.Text = CLng(gun / 360) - 1
Else
TextBox2.Text = CLng(gun / 360)
End If
End If
a = (Val(TextBox1.Text) - Val(TextBox2.Text) * 365) / 30
If CLng(a) > a Then
TextBox3.Text = CLng(a) - 1
Else
TextBox3.Text = CLng(a)
End If
b = (Val(TextBox2.Text) * 365) + (Val(TextBox3.Text) * 30)
TextBox4.Text = Val(TextBox1.Text) - b
End Sub

 

[memduh]

sayın fedeal çok sağolun çok güzel bir örnek. Fakat toplam gün 360 ın altına düştüğü zaman hatalı hesaplıyor. saygılar.

 

[fedeal]

düzelttim tekrar indirebilirsiniz.

 

[memduh]

Sayın fedeal çok teşekkür ederim. detaylı olarak dosyayı ancak yeni kontrolu etttim. yalnız gene bir sorun var. toplam günü örneğin 1080 yaptığın zaman 3 yıl 0 ay 0 gün olması gerekirken 2 12 ay olarak gösteriyor, 1485 i de 4 yıl 1 ay 15 gün olması gerekirken 3 yıl 13 ay 15 gün olarak gösteriyor.yardımınız için şimdiden teşekkür ederim. saygılar.

 

[ikgyargic]

dosyanız ektedir...Ekli dosyayı görüntüle Toplam Günü çevir(1).xls

Saygılarımla,