A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Saat Değerini Yuvarlama
#1
Hocalarım Merhaba,
Saat değerini nasıl yuvarlayabilirim? Örneğin : Metin1=12.15-12.29 arasında ise Metin2= 12.30 görünsün.
Teşekkürler



  Alıntı
Bu mesajı beğenenler:
#2
X = saatin dakika kisma 'yuvarlanacak sayi
N = 15 ' yuvarlanma faktoru
Sonuc=round(X/N)*N 'dakika kismi
Şeklinde dener misiniz?

Bu arada metin1 kutusunun turu ne ?



  Alıntı
Bu mesajı beğenenler:
#3
Visual Basic
  1. Saat = Split(Me.Metin0, ".")(0)
  2. dk = Split(Me.Metin0, ".")(1)
  3. dk = Round(dk / 15) * 15
  4. Saat = Saat + dk \ 60
  5. dk = IIf(dk = 60, 0, dk)
  6.  
  7. Me.Metin4 = Format(Saat, "00") & "." & Format(dk, "00")


yada
Visual Basic
  1. Saat = Split(Me.Metin0, ".")(0)
  2. dk = Split(Me.Metin0, ".")(1)
  3. sonuc = Round((dk + 60 * Saat) / 15) * 15
  4. Saat = sonuc \ 60
  5. dk = sonuc Mod 60
  6.  
  7. Me.Metin2 = Format(Saat, "00") & "." & Format(dk, "00")





  Alıntı
Bu mesajı beğenenler: h2001
#4
(14-02-2020, 14:23)halily demiş ki:
Visual Basic
  1. Saat = Split(Me.Metin0, ".")(0)
  2. dk = Split(Me.Metin0, ".")(1)
  3. dk = Round(dk / 15) * 15
  4. Saat = Saat + dk \ 60
  5. dk = IIf(dk = 60, 0, dk)
  6.  
  7. Me.Metin4 = Format(Saat, "00") & "." & Format(dk, "00")


yada
Visual Basic
  1. Saat = Split(Me.Metin0, ".")(0)
  2. dk = Split(Me.Metin0, ".")(1)
  3. sonuc = Round((dk + 60 * Saat) / 15) * 15
  4. Saat = sonuc \ 60
  5. dk = sonuc Mod 60
  6.  
  7. Me.Metin2 = Format(Saat, "00") & "." & Format(dk, "00")


Halil Hocam teşekkür ederim,elinize sağlık.



  Alıntı
Bu mesajı beğenenler:
#5
Iyi calismalar)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Sorguda Tarih Ve Saat Seçimi Nasıl Yapılır? ahmet114 3 56 14-09-2020, 19:55
Son Mesaj: halily
  Butona Her Basımda Alandaki Say Değerini Bir Artırma ruzgar78 8 112 27-08-2020, 15:32
Son Mesaj: ruzgar78
  [VBA] Kod Sonucunu Yuvarlama edacan19 22 549 06-07-2020, 12:15
Son Mesaj: userx53
  Listbox Değerini Tıklayarak Texboxa Taşımak cozum@msn.com 2 101 21-05-2020, 11:38
Son Mesaj: cozum@msn.com
  [SORGU] Tarih/saat ölçüt Ve Gruplama ilgi 1 177 29-04-2020, 18:04
Son Mesaj: Vuslat46
  Saat Formatı m_demir 4 207 17-04-2020, 23:32
Son Mesaj: m_demir
  [FORM] Formda Kayıt Yapıldığında Tarih Ve Saat Verilerinin Otomatik Girilmesi Ertansay 2 184 14-04-2020, 08:36
Son Mesaj: Ertansay
  Saat Ile Rakamı çarpma m_demir 7 229 30-03-2020, 22:51
Son Mesaj: m_demir

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi