Module
Contents
Index 🔎︎

# Mid Function, Mid Statement

ត្រឡប់​ផ្នែក​ដែល​បាន​បញ្ជាក់​​​នៃ​កន្សោម​ខ្សែ​អក្សរ (អនុគមន៍ Mid) ឬ​ជំនួស​ផ្នែក​នៃ​កន្សោម​ខ្សែ​អក្សរ​មួយ​ជាមួយ​ខ្សែ​អក្សរ​មួយ​ទៀត (សេចក្តី​ថ្លែង​ការណ៍ Mid) ។

## វាក្យ​សម្ពន្ធ ៖

    Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)

## តម្លៃ​ត្រឡប់ ៖

ខ្សែ​អក្សរ (តែ​ដោយ​អនុគមន៍)

## ប៉ារ៉ាម៉ែត្រ ៖

Text ៖ កន្សោម​ខ្សែ​អក្សរ​ណា​មួយ ដែល​អ្នក​ចង់​កែប្រែ ។

ចាប់​ផ្តើម​ ៖ កន្សោម​លេខ​ដែល​ចង្អុល​បង្ហាញ​ទីតាំង​របស់​តួអក្សរក្នុង​ខ្សែ​អក្សរ ដែល​ទីតាំង​របស់​ខ្សែអក្សរ​ដែល​អ្នក​ចង់​ជំនួស ឬ​ ត្រឡប់​ចាប់ផ្តើម ។ តម្លៃ​ដែលអនុញ្ញាត​អតិបរមា​គឺ 65535 ។

ប្រវែង ៖ កន្សោម​លេខ​ដែល​ត្រឡប់​ចំនួន​តួអក្សរ ដែល​អ្នក​ចង់​ជំនួស ឬ​ត្រឡប់ ។ តម្លៃ​ដែល​អនុញ្ញាត​អតិបរមាគឺ 65535 ។

ប្រសិន​បើ​ប៉ារ៉ម៉ែត្រ Length ក្នុង អនុគមន៍ Mid ត្រូវ​បាន​លុប តួ​អក្សរ​ទាំងអស់​ក្នុង​កន្សោម​ខ្សែ​អក្សរ​ពី​ទីតាំង​ចាប់ផ្តើម​រហូត​ដល់​ចុង​នៃ​ខ្សែ​អក្សរ​ត្រូវ​បាន​ត្រឡប់ ។

ប្រសិន​បើ​ប៉ារ៉ាម៉ែត្រ Length ក្នុង សេចក្តី​ថ្លែង​ការណ៍ Mid តិច​ជាង​ប្រវែង​អត្ថបទ​ដែល​អ្នក​ចង់​ជំនួស អត្ថបទ​ត្រូវ​បាន​បន្ថយ​មក​ត្រឹម​ប្រវែង​ជាក់លាក់​មួយ ។

Text ៖ ខ្សែ​អក្សរ​ដើម្បី​ជំនួស​កន្សោម​ខ្សែ​អក្សរ (សេចក្តី​ថ្លែង​ការណ៍ Mid) ។

## Error codes:

5 ការ​ហៅ​បែបបទ​មិន​ត្រឹមត្រូវ

## ឧទាហរណ៍ ៖

    Sub ExampleUSDate
    Dim sInput As String
    Dim sUS_date As String
        sInput = InputBox("Please input a date in the international format '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