Di Acccess, fungsi Len digunakan untuk menentukan berapa banyak jumlah karakter dalam sebuah teks atau berapa banyak byte yang dibutuhkan untuk menyimpan sebuah variabel.
Sintaks penulisan fungsi Len adalah sebagai berikut:
Keterangan:
String (teks): wajib diisi, berupa teks dengan tipe data String/Text. Jika nilai String adalah Null, maka fungsi Len akan bernilai Null.
atau
VarName (nama variabel): berupa nama variabel. Jika nilai VarName adalah Null, maka fungsi Len akan bernilai Null. Jika VarName mempunyai tipe data Variant, fungsi Len akan memperlakukannya sebagai tipe data String/Text.
Untuk menentukan berapa banyak byte yang dibutuhkan untuk menyimpan sebuah teks/variabel, kita bisa menggunakan fungsi LenB.
Berikut ini adalah contoh penggunaan fungsi Len di VBA.
Berikut ini adalah contoh penggunaan fungsi Len yang lebih kompleks.
Sintaks penulisan fungsi Len adalah sebagai berikut:
Len(String| VarName)
Keterangan:
String (teks): wajib diisi, berupa teks dengan tipe data String/Text. Jika nilai String adalah Null, maka fungsi Len akan bernilai Null.
atau
VarName (nama variabel): berupa nama variabel. Jika nilai VarName adalah Null, maka fungsi Len akan bernilai Null. Jika VarName mempunyai tipe data Variant, fungsi Len akan memperlakukannya sebagai tipe data String/Text.
Untuk menentukan berapa banyak byte yang dibutuhkan untuk menyimpan sebuah teks/variabel, kita bisa menggunakan fungsi LenB.
Berikut ini adalah contoh penggunaan fungsi Len di VBA.
? Len("Sepak Bola") 10 ? LenB("Sepak Bola") 20
Berikut ini adalah contoh penggunaan fungsi Len yang lebih kompleks.
Type DataPelanggan ID As Integer '(catatan: panjang nilai tipe data Integer adalah 2) Nama As String * 10 '(catatan: pada contoh ini, panjang nilai tipe data String adalah 10) Alamat As String * 60 '(catatan: pada contoh ini, panjang nilai tipe data String adalah 60) End Type Dim Pelanggan As DataPelanggan ' Deklarasi variabel. Dim intContoh As Integer, curContoh As Currency Dim strContoh, lenContoh Function ContohFungsiLen() strContoh = "Susilo Budi" ' Inisialisasi variabel. lenContoh = Len(intContoh) ' bernilai 2. Debug.Print lenContoh lenContoh = Len(Pelanggan) ' bernilai 72 (2 + 10 + 60). Debug.Print lenContoh lenContoh = Len(strContoh) ' bernilai 11. Debug.Print lenContoh lenContoh = Len(curContoh) ' bernilai 8. Debug.Print lenContoh End FunctionBila dijalankan di Immediate Window, fungsi ContohFungsiLen seperti di bawah ini:
? ContohFungsiLen 2 72 11 8
thanks gan sudah share
ReplyDeleteIsolasi double tape