Cara Membulatkan Angka Yang Berada Di belakang Koma

Mengenai cara membulatkan angka yang berada di belakang koma - Adapun cara membulatkan angka di belakang koma adalah sebagai berikut:

Text1.Text = Format (0.026, "#0.##")

Maka dari kode di atas akan diperoleh 0.03

READ MORE - Cara Membulatkan Angka Yang Berada Di belakang Koma

Fungsi Untuk Mengetahui Apakah Ganjil Atau Genap

Di bawah ini merupakan fungsi yang sangat sederhana untuk mengetahui sebuah bilangan, apakah ia genap atau ganjil?

Option Explicit 
 
Public Function IsEven(Number As Double) As Boolean 
    IsEven = IIf(Number Mod 2 = 0, True, False) 
End Function 

Sample usage

Private Sub Command1_Click() 
    MsgBox IsEven(20) 'return true 
End Sub 
 
Private Sub Command1_Click() 
    MsgBox IsEven(21) 'return false 
End Sub 

READ MORE - Fungsi Untuk Mengetahui Apakah Ganjil Atau Genap

Fungsi Untuk Memperoleh Nilai Rata-Rata Dari Sebuah Array

Di bawah ini merupakan fungsi untuk memperoleh nilai rata-rata dari sebuah array.

Option Explicit 
 
Function AVERAGE(ByRef Number() As Double) As Double 
    Dim iMaxNum As Double, i As Integer 
    For i = LBound(Number) To UBound(Number) 
        iMaxNum = iMaxNum + Number(i) 
    Next i 
    AVERAGE = iMaxNum / (UBound(Number) + 1) 
End Function 

Contoh penggunaan fungsi untuk memperoleh nilai rata-rata dari sebuah array

Private Sub   Command1_Click() 
    Dim iArray(3) As Double 
    iArray(0) = 588 
    iArray(1) = 67 
    iArray(2) = 66 
    iArray(3) = 4 
    MsgBox "The Average is: " & AVERAGE(iArray) 
End Sub 

READ MORE - Fungsi Untuk Memperoleh Nilai Rata-Rata Dari Sebuah Array

Fungsi Untuk Memperoleh Nilai Maksimal Dari Sebuah Array

Di bawah ini merupakan fungsi untuk memperoleh nilai maksimal dari sebuah array.

Option Explicit 
 
Public Function MAX(ByRef Number() As Double) As Double 
    Dim iMaxNum As Double 
    Dim i As Integer 
    iMaxNum = Number(LBound(Number)) 
        For i = LBound(Number) To UBound(Number) 
            If Number(i) > iMaxNum Then 
                iMaxNum = Number(i) 
            Else 
                iMaxNum = iMaxNum 
            End If 
        Next i 
      MAX = iMaxNum 
End Function 

Contoh penggunaan fungsi untuk memperoleh nilai maksimal dari sebuah array

Private Sub Command1_Click() 
    Dim iArray(3) As Double 
    iArray(0) = 588 
    iArray(1) = 67 
    iArray(2) = 66 
    iArray(3) = 4 
    MsgBox "The max number is: " & MAX(iArray) 
End Sub 

READ MORE - Fungsi Untuk Memperoleh Nilai Maksimal Dari Sebuah Array

Konversii Angka Dari Hexa ke Decimal dan Sebaliknya

Di bawah ini merupakan fungsi untuk mengkonversi angka dari hexadecimal ke decimal dan sebaliknya.

Option Explicit 
 
Public Function DecToHex(DecNumber) 
    DecToHex = Hex(DecNumber) 
End Function 
 
Public Function HexToDec(HexNumber) 
    HexToDec = Val("&H" & HexNumber) 
End Function 

Contoh penggunaan Konversi angka dari decimal ke hexa

Private Sub Form_Load() 
    MsgBox DecToHex(120000) 
End Sub  Contoh 

penggunaan konversi angka dari hexa ke decimal

Private Sub Form_Load() 
    MsgBox HexToDec(120000) 
End Sub 

READ MORE - Konversii Angka Dari Hexa ke Decimal dan Sebaliknya