VBA MASKING

-----all are masking


Function HUBNO(v1)

Dim Lcntr As Long
Dim temp_char1 As Long
Dim temp_char2 As String

If v1 = "" Then

HUBNO = ""

Else

For Lcntr = 1 To Len(v1)

temp_char1 = Mid(v1, Lcntr, 1)
temp_char2 = Chr(Asc(temp_char1) + 10)


HUBNO = HUBNO & temp_char2

Next Lcntr

End If

End Function


-----前六位不变，后面masking


Function PPID(v1)

Dim Lcntr As Long
Dim temp_char1 As Long
Dim temp_char2 As String

If v1 = "" Then

PPID = ""

Else

PPID = Mid(v1, 1, 6)

For Lcntr = 7 To Len(v1)
temp_char1 = Mid(v1, Lcntr, 1)
temp_char2 = Chr(Asc(temp_char1) + 10)


PPID = PPID & temp_char2

Next Lcntr

End If

End Function