我有类似的问题,所以我写了这段代码。
Public function base32(stringin as string) as double
ref = "abcdefghijklmnopqrstuv"
stringin = lcase$(stringin)
x& = 0
if len(stringin) = 0 then base32 = 0: exit function
for n% = len(stringin) to 1 step -1
base& = (32^num)
if base& = 0 then base& = 1
v = instr(1, ref, mid$(stringin, n%, 1)) - 1
if v < 0 then base32 = 0: exit function 'invalid character detection
x& = x& + (v * base&)
num = num + 1
next n%
base32 = x&
end function
public function mildate(stringin as string) as string
mildate = dateadd("d", base32(stringin), "01/01/1000")
end function
受限网站是什么意思?需要cac来访问?或实际分类。我担心SSN和其他信息在我的卡上,并且易于阅读。 – 2016-05-26 14:25:17