-----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
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