Bir üst saate yuvarlamak

[omerceri]

31.12.2006 23:01 gibi bir saati 01.01.2007 00:00'a nasıl yuvarlıyabilirim.

 

[modalı]

Sayın omerceri,

Bazen soruların cevabı çok basit noktada saklıdırlar. Siz sorana kadar benm de aklıma gelmemişti. Nasıl çözülür diye düşünürken de yuvarla fonksiyonunu deneyeyim dedim.

Me.Metin2 = Format(Round(Me.Metin0), "dd.mm.yyyy hh:mm:ss")

İyi çalışmalar

 

[omerceri]

sayın Modalı cevabanız için çok teşekkür ederim.
Ben soru daha açıklayıcı olsun diye en uç şekilde örnek vermiştim. Benim esas derdim dakika küsuratlarını bir üst saate yuvarlamaktı.
01.01.2007 14:00:00'ı 01.01.2007 14:00:00'a,
01.01.2007 14:01:00'ı 01.01.2007 15:00:00'a,
01.01.2007 23:59:00'ı 02.01.2007 00:00:00'a,
31.12.2006 23:01:00'ı 01.01.2007 00:00:00' gibi
Biraz karışık şekilde de olsa becerdim sonunda aşağıdaki gibi
For i = Metin0 To Metin0 + 2.5000056 Step 0.0000115741
bas = i
If Minute(CDate(i)) = 0 Then Exit For
Next
Daha önce yazdığım açıklamalar yanlış ama sonuç veriyor.