Procedure

Option Explicit
Public sNamaBulan As String
'-------------------

Public Sub NamaBulan(i)
  If i = 1 Then
    sNamaBulan = "januari"
  ElseIf i = 2 Then
    sNamaBulan = "Februari"
  ElseIf i = 3 Then
    sNamaBulan = "Maret"
  ElseIf i = 4 Then
    sNamaBulan = "April"
  ElseIf i = 5 Then
    sNamaBulan = "Mei"
  ElseIf i = 6 Then
    sNamaBulan = "Juni"
  ElseIf i = 7 Then
    sNamaBulan = "Juli"
  ElseIf i = 8 Then
    sNamaBulan = "Agustus"
  ElseIf i = 9 Then
    sNamaBulan = "September"
  ElseIf i = 10 Then
    sNamaBulan = "Oktober"
  ElseIf i = 11 Then
    sNamaBulan = "November"
  ElseIf i = 12 Then
    sNamaBulan = "Desember"
  Else
    sNamaBulan = "index salah"
  End If
End Sub

Contoh pemanggilan Procedure:

Private Sub Command1_Click()
   NamaBulan Text1.Text
   Text2.Text = sNamaBulan
End Sub

DOWNLOAD SAMPEL

'-------------------------------------

Function
Public Function NamaHari(i) As String
  If i = 1 Then
    NamaHari = "Minggu"
  ElseIf i = 2 Then
    NamaHari = "Senin"
  ElseIf i = 3 Then
    NamaHari = "Selasa"
  ElseIf i = 4 Then
    NamaHari = "Rabu"
  ElseIf i = 5 Then
    NamaHari = "Kamis"
  ElseIf i = 6 Then
    NamaHari = "Jum'at"
  ElseIf i = 7 Then
    NamaHari = "Sabtu"
  Else
    NamaHari = "index salah"
  End If
End Function

Contoh pemanggilan function:

Private Sub Command1_Click()
   Text2.Text = NamaHari(Text1.Text)
End Sub

DOWNLOAD SAMPEL

'-------------------------------------