challenge98
Thành viên chính thức


- Tham gia
- 21/6/09
- Bài viết
- 90
- Được thích
- 5
Mình có hàm
Ai có hiểu giải thích giúp mình các dòng lệnh trên với. Cảm ơn nhiều !Private Function ByteArrayToString(bytArray() As Byte) As String
Dim sans As String
Dim iPos As String
sans = StrConv(bytArray, vbUnicode)
iPos = InStr(sans, Chr(0))
If iPos > 0 Then sans = Left(sans, iPos - 1)
ByteArrayToString = sans
End Function