userformda tarih ve saat

[MUTLUXXX]

arkadaşlar "dd.mm.yyyy hh:mm" şeklinde ilk textteki tarih ve saati dikkate alarak ikinci textte tarih ve saat nasıl hesaplatabilirim.Aşağıdaki makroda o şekilde hesaplıyor ancak döngü olduğu için bir alta geçtiğimde saati kaldığı yerden başlatmıyor hep gece 00 dan başlatıyor.Kodlar konusunda sayın leventm yardımcı olmuştu ancak kullandıkça gördümkü eksiklikler var.Ben kaldığı yerden nasıl başlatabilirim.

saat = Int((TextBox18.Value / 24 - Int(TextBox18.Value / 24)) * 24)
dakika = ((TextBox18.Value / 24 - Int(TextBox18.Value / 24)) * 24 - saat) * 60
TextBox2 = Format(Int(TextBox18.Value / 24) + CDate(TextBox1), "dd.mm.yyyy") & " " & Format(saat, "00") & ":" & Format(dakika, "00")
TextBox19 = Format(TextBox2, "dd.mm.yyyy " & " " & Format(saat, "00") & ":" & Format(dakika, "00"))

yukarıdaki makro hep döngü şeklinde çalışıyor textbox2 de hesapladığı tarihi 19 a atıyor 20 de yine aynı formüle göre tarih ve saat hesaplıyor.

 

[MUTLUXXX]

arkadaşlar yapmak istediğim gayet basit aslında 01.01.2007 08:00 formatına örneğn 17 saat eklediğimizde tarih otomatik olarak nasıl değişir.yani 02.01.2007 01:00 olacak.Forumda bununla ilgili hiç örnek bulamadım.Teşekkür ediyorum.Bunula ilgili makroyu nasıl yapabilirim izlemem gereken yol nedir acaba.Aşağıdaki örnekte bunu ifade ediyor textbox18 de sayısal bir değer var ve bunu 24 saatin katları ise tarih olarak almalı geri kalanı ise saat formatında göstermeli ama olmuyor malesef.