แบบประเมิน PCA รพ.สต.หนองหัวช้าง

ปวดหัวจุงเบย ทั้งคำนำหน้า ทั้งชื่อ ทั้งนามสกุลอยู่ใน Field เดียวกัน คำนำหน้าก็ไม่มีมาตรฐาน

Public Function OnlyLName(FullName) As String
    For i = Len(FullName) - 1 To 1 Step -1
            If Mid(FullName, i, 1) = " " Then
                    OnlyLName = Right(FullName, Len(FullName) - i)
                    Exit For
            End If
    Next
End Function

Public Function NoTitle(FullName) As String
If Left(FullName, 3) = "นาย" Then
    NoTitle = Right(FullName, Len(FullName) - 3)
ElseIf Left(FullName, 3) = "นาง" Then
    NoTitle = Right(FullName, Len(FullName) - 3)
ElseIf Left(FullName, 6) = "นางสาว" Then
    NoTitle = Right(FullName, Len(FullName) - 6)
ElseIf Left(FullName, 4) = "น.ส." Then
    NoTitle = Right(FullName, Len(FullName) - 4)
ElseIf Left(FullName, 3) = "นส." Then
    NoTitle = Right(FullName, Len(FullName) - 3)
ElseIf Left(FullName, 2) = "นส" Then
    NoTitle = Right(FullName, Len(FullName) - 2)
ElseIf Left(FullName, 7) = "เด็กชาย" Then
    NoTitle = Right(FullName, Len(FullName) - 7)
ElseIf Left(FullName, 3) = "ดช." Then
    NoTitle = Right(FullName, Len(FullName) - 3)
ElseIf Left(FullName, 4) = "ด.ช." Then
    NoTitle = Right(FullName, Len(FullName) - 4)
ElseIf Left(FullName, 3) = "ด.ช" Then
    NoTitle = Right(FullName, Len(FullName) - 3)
ElseIf Left(FullName, 2) = "ดช" Then
    NoTitle = Right(FullName, Len(FullName) - 2)
ElseIf Left(FullName, 8) = "เด็กหญิง" Then
    NoTitle = Right(FullName, Len(FullName) - 8)
ElseIf Left(FullName, 3) = "ดญ." Then
    NoTitle = Right(FullName, Len(FullName) - 3)
ElseIf Left(FullName, 4) = "ด.ญ." Then
    NoTitle = Right(FullName, Len(FullName) - 4)
ElseIf Left(FullName, 3) = "ด.ญ" Then
    NoTitle = Right(FullName, Len(FullName) - 3)
ElseIf Left(FullName, 2) = "ดญ" Then
    NoTitle = Right(FullName, Len(FullName) - 2)
End If
End Function

Public Function OnlyFName(FullName) As String
    For i = 1 To Len(FullName)
            If Mid(FullName, i, 1) = " " Then
                    OnlyFName = Left(FullName, i)
                    Exit For
            End If
    Next
End Function

25570211

http://indy-trendy.com/category/hi-speed-usb-2-0-4-port/
ราคา  @ HI-SPEED USB 2.0 - 4 port @ 
150 --> 120(3)
ems 50 reg 30
COMFAST สายต่อ USB cable ยาว 10 เมตร หัวต่อ USB type-A ตัวผู้/ตัวเมีย มี USB booster ในตัว
คีย์การ์ดทาบแบบพวงกุญแจ RFID125KHz สีน้ำเงิน (ไม่มีรหัส สามารถเขียนรหัสได้) 
หัว USB
เครื่องเปลี่ยนทีวี LCD LED ให้เป็น Smart TV ด้วย Google Android WIFI TV Cloud Stic