Duyurular: 06 Ocak 2009, 21:37:31
Merhaba, Ziyaretçi. Lütfen giriş yapın veya üye olun. *

10, 100, 1000 gibi rakamlara en yakın sayı nasıl yuvarlanır
Konu Bilgileri
Konu BasligiKonu: 10, 100, 1000 gibi rakamlara en yakın sayı nasıl yuvarlanır
Cevap SayisiCevap Sayisi: 0 cevap var
Okunma SayısıOkunma Sayısı 104 defa
Bu Konuyu Görüntüleyenler0 Üye ve 1 Ziyaretçi konuyu incelemekte.
Sayfa: [1]   Aşağı git
« önceki sonraki »
  Yazdır  

  10, 100, 1000 gibi rakamlara en yakın sayı nasıl yuvarlanır
Gönderen Mesaj
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
Breakyy
siberTurk
*

KARMA: 0
Offline Offline

Mesaj Sayısı: 179



WWW
« : 12 Mart 2008, 17:52:06 »
'Örnek 100' yuvarla:
Round(RatioBolus * Val(txtDW), 100)
'BAS module'ü içine yaz
Public Function Round(Dose, Factor)
'Amaç: Sayiyi yuvarlamak
'Girdi: Sayi, Factor (10, 100, 1000, etc)
'Çikti: Yuvarlanmis sayi
Dim Temp As Single
Temp = Int(Dose / Factor)
Round = Temp * Factor
End Function

Bitti Shocked
Logged

SF Breakyy 'diyor Ki!


Sayfa: [1]   Yukarı git
  Yazdır  
||| GoogleTagged |||

« önceki sonraki »
 

Gitmek istediğiniz yer: