Fungsi Left
Mengembalikan jumlah karakter paling kiri yang Anda tentukan dari ekspresi string.
Sintaksis:
Left (Teks Sebagai String, n Sebagai Long)
Nilai hasil:
String
Parameter:
Ekspresi1, Ekspresi2: Ekspresi apa saja yang hendak dibandingkan.
n: Ekspresi numerik yang menentukan jumlah karakter yang ingin Anda kembalikan. Jika n = 0, panjang-nol string dikembalikan. Nilai maksimum yang dibolehkan adalah 65535.
Contoh berikut mengonversi tanggal dalam format YYYY.MM.DD ke format MM/DD/YYYY.
Contoh:
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Silakan masukkan tanggal dalam format internasional 'YYYY-MM-DD'")
sUS_date = Mid(sInput, 6, 2)
sUS_date = sUS_date & "/"
sUS_date = sUS_date & Right(sInput, 2)
sUS_date = sUS_date & "/"
sUS_date = sUS_date & Left(sInput, 4)
MsgBox sUS_date
End Sub