texdeki sayıyı saate çevirme

[N.F.K]

arkadaşlar herkese selam formda 2 adet text açtım text1'e a noktası ile b noktasındaki mesafeyi kilometre olarak yazdım aracın hızını text2'ye yazdım ve kaç ay kaç hafta kaç gün kaç saat ve dakika süreceğini text3' yazılması Mümkünmü

Textbox3=(TextBox1 * 1) / (TextBox2 * 1)

işlemde bir sorun yok fakat fakat sonuç bölümüne 1 ay 3 hafta 5 gün 9saat ve 12 dakika olarak çıkmasını istiyotum

örnek linkler bulamadım bulan varsa gönderirseniz sevinirim
herkese teşekkürler :hey:

 

[Levent Menteşoğlu]

Bu sorunuza net cevap vermek zor gibi ancak, 1 ay=30 gün ve 1 ay=4 hafta gibi kabul yapılarak çözüme ulaşmak mümkün olabilir diye düşünüyorum.

 

[abdi]

Edit osya Tarafımdan Güncellenmiştir.
Aşağıdaki Kodlar Dosyanın Kodlarıdır.
Sanırım İstediğiniz Böyle Bİr Şey
Saygılar sevgiler.

Private Sub CommandButton1_Click() 'hesapla
Dim ay, gun, hafta As Integer
Dim saat, dak As Integer
Dim deger, kd1, kd2, kd3, kd4, kd5 As Long

deger = (TextBox1.Text * 1) / (TextBox2.Text * 1) * 60 'degeri saatten dakikaya çevirdik
Debug.Print deger
Select Case deger

Case Is >= 43200
If deger >= 43200 Then
ay = Int(deger / 43200) ' / 43200 ay değerini bulmak için

kd1 = deger Mod 43200
Debug.Print ay
Debug.Print kd1

End If

If kd1 >= 10080 Then 'hafta değeri

hafta = Int(kd1 / 10080)
kd2 = kd1 Mod 10080

Debug.Print hafta
Debug.Print kd2

End If

If kd2 >= 1440 Then 'gün değeri

gun = Int(kd2 / 1440)
kd3 = kd2 Mod 1440

Debug.Print gun
Debug.Print kd3

End If

If kd3 < 1440 Then 'saat değeri

saat = Int(kd3 / 60)
kd4 = kd3 Mod 60

Debug.Print saat
Debug.Print kd4

End If



If kd4 < 60 Then

dak = Int(kd4)

kd5 = kd4 Mod 1
Debug.Print dak
Debug.Print kd5

End If
TextBox3.Text = ay & " ay " & hafta & " hafta " & gun & " gün " & saat & " saat " & dak & " dakika "

Case 10080 To 43199
If deger >= 10080 Then 'hafta değeri

hafta = Int(deger / 10080)
kd1 = deger Mod 10080

Debug.Print hafta
Debug.Print kd1

End If

If kd1 >= 1440 Then 'gün değeri

gun = Int(kd1 / 1440)
kd2 = kd1 Mod 1440

Debug.Print gun
Debug.Print kd3

End If

If kd2 < 1440 Then 'saat değeri

saat = Int(kd2 / 60)
kd3 = kd2 Mod 60
Debug.Print saat
Debug.Print kd4
End If

If kd3 < 60 Then
dak = Int(kd3)
kd4 = kd3 Mod 1
Debug.Print dak
Debug.Print kd4

End If
TextBox3.Text = hafta & " hafta " & gun & " gün " & saat & " saat " & dak & " dakika "

Case 1440 To 10079
If deger >= 1440 Then 'gün değeri
gun = Int(deger / 1440)
kd1 = deger Mod 1440

Debug.Print gun
Debug.Print kd1
End If

If kd1 < 1440 Then 'saat değeri

saat = Int(kd1 / 60)
kd2 = kd1 Mod 60
Debug.Print saat
Debug.Print kd2
End If


If kd2 < 60 Then 'dak değeri
dak = Int(kd2)
kd3 = kd2 Mod 1
Debug.Print dak
Debug.Print kd3

End If
TextBox3.Text = gun & " gün " & saat & " saat " & dak & " dakika "

Case Is < 60
If deger < 60 Then 'saat değeri
dak = Int(deger)
kd1 = deger Mod 1
Debug.Print dak
Debug.Print kd1

End If
TextBox3.Text = saat & " saat " & dak & " dakika "
End Select
End Sub