-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Bir üst saate yuvarlamak
- Konbuyu başlatan omerceri
- Başlangıç tarihi
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.
İyi çalışmalar
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.
Kod:
Me.Metin2 = Format(Round(Me.Metin0), "dd.mm.yyyy hh:mm:ss")İyi çalışmalar
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.
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.
Son düzenleme: