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