saati tarihe çevirmek

[MUTLUXXX]

Arkadaşlar daha öncede bu konuyu gündeme getirmiştim ancak cevap alamadım öncelikle bunu belirteyim.Sanırım sorunumu tam izah edemedim.Userformda textbox18 saat hesaplatıyorum.saat 24 ün katları şeklinde çıkarsa sorun yok yani toplam üretim 24,48 veya 72 saat çıkarsa bunu textbox2 =Dateadd("d",Val(textbox18/24),textbox1),"dd.mm.yyyy") şeklinde bir makro ile yapıyorum.ancak toplam çalışma zamanı 78 saat çıkarsa 6 saati algılamıyor
ve bunu yani textbox2 ye attığı tarihi textbox3 e ilk tarih olarak atıyor.textbox3 ise gece saat 00 dan başlıyor.oysa diğer taraftan 6 saat geldiği için bu tarih gece 06 dan başlamalı.Bu durumdada yapılan planlama yanlış sonuç veriyor.Aslında ben bunu gün,ay,yıl yerine gün,ay,saat olarak yapabilsem sorun çözülür diye düşünüyorum.Aslında mutlaka bir yolu olmalı diye düşünüyorum .Yardımlarınızı bekliyorum.

 

[Levent Menteşoğlu]

Saat 24 ün katları olduğunda textboxtaki görüntü örneğin 48 olduğunu kabul edelim bu durumda tarihe 2 gün ilave edilecek. Burada bir sorun yok. Peki 78 olduğunda textboxtaki görüntü nasıl olacak aşağıdaki gibimi? (Örneğin başlangıç tarihi 01.01.2007 olsun)

04.01.2007 06:00

 

[MUTLUXXX]

leventm

04.01.2007 06:00 şeklinde doğrudur .tamamını bu şekilde gösterebiliriz.04.01.2007 00:00 ıda bu şekilde gösterse sorun olmaz,önemli olan tarihi güne göre değil saate göre hesaplaması yeterli sayın hocam.

 

[Levent Menteşoğlu]

textbox2 =Dateadd("d",Val(textbox18/24),textbox1),"dd.mm.yyyy")

Yukarıdaki satır yerine aşağıdaki gibi denermisiniz.

saat = (TextBox3 / 24 - Int(TextBox3 / 24)) * 24
TextBox2 = Format(Int(TextBox3 / 24) + CDate(TextBox1), "dd.mm.yyyy") & " " & Format(saat, "00") & ":00"

 

[MUTLUXXX]

çok tşk ediyorum

Ellerinize sağlık bu sorunumu çözdü hocam.Ne kadar tşk etsem azdır.