Fungsi Mid, Pernyataan Mid
Mengembalikan bagian yang ditentukan dari ekspresi string (Fungsi MID), atau mengganti bagian dari ekspresi string dengan string lain (Pernyataan MID).
Sintaksis:
Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)
Nilai hasil:
String (hanya berdasarkan Fungsi)
Parameter:
Ekspresi1, Ekspresi2: Ekspresi apa saja yang hendak dibandingkan.
Mulai: Ekspresi numerik yang menunjukkan posisi karakter dalam string di mana bagian string yang ingin Anda ganti atau kembalikan dimulai. Nilai maksimum yang dibolehkan adalah 65535.
Panjang: Ekspresi numerik yang mengembalikan jumlah karakter yang ingin Anda ganti atau kembalikan. Nilai maksimum yang dibolehkan adalah 65535.
Jika parameter Length di Fungsi Mid dihilangkan, semua karakter dalam ekspresi string dari posisi awal hingga akhir string dikembalikan.
Jika parameter Length di Pernyataan Mid kurang dari panjang teks yang ingin Anda ganti, teks dikurangi menjadi panjang yang ditentukan.
Teks: String untuk mengganti ekspresi string (Pernyataan Mid).
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