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 balikan:

String (hanya berdasarkan Fungsi)

Parameter:

Ekspresi1, Ekspresi2: Ekspresi apa saja yang hendak dibandingkan.

Start: Numeric expression that indicates the character position within the string where the string portion that you want to replace or to return begins. The minimum allowed value is 1. The maximum allowed value is 2,147,483,648.

Length: Numeric expression that returns the number of characters that you want to replace or return. The maximum allowed value is 2,147,483,648.

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).

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

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

String functions