Contoh Active X VB6 u/. ASP

‘Pembuatan Fungsi Round -2
‘Sebagai Active X
‘Dengan Visual Basic 6
‘Untuk di-integrasikan dengan Classic ASP
‘Copyright 2006, Armansyah

Public Function FungsiRound(angkanya As Double, Optional letakdesimalnya As Integer) As Double

Membuat fungsi Round -2 seperti di excel & Clipper

‘Sintaksis : x = FungsiRound(test, -2)

Dim nilainya As Double
nilainya = 10 ^ letakdesimalnya

FungsiRound = Int(CDbl(angkanya * nilainya + 0.5)) / nilainya

End Function

Categories: Classic ASP, VB6 | Tinggalkan komentar

Navigasi pos

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: