Baca Penuh>>>                                                                  <<<
                                                     FUNGSI STRING

Fungsi String adalah fungsi pengambilan beberapa n karakter dari sebuah String.

• Left (String,n) : Fungsinya adalah untuk mengambil n karakter sebelah kiri dari nilai string
• Right (String,n) : Fungsinya adalah untuk mengambil n karakter sebelah kanan dari nilai string.
• Mid (String,p,n) : Fungsinya adalah untuk mengambil karakter mulai dari karakter ke p, sebanyak n karakter

 Design Form

Listing Program

Private Sub cmdBersih_Click()
Me.txtinput.Text = ""
Me.txtleft.Text = ""
Me.txtright.Text = ""
Me.txtmid.Text = ""
Me.txtupper.Text = ""
Me.txtlower.Text = ""
Me.txtinput.SetFocus
End Sub

Private Sub cmdinput_Click()
A = InputBox("Silahkan Input Tanggal", "Input Tanggal")
Me.txtshort.Text = Format(A, "short date")
Me.txtmedium.Text = Format(A, "medium date")
Me.txtlog.Text = Format(A, "long date")
End Sub

Private Sub cmdkeluar_Click()Unload Me
End Sub

Private Sub Timer1_Timer()Dim hariini As Variant
Dim jam As Variant
hariini = Now
jam = Now
Me.LblJam.Caption = Format(jam, "hh:mm:ss am/pm")
Me.LblTanggal.Caption = Format(hariini, "DDDD/DD-MMMM-YYYY")
End Sub

Private Sub txtinput_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
Me.txtinput.SetFocus
Me.txtright.Text = Right(Me.txtinput, 3)
Me.txtleft.Text = Left(Me.txtinput, 3)
Me.txtmid.Text = Mid(Me.txtinput, 3, 2)
Me.txtupper.Text = UCase(Me.txtinput.Text)
Me.txtlower.Text = LCase(Me.txtinput.Text)
End If
End Sub

Form Run

                                                                                                          MTW & Edi