gampang kalo d vb enggak nyediain kita buat aja fungsi truncnya sendiri :D:
Private Function asymDown(ByVal x As Double, Optional ByVal Factor As Double
= 1) As Double
asymDown = Int(x * Factor) / Factor
End Function
Private Function trunc(ByVal x As Double, Optional ByVal Digits As Integer =
0) As Double
trunc = asymDown(x, 10 ^ Digits)
End Function
Private Sub Command1_Click()
Dim x As Single
x = 2.578
MsgBox trunc(x, 2)
End Sub
sonny marpaung <[EMAIL PROTECTED]> wrote:
teman2 mau tanya nih buat ambil nilai dibelakang koma agar tidak
dibulatkan keatas
kalo di Excel kan ada function yg namanya TRUNC agar nilai 2,578 bila ingin
dibuat formatnya menjadi 2 digit dibelakang koma menjadi 2,57 bukannya 2,58
trima kasih,
---------------------------------
Moody friends. Drama queens. Your life? Nope! - their life, your story.
Play Sims Stories at Yahoo! Games.
[Non-text portions of this message have been removed]
---------------------------------
We won't tell. Get more on shows you hate to love
(and love to hate): Yahoo! TV's Guilty Pleasures list.
[Non-text portions of this message have been removed]
