Function Split : Parse String Using A Spesific Delimiter

Function Visual Basic

You can split the string "Cats,Dogs,Horses,Birds" to the substrings "Cats", "Dogs", "Horses" and "Birds".
The code below use the function 'split' that available only in VB 6.0 and above.

Private Sub Form_Load()
Dim strAnimals As String
Dim iCounter As Integer
Dim arrAnimals() As String

strAnimals = "Cats,Dogs,Horses,Birds"
'replace the "," below with your delimiter
arrAnimals = Split(strAnimals, ",")

For iCounter = LBound(arrAnimals) To UBound(arrAnimals)
MsgBox arrAnimals(iCounter)
Next

End Sub

Function For Each in Array

Dim arrKata() as string
Dim arrX as Variant ' Harus Variant

For Each arrX In arrKata
MsgBox arrX ' Menampilkan seluruh variabel array
Next

Function Jumlah Hari Kerja

Function JmlHariKerja(bln As Integer, thn As Long) As Long
'Fungsi untuk menampilkan jumlah hari kerja dg Sabtu-Minggu libur
Dim jumHari, i As Long
Dim cntr As Long
Dim DateX As Date

jumHari = TglAkhirBln(Me.txtBulan, Me.txtTahun)

For i = 1 To jumHari
DateX = DateSerial(thn, bln, i)
If Weekday(DateX, vbMonday) < 6 Then cntr = cntr + 1
Next i

JmlHariKerja = cntr
End Function

Function TglAkhirBln(bln As Integer, thn As Long) As Long
Dim TglAkhir As Long

If bln = 1 Then TglAkhir = 31
If bln = 2 Then
If thn Mod 4 = 0 Then TglAkhir = 29 Else TglAkhir = 28
End If
If bln = 3 Then TglAkhir = 31
If bln = 4 Then TglAkhir = 30
If bln = 5 Then TglAkhir = 31
If bln = 6 Then TglAkhir = 30
If bln = 7 Then TglAkhir = 31
If bln = 8 Then TglAkhir = 31
If bln = 9 Then TglAkhir = 30
If bln = 10 Then TglAkhir = 31
If bln = 11 Then TglAkhir = 30
If bln = 12 Then TglAkhir = 31
TglAkhirBln = TglAkhir
End Function

Function Position Record

Public Function PositionRecord(Tabel As String, Fild As String, Isi As Variant) As Long
'Fungsi untuk menampilkan posisi record, yang bisa berguna utk menampilkan no urut dari
'query yang dibuat

Dim rsRecord As Recordset
Dim strsql, strsql2 As String
On Error GoTo ErrHandle

strsql = "select * from " & Tabel

Set rsRecord = CurrentDb.OpenRecordset(strsql)

strsql2 = Fild & "=" & Isi
rsRecord.FindNext strsql2

PositionRecord = (rsRecord.AbsolutePosition + 1)
Exit Function

ErrHandle:
MsgBox Err.Description, vbExclamation
End Function