Đánh giá chủ đề:
  • 3 Votes - 3.33 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hàm Tách Tên, Họ trong Access
#1
Mình xin giới thiệu 1 hàm tự tách tên, họ trong Access:

Mã:
Public Function Split(Ten As String, Kieu As Byte)
Dim bytSpace As Byte
bytSpace = InStrRev(Ten, " ", -1)

If bytSpace = 0 Then
Split = Ten
Exit Function
End If

If Kieu = 0 Then
Split = Right(Ten, Len(Ten) - bytSpace)
Else
Split = Left(Ten, bytSpace - 1)
End If
End Function



Chú Thích: Hàm này dùng hiệu quả trong việc tách tên họ. Truyền đối số như sau:
Ten: Tên đầy đủ ( fullname)
Kiểu: 0 : Tách Tên, 1 Tách Họ

Ví Dụ:

Name=Phạm Thị Mỹ Hạnh
msgbox Split(Name,0) => Hạnh
msgbox Split(Name,1) => Phạm Thị Mỹ
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thuc1605 , nhunguyet0103 , thiennamlong , maidinhdan , Che_Guevara
#2
Mình chỉ muốn tách họ không có chữ lót tên đi kèm theo thỉ hàm này sửa lại như thế nào các bạn nhỉ ?
Chữ ký của thiennamlong Xin chào, mình là thiennamlong, Tham gia http://thuthuataccess.com/forum từ ngày 22-06 -14.
Reply
Những người đã cảm ơn
#3
(01-08-14, 10:05 PM)thiennamlong Đã viết: Mình chỉ muốn tách họ không có chữ lót tên đi kèm theo thỉ hàm này sửa lại như thế nào các bạn nhỉ ?

Mã PHP:
Function TachHoTen(HoTen As StringKieu As Byte) As String
    Dim i 
As Byte
    HoTen 
Trim(HoTen)
    For 
1 To Len(HoTen)
        If 
Mid(HoTeni1) = " " Then
            
If Kieu 0 Then TachHoTen Left(HoTen1) Else TachHoTen Right(HoTenLen(HoTen) - i)
            Exit For
        
End If
    
Next
End 
Function 

Sử dụng :
HoTen = Nguyễn Thị Lan Anh
TachHoTen(HoTen, 0) = Nguyễn
TachHoTen(HoTen, 1) = Thị Lan Anh

(Thích thì chiều thôi chứ thực ra thì......)

Nếu chỉ cần hàm tách lấy họ không thôi thì sửa lại như sau

Mã PHP:
Function TachHo(HoTen As String) As String
    Dim i 
As Byte
    HoTen 
Trim(HoTen)
    For 
1 To Len(HoTen)
        If 
Mid(HoTeni1) = " " Then
            TachHo 
Left(HoTen1
            Exit For
        
End If
    
Next
End 
Function 

Sử dụng :
HoTen = Nguyễn Thị Lan Anh
TachHo(HoTen) = Nguyễn

Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thiennamlong , Nguyendinhthanh , Noname , Che_Guevara
#4
Cảm ơn bạn Xuân Thanh nhiều, hàm TachHoTen thì tôi dùng được, nhưng sao tôi không dùng được hàm TachHo nhỉ? Và tôi cũng thấy rằng lồng 2 hay 3 lần hàm Split vào nhau ta cũng tách được họ trong chuỗi họ tên.
Chữ ký của thiennamlong Xin chào, mình là thiennamlong, Tham gia http://thuthuataccess.com/forum từ ngày 22-06 -14.
Reply
Những người đã cảm ơn
#5
(04-08-14, 09:23 AM)thiennamlong Đã viết: Cảm ơn bạn Xuân Thanh nhiều, hàm TachHoTen thì tôi dùng được, nhưng sao tôi không dùng được hàm TachHo nhỉ? Và tôi cũng thấy rằng lồng 2 hay 3 lần hàm Split vào nhau ta cũng tách được họ trong chuỗi họ tên.

1/ Bạn xem lại, hàm vẫn chuẩn mà
2/ Bạn hỏi sửa hàm trên như thế nào thì tôi sửa dùm bạn đó thôi. Nếu dùng Split còn đơn giản nữa

Mã PHP:
Function TachHo(HoTen As String) As String
    Dim Ho 
As Variant
    Ho 
Split(HoTen" ")
    
TachHo Ho(0)
End Function 

Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thiennamlong , Noname


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hàm] Demo Hàm mở mọi loại file ( Access) maidinhdan 7 1,737 26-05-16, 10:53 AM
Bài mới nhất: lmthu
  Hướng Dẫn Hàm API trong quản lý file và folder maidinhdan 1 290 22-04-16, 09:40 AM
Bài mới nhất: kieu manh
  Hướng Dẫn Một số hàm D trong Access Xuân Thanh 12 6,620 22-01-16, 01:55 PM
Bài mới nhất: khanghychu
  Hướng Dẫn Một số hàm C... trong Access Xuân Thanh 2 1,324 21-01-16, 11:06 AM
Bài mới nhất: khanghychu
  [Hàm] Hàm tách lấy số trong một chuỗi cho trước Xuân Thanh 11 2,125 13-10-15, 10:08 AM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ