|
|
以下是万能密码的函数,是VB源码,麻烦能改写成 易语言源码吗? 上面图片是程序效果.
Dim rq As String '日期
Dim nf As String '计算年份
Dim qx As String '获取当年11月27日日期
'Dim sjmm As String '世纪密码
Dim nfmm As String '年份位密码
Dim rqmm As String '日期密码
Dim wzmm As String '完整密码
Dim czb(1 To 12, 1 To 31, 0 To 1) As String '月份日期参照密码表：三个参数分别代表 月份、日期和是否闰年 0为闰年，1为平年
Private Sub DTPicker1_Change()
Rem 获取有效期限
yxqx
Rem 获取万能密码
Text1 = sisswnmm
Rem 密码框选中状态
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Form_Load()
Rem 参照表赋值函数
czbfz
DTPicker1.Value = Date
Rem 获取有效期限
yxqx
Rem 获取万能密码
Text1 = sisswnmm
Rem 密码框选中状态
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Text1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Rem 万能密码函数
Function sisswnmm()
rq = Format(DTPicker1.Value, "yyyy-mm-dd")
nf = Left(rq, 4)
Rem 获取年份密码
qx = nf & "-11-27"
If rq >= qx Then
nfmm = Format(Str(4300 + (Val(nf) - 1981) * 2), "00")
Else
nfmm = Format(Str(4300 + (Val(nf) - 1982) * 2), "00")
End If
Rem 获取月份日期密码
If (Val(nf) Mod 400 = 0) Or (Val(nf) Mod 100 <> 0 And Val(nf) Mod 4 = 0) Then
rqmm = czb(Val(Mid(rq, 6, 2)), Val(Right(rq, 2)), 0)
Else
rqmm = czb(Val(Mid(rq, 6, 2)), Val(Right(rq, 2)), 1)
End If
sisswnmm = nfmm & rqmm
End Function
Rem 参照表赋值
Function czbfz()
'闰年赋值
czb(11, 27, 0) = "1268"
czb(11, 28, 0) = "1236"
czb(11, 29, 0) = "1204"
czb(11, 30, 0) = "1272"
czb(12, 1, 0) = "1240"
czb(12, 2, 0) = "1200"
czb(12, 3, 0) = "1217"
czb(12, 4, 0) = "1234"
czb(12, 5, 0) = "1251"
czb(12, 6, 0) = "1268"
czb(12, 7, 0) = "1284"
czb(12, 8, 0) = "1201"
czb(12, 9, 0) = "1218"
czb(12, 10, 0) = "1235"
czb(12, 11, 0) = "1252"
czb(12, 12, 0) = "1268"
czb(12, 13, 0) = "1285"
czb(12, 14, 0) = "1202"
czb(12, 15, 0) = "1219"
czb(12, 16, 0) = "1236"
czb(12, 17, 0) = "1252"
czb(12, 18, 0) = "1269"
czb(12, 19, 0) = "1286"
czb(12, 20, 0) = "1203"
czb(12, 21, 0) = "1220"
czb(12, 22, 0) = "1236"
czb(12, 23, 0) = "1253"
czb(12, 24, 0) = "1270"
czb(12, 25, 0) = "1287"
czb(12, 26, 0) = "1204"
czb(12, 27, 0) = "1220"
czb(12, 28, 0) = "2468"
czb(12, 29, 0) = "2436"
czb(12, 30, 0) = "2404"
czb(12, 31, 0) = "2472"
czb(1, 1, 0) = "2440"
czb(1, 2, 0) = "2400"
czb(1, 3, 0) = "2417"
czb(1, 4, 0) = "2434"
czb(1, 5, 0) = "2451"
czb(1, 6, 0) = "2468"
czb(1, 7, 0) = "2484"
czb(1, 8, 0) = "2401"
czb(1, 9, 0) = "2418"
czb(1, 10, 0) = "2435"
czb(1, 11, 0) = "2452"
czb(1, 12, 0) = "2468"
czb(1, 13, 0) = "2485"
czb(1, 14, 0) = "2402"
czb(1, 15, 0) = "2419"
czb(1, 16, 0) = "2436"
czb(1, 17, 0) = "2452"
czb(1, 18, 0) = "2469"
czb(1, 19, 0) = "2486"
czb(1, 20, 0) = "2403"
czb(1, 21, 0) = "2420"
czb(1, 22, 0) = "2436"
czb(1, 23, 0) = "2453"
czb(1, 24, 0) = "2470"
czb(1, 25, 0) = "2487"
czb(1, 26, 0) = "2420"
czb(1, 27, 0) = "2468"
czb(1, 28, 0) = "2436"
czb(1, 29, 0) = "2404"
czb(1, 30, 0) = "3640"
czb(1, 31, 0) = "3600"
czb(2, 1, 0) = "3617"
czb(2, 2, 0) = "3634"
czb(2, 3, 0) = "3651"
czb(2, 4, 0) = "3668"
czb(2, 5, 0) = "3684"
czb(2, 6, 0) = "3601"
czb(2, 7, 0) = "3618"
czb(2, 8, 0) = "3635"
czb(2, 9, 0) = "3652"
czb(2, 10, 0) = "3668"
czb(2, 11, 0) = "3685"
czb(2, 12, 0) = "3602"
czb(2, 13, 0) = "3619"
czb(2, 14, 0) = "3636"
czb(2, 15, 0) = "3652"
czb(2, 16, 0) = "3669"
czb(2, 17, 0) = "3686"
czb(2, 18, 0) = "3603"
czb(2, 19, 0) = "3620"
czb(2, 20, 0) = "3636"
czb(2, 21, 0) = "3653"
czb(2, 22, 0) = "3670"
czb(2, 23, 0) = "3687"
czb(2, 24, 0) = "3604"
czb(2, 25, 0) = "3620"
czb(2, 26, 0) = "4868"
czb(2, 27, 0) = "4836"
czb(2, 28, 0) = "4804"
czb(2, 29, 0) = "4872"
czb(3, 1, 0) = "4840"
czb(3, 2, 0) = "4800"
czb(3, 3, 0) = "4817"
czb(3, 4, 0) = "4834"
czb(3, 5, 0) = "4851"
czb(3, 6, 0) = "4868"
czb(3, 7, 0) = "4884"
czb(3, 8, 0) = "4801"
czb(3, 9, 0) = "4818"
czb(3, 10, 0) = "4835"
czb(3, 11, 0) = "4852"
czb(3, 12, 0) = "4868"
czb(3, 13, 0) = "4885"
czb(3, 14, 0) = "4802"
czb(3, 15, 0) = "4819"
czb(3, 16, 0) = "4836"
czb(3, 17, 0) = "4852"
czb(3, 18, 0) = "4869"
czb(3, 19, 0) = "4886"
czb(3, 20, 0) = "4803"
czb(3, 21, 0) = "4820"
czb(3, 22, 0) = "4853"
czb(3, 23, 0) = "4870"
czb(3, 24, 0) = "4887"
czb(3, 25, 0) = "4804"
czb(3, 26, 0) = "6020"
czb(3, 27, 0) = "6068"
czb(3, 28, 0) = "6036"
czb(3, 29, 0) = "6004"
czb(3, 30, 0) = "6072"
czb(3, 31, 0) = "6040"
czb(4, 1, 0) = "6000"
czb(4, 2, 0) = "6017"
czb(4, 3, 0) = "6034"
czb(4, 4, 0) = "6051"
czb(4, 5, 0) = "6068"
czb(4, 6, 0) = "6084"
czb(4, 7, 0) = "6001"
czb(4, 8, 0) = "6018"
czb(4, 9, 0) = "6035"
czb(4, 10, 0) = "6052"
czb(4, 11, 0) = "6068"
czb(4, 12, 0) = "6085"
czb(4, 13, 0) = "6002"
czb(4, 14, 0) = "6019"
czb(4, 15, 0) = "6036"
czb(4, 16, 0) = "6052"
czb(4, 17, 0) = "6069"
czb(4, 18, 0) = "6086"
czb(4, 19, 0) = "6003"
czb(4, 20, 0) = "6036"
czb(4, 21, 0) = "6020"
czb(4, 22, 0) = "6053"
czb(4, 23, 0) = "6070"
czb(4, 24, 0) = "6087"
czb(4, 25, 0) = "6004"
czb(4, 26, 0) = "6020"
czb(4, 27, 0) = "7268"
czb(4, 28, 0) = "7236"
czb(4, 29, 0) = "7204"
czb(4, 30, 0) = "7272"
czb(5, 1, 0) = "7240"
czb(5, 2, 0) = "7200"
czb(5, 3, 0) = "7217"
czb(5, 4, 0) = "7234"
czb(5, 5, 0) = "7251"
czb(5, 6, 0) = "7268"
czb(5, 7, 0) = "7284"
czb(5, 8, 0) = "7201"
czb(5, 9, 0) = "7218"
czb(5, 10, 0) = "7235"
czb(5, 11, 0) = "7252"
czb(5, 12, 0) = "7268"
czb(5, 13, 0) = "7285"
czb(5, 14, 0) = "7202"
czb(5, 15, 0) = "7219"
czb(5, 16, 0) = "7236"
czb(5, 17, 0) = "7252"
czb(5, 18, 0) = "7269"
czb(5, 19, 0) = "7286"
czb(5, 20, 0) = "7203"
czb(5, 21, 0) = "7220"
czb(5, 22, 0) = "7236"
czb(5, 23, 0) = "7253"
czb(5, 24, 0) = "7270"
czb(5, 25, 0) = "7287"
czb(5, 26, 0) = "7204"
czb(5, 27, 0) = "8468"
czb(5, 28, 0) = "8436"
czb(5, 29, 0) = "8404"
czb(5, 30, 0) = "8472"
czb(5, 31, 0) = "8440"
czb(6, 1, 0) = "8400"
czb(6, 2, 0) = "8417"
czb(6, 3, 0) = "8434"
czb(6, 4, 0) = "8451"
czb(6, 5, 0) = "8468"
czb(6, 6, 0) = "8484"
czb(6, 7, 0) = "8401"
czb(6, 8, 0) = "8418"
czb(6, 9, 0) = "8435"
czb(6, 10, 0) = "8452"
czb(6, 11, 0) = "8468"
czb(6, 12, 0) = "8485"
czb(6, 13, 0) = "8402"
czb(6, 14, 0) = "8419"
czb(6, 15, 0) = "8436"
czb(6, 16, 0) = "8452"
czb(6, 17, 0) = "8469"
czb(6, 18, 0) = "8486"
czb(6, 19, 0) = "8403"
czb(6, 20, 0) = "8420"
czb(6, 21, 0) = "8436"
czb(6, 22, 0) = "8453"
czb(6, 23, 0) = "8470"
czb(6, 24, 0) = "8487"
czb(6, 25, 0) = "8404"
czb(6, 26, 0) = "8420"
czb(6, 27, 0) = "9668"
czb(6, 28, 0) = "9636"
czb(6, 29, 0) = "9604"
czb(6, 30, 0) = "9672"
czb(7, 1, 0) = "9640"
czb(7, 2, 0) = "9600"
czb(7, 3, 0) = "9617"
czb(7, 4, 0) = "9634"
czb(7, 5, 0) = "9651"
czb(7, 6, 0) = "9668"
czb(7, 7, 0) = "9684"
czb(7, 8, 0) = "9601"
czb(7, 9, 0) = "9618"
czb(7, 10, 0) = "9635"
czb(7, 11, 0) = "9652"
czb(7, 12, 0) = "9668"
czb(7, 13, 0) = "9685"
czb(7, 14, 0) = "9602"
czb(7, 15, 0) = "9619"
czb(7, 16, 0) = "9636"
czb(7, 17, 0) = "9652"
czb(7, 18, 0) = "9669"
czb(7, 19, 0) = "9686"
czb(7, 20, 0) = "9603"
czb(7, 21, 0) = "9620"
czb(7, 22, 0) = "9636"
czb(7, 23, 0) = "9653"
czb(7, 24, 0) = "9670"
czb(7, 25, 0) = "9687"
czb(7, 26, 0) = "9604"
czb(7, 27, 0) = "9620"
czb(7, 28, 0) = "0868"
czb(7, 29, 0) = "0836"
czb(7, 30, 0) = "0804"
czb(7, 31, 0) = "0872"
czb(8, 1, 0) = "0840"
czb(8, 2, 0) = "0800"
czb(8, 3, 0) = "0817"
czb(8, 4, 0) = "0834"
czb(8, 5, 0) = "0851"
czb(8, 6, 0) = "0868"
czb(8, 7, 0) = "0884"
czb(8, 8, 0) = "0801"
czb(8, 9, 0) = "0818"
czb(8, 10, 0) = "0835"
czb(8, 11, 0) = "0852"
czb(8, 12, 0) = "0868"
czb(8, 13, 0) = "0885"
czb(8, 14, 0) = "0802"
czb(8, 15, 0) = "0819"
czb(8, 16, 0) = "0836"
czb(8, 17, 0) = "0852"
czb(8, 18, 0) = "0869"
czb(8, 19, 0) = "0886"
czb(8, 20, 0) = "0803"
czb(8, 21, 0) = "0820"
czb(8, 22, 0) = "0836"
czb(8, 23, 0) = "0853"
czb(8, 24, 0) = "0870"
czb(8, 25, 0) = "0887"
czb(8, 26, 0) = "0804"
czb(8, 27, 0) = "2068"
czb(8, 28, 0) = "2036"
czb(8, 29, 0) = "2004"
czb(8, 30, 0) = "2072"
czb(8, 31, 0) = "2040"
czb(9, 1, 0) = "2000"
czb(9, 2, 0) = "2017"
czb(9, 3, 0) = "2034"
czb(9, 4, 0) = "2051"
czb(9, 5, 0) = "2068"
czb(9, 6, 0) = "2084"
czb(9, 7, 0) = "2001"
czb(9, 8, 0) = "2018"
czb(9, 9, 0) = "2035"
czb(9, 10, 0) = "2052"
czb(9, 11, 0) = "2068"
czb(9, 12, 0) = "2085"
czb(9, 13, 0) = "2002"
czb(9, 14, 0) = "2019"
czb(9, 15, 0) = "2036"
czb(9, 16, 0) = "2052"
czb(9, 17, 0) = "2069"
czb(9, 18, 0) = "2086"
czb(9, 19, 0) = "2003"
czb(9, 20, 0) = "2020"
czb(9, 21, 0) = "2036"
czb(9, 22, 0) = "2053"
czb(9, 23, 0) = "2070"
czb(9, 24, 0) = "2087"
czb(9, 25, 0) = "2004"
czb(9, 26, 0) = "2020"
czb(9, 27, 0) = "3268"
czb(9, 28, 0) = "3236"
czb(9, 29, 0) = "3204"
czb(9, 30, 0) = "3272"
czb(10, 1, 0) = "3240"
czb(10, 2, 0) = "3200"
czb(10, 3, 0) = "3217"
czb(10, 4, 0) = "3234"
czb(10, 5, 0) = "3251"
czb(10, 6, 0) = "3268"
czb(10, 7, 0) = "3284"
czb(10, 8, 0) = "3201"
czb(10, 9, 0) = "3218"
czb(10, 10, 0) = "3235"
czb(10, 11, 0) = "3252"
czb(10, 12, 0) = "3268"
czb(10, 13, 0) = "3285"
czb(10, 14, 0) = "3202"
czb(10, 15, 0) = "3219"
czb(10, 16, 0) = "3236"
czb(10, 17, 0) = "3252"
czb(10, 18, 0) = "3269"
czb(10, 19, 0) = "3286"
czb(10, 20, 0) = "3203"
czb(10, 21, 0) = "3220"
czb(10, 22, 0) = "3236"
czb(10, 23, 0) = "3253"
czb(10, 24, 0) = "3270"
czb(10, 25, 0) = "3287"
czb(10, 26, 0) = "3204"
czb(10, 27, 0) = "4468"
czb(10, 28, 0) = "4436"
czb(10, 29, 0) = "4404"
czb(10, 30, 0) = "4472"
czb(10, 31, 0) = "4440"
czb(11, 1, 0) = "4400"
czb(11, 2, 0) = "4417"
czb(11, 3, 0) = "4434"
czb(11, 4, 0) = "4451"
czb(11, 5, 0) = "4468"
czb(11, 6, 0) = "4484"
czb(11, 7, 0) = "4401"
czb(11, 8, 0) = "4418"
czb(11, 9, 0) = "4435"
czb(11, 10, 0) = "4452"
czb(11, 11, 0) = "4468"
czb(11, 12, 0) = "4485"
czb(11, 13, 0) = "4402"
czb(11, 14, 0) = "4419"
czb(11, 15, 0) = "4436"
czb(11, 16, 0) = "4452"
czb(11, 17, 0) = "4469"
czb(11, 18, 0) = "4486"
czb(11, 19, 0) = "4403"
czb(11, 20, 0) = "4420"
czb(11, 21, 0) = "4436"
czb(11, 22, 0) = "4453"
czb(11, 23, 0) = "4470"
czb(11, 24, 0) = "4487"
czb(11, 25, 0) = "4404"
czb(11, 26, 0) = "4420"
'平年赋值
czb(11, 27, 1) = "1268"
czb(11, 28, 1) = "1236"
czb(11, 29, 1) = "1204"
czb(11, 30, 1) = "1272"
czb(12, 1, 1) = "1240"
czb(12, 2, 1) = "1200"
czb(12, 3, 1) = "1217"
czb(12, 4, 1) = "1234"
czb(12, 5, 1) = "1251"
czb(12, 6, 1) = "1268"
czb(12, 7, 1) = "1284"
czb(12, 8, 1) = "1201"
czb(12, 9, 1) = "1218"
czb(12, 10, 1) = "1235"
czb(12, 11, 1) = "1252"
czb(12, 12, 1) = "1268"
czb(12, 13, 1) = "1285"
czb(12, 14, 1) = "1202"
czb(12, 15, 1) = "1219"
czb(12, 16, 1) = "1236"
czb(12, 17, 1) = "1252"
czb(12, 18, 1) = "1269"
czb(12, 19, 1) = "1286"
czb(12, 20, 1) = "1203"
czb(12, 21, 1) = "1220"
czb(12, 22, 1) = "1236"
czb(12, 23, 1) = "1253"
czb(12, 24, 1) = "1270"
czb(12, 25, 1) = "1287"
czb(12, 26, 1) = "1204"
czb(12, 27, 1) = "1220"
czb(12, 28, 1) = "2468"
czb(12, 29, 1) = "2436"
czb(12, 30, 1) = "2404"
czb(12, 31, 1) = "2472"
czb(1, 1, 1) = "2440"
czb(1, 2, 1) = "2400"
czb(1, 3, 1) = "2417"
czb(1, 4, 1) = "2434"
czb(1, 5, 1) = "2451"
czb(1, 6, 1) = "2468"
czb(1, 7, 1) = "2484"
czb(1, 8, 1) = "2401"
czb(1, 9, 1) = "2418"
czb(1, 10, 1) = "2435"
czb(1, 11, 1) = "2452"
czb(1, 12, 1) = "2468"
czb(1, 13, 1) = "2485"
czb(1, 14, 1) = "2402"
czb(1, 15, 1) = "2419"
czb(1, 16, 1) = "2436"
czb(1, 17, 1) = "2452"
czb(1, 18, 1) = "2469"
czb(1, 19, 1) = "2486"
czb(1, 20, 1) = "2403"
czb(1, 21, 1) = "2420"
czb(1, 22, 1) = "2436"
czb(1, 23, 1) = "2453"
czb(1, 24, 1) = "2470"
czb(1, 25, 1) = "3668"
czb(1, 26, 1) = "3636"
czb(1, 27, 1) = "3604"
czb(1, 28, 1) = "3672"
czb(1, 29, 1) = "3640"
czb(1, 30, 1) = "3600"
czb(1, 31, 1) = "3617"
czb(2, 1, 1) = "3634"
czb(2, 2, 1) = "3651"
czb(2, 3, 1) = "3668"
czb(2, 4, 1) = "3684"
czb(2, 5, 1) = "3601"
czb(2, 6, 1) = "3618"
czb(2, 7, 1) = "3635"
czb(2, 8, 1) = "3652"
czb(2, 9, 1) = "3668"
czb(2, 10, 1) = "3685"
czb(2, 11, 1) = "3602"
czb(2, 12, 1) = "3619"
czb(2, 13, 1) = "3636"
czb(2, 14, 1) = "3652"
czb(2, 15, 1) = "3669"
czb(2, 16, 1) = "3686"
czb(2, 17, 1) = "3603"
czb(2, 18, 1) = "3620"
czb(2, 19, 1) = "3636"
czb(2, 20, 1) = "3653"
czb(2, 21, 1) = "3670"
czb(2, 22, 1) = "3687"
czb(2, 23, 1) = "3604"
czb(2, 24, 1) = "3620"
czb(2, 25, 1) = "4868"
czb(2, 26, 1) = "4836"
czb(2, 27, 1) = "4804"
czb(2, 28, 1) = "4872"
czb(2, 29, 1) = "NULL"
czb(3, 1, 1) = "4840"
czb(3, 2, 1) = "4800"
czb(3, 3, 1) = "4817"
czb(3, 4, 1) = "4834"
czb(3, 5, 1) = "4851"
czb(3, 6, 1) = "4868"
czb(3, 7, 1) = "4884"
czb(3, 8, 1) = "4801"
czb(3, 9, 1) = "4818"
czb(3, 10, 1) = "4835"
czb(3, 11, 1) = "4852"
czb(3, 12, 1) = "4868"
czb(3, 13, 1) = "4885"
czb(3, 14, 1) = "4802"
czb(3, 15, 1) = "4819"
czb(3, 16, 1) = "4836"
czb(3, 17, 1) = "4852"
czb(3, 18, 1) = "4869"
czb(3, 19, 1) = "4886"
czb(3, 20, 1) = "4803"
czb(3, 21, 1) = "4820"
czb(3, 22, 1) = "4836"
czb(3, 23, 1) = "4853"
czb(3, 24, 1) = "4870"
czb(3, 25, 1) = "4887"
czb(3, 26, 1) = "4804"
czb(3, 27, 1) = "6068"
czb(3, 28, 1) = "6036"
czb(3, 29, 1) = "6004"
czb(3, 30, 1) = "6072"
czb(3, 31, 1) = "6040"
czb(4, 1, 1) = "6000"
czb(4, 2, 1) = "6017"
czb(4, 3, 1) = "6034"
czb(4, 4, 1) = "6051"
czb(4, 5, 1) = "6068"
czb(4, 6, 1) = "6084"
czb(4, 7, 1) = "6001"
czb(4, 8, 1) = "6018"
czb(4, 9, 1) = "6035"
czb(4, 10, 1) = "6052"
czb(4, 11, 1) = "6068"
czb(4, 12, 1) = "6085"
czb(4, 13, 1) = "6002"
czb(4, 14, 1) = "6019"
czb(4, 15, 1) = "6036"
czb(4, 16, 1) = "6052"
czb(4, 17, 1) = "6069"
czb(4, 18, 1) = "6086"
czb(4, 19, 1) = "6003"
czb(4, 20, 1) = "6020"
czb(4, 21, 1) = "6036"
czb(4, 22, 1) = "6053"
czb(4, 23, 1) = "6070"
czb(4, 24, 1) = "6087"
czb(4, 25, 1) = "6004"
czb(4, 26, 1) = "6020"
czb(4, 27, 1) = "7268"
czb(4, 28, 1) = "7236"
czb(4, 29, 1) = "7204"
czb(4, 30, 1) = "7272"
czb(5, 1, 1) = "7240"
czb(5, 2, 1) = "7200"
czb(5, 3, 1) = "7217"
czb(5, 4, 1) = "7234"
czb(5, 5, 1) = "7251"
czb(5, 6, 1) = "7268"
czb(5, 7, 1) = "7284"
czb(5, 8, 1) = "7201"
czb(5, 9, 1) = "7218"
czb(5, 10, 1) = "7235"
czb(5, 11, 1) = "7252"
czb(5, 12, 1) = "7268"
czb(5, 13, 1) = "7285"
czb(5, 14, 1) = "7202"
czb(5, 15, 1) = "7219"
czb(5, 16, 1) = "7236"
czb(5, 17, 1) = "7252"
czb(5, 18, 1) = "7269"
czb(5, 19, 1) = "7286"
czb(5, 20, 1) = "7203"
czb(5, 21, 1) = "7220"
czb(5, 22, 1) = "7236"
czb(5, 23, 1) = "7253"
czb(5, 24, 1) = "7270"
czb(5, 25, 1) = "7287"
czb(5, 26, 1) = "7204"
czb(5, 27, 1) = "8468"
czb(5, 28, 1) = "8436"
czb(5, 29, 1) = "8404"
czb(5, 30, 1) = "8472"
czb(5, 31, 1) = "8440"
czb(6, 1, 1) = "8400"
czb(6, 2, 1) = "8417"
czb(6, 3, 1) = "8434"
czb(6, 4, 1) = "8451"
czb(6, 5, 1) = "8468"
czb(6, 6, 1) = "8484"
czb(6, 7, 1) = "8401"
czb(6, 8, 1) = "8418"
czb(6, 9, 1) = "8435"
czb(6, 10, 1) = "8452"
czb(6, 11, 1) = "8468"
czb(6, 12, 1) = "8485"
czb(6, 13, 1) = "8402"
czb(6, 14, 1) = "8419"
czb(6, 15, 1) = "8436"
czb(6, 16, 1) = "8452"
czb(6, 17, 1) = "8469"
czb(6, 18, 1) = "8486"
czb(6, 19, 1) = "8403"
czb(6, 20, 1) = "8420"
czb(6, 21, 1) = "8436"
czb(6, 22, 1) = "8453"
czb(6, 23, 1) = "8470"
czb(6, 24, 1) = "8487"
czb(6, 25, 1) = "8404"
czb(6, 26, 1) = "8420"
czb(6, 27, 1) = "9668"
czb(6, 28, 1) = "9636"
czb(6, 29, 1) = "9604"
czb(6, 30, 1) = "9672"
czb(7, 1, 1) = "9640"
czb(7, 2, 1) = "9600"
czb(7, 3, 1) = "9617"
czb(7, 4, 1) = "9634"
czb(7, 5, 1) = "9651"
czb(7, 6, 1) = "9668"
czb(7, 7, 1) = "9684"
czb(7, 8, 1) = "9601"
czb(7, 9, 1) = "9618"
czb(7, 10, 1) = "9635"
czb(7, 11, 1) = "9652"
czb(7, 12, 1) = "9668"
czb(7, 13, 1) = "9685"
czb(7, 14, 1) = "9602"
czb(7, 15, 1) = "9619"
czb(7, 16, 1) = "9636"
czb(7, 17, 1) = "9652"
czb(7, 18, 1) = "9669"
czb(7, 19, 1) = "9686"
czb(7, 20, 1) = "9603"
czb(7, 21, 1) = "9620"
czb(7, 22, 1) = "9636"
czb(7, 23, 1) = "9653"
czb(7, 24, 1) = "9670"
czb(7, 25, 1) = "9687"
czb(7, 26, 1) = "9604"
czb(7, 27, 1) = "9620"
czb(7, 28, 1) = "0868"
czb(7, 29, 1) = "0836"
czb(7, 30, 1) = "0804"
czb(7, 31, 1) = "0872"
czb(8, 1, 1) = "0840"
czb(8, 2, 1) = "0800"
czb(8, 3, 1) = "0817"
czb(8, 4, 1) = "0834"
czb(8, 5, 1) = "0851"
czb(8, 6, 1) = "0868"
czb(8, 7, 1) = "0884"
czb(8, 8, 1) = "0801"
czb(8, 9, 1) = "0818"
czb(8, 10, 1) = "0835"
czb(8, 11, 1) = "0852"
czb(8, 12, 1) = "0868"
czb(8, 13, 1) = "0885"
czb(8, 14, 1) = "0802"
czb(8, 15, 1) = "0819"
czb(8, 16, 1) = "0836"
czb(8, 17, 1) = "0852"
czb(8, 18, 1) = "0869"
czb(8, 19, 1) = "0886"
czb(8, 20, 1) = "0803"
czb(8, 21, 1) = "0820"
czb(8, 22, 1) = "0836"
czb(8, 23, 1) = "0853"
czb(8, 24, 1) = "0870"
czb(8, 25, 1) = "0887"
czb(8, 26, 1) = "0804"
czb(8, 27, 1) = "2068"
czb(8, 28, 1) = "2036"
czb(8, 29, 1) = "2004"
czb(8, 30, 1) = "2072"
czb(8, 31, 1) = "2040"
czb(9, 1, 1) = "2000"
czb(9, 2, 1) = "2017"
czb(9, 3, 1) = "2034"
czb(9, 4, 1) = "2051"
czb(9, 5, 1) = "2068"
czb(9, 6, 1) = "2084"
czb(9, 7, 1) = "2001"
czb(9, 8, 1) = "2018"
czb(9, 9, 1) = "2035"
czb(9, 10, 1) = "2052"
czb(9, 11, 1) = "2068"
czb(9, 12, 1) = "2085"
czb(9, 13, 1) = "2002"
czb(9, 14, 1) = "2019"
czb(9, 15, 1) = "2036"
czb(9, 16, 1) = "2052"
czb(9, 17, 1) = "2069"
czb(9, 18, 1) = "2086"
czb(9, 19, 1) = "2003"
czb(9, 20, 1) = "2020"
czb(9, 21, 1) = "2036"
czb(9, 22, 1) = "2053"
czb(9, 23, 1) = "2070"
czb(9, 24, 1) = "2087"
czb(9, 25, 1) = "2004"
czb(9, 26, 1) = "2020"
czb(9, 27, 1) = "3268"
czb(9, 28, 1) = "3236"
czb(9, 29, 1) = "3204"
czb(9, 30, 1) = "3272"
czb(10, 1, 1) = "3240"
czb(10, 2, 1) = "3200"
czb(10, 3, 1) = "3217"
czb(10, 4, 1) = "3234"
czb(10, 5, 1) = "3251"
czb(10, 6, 1) = "3268"
czb(10, 7, 1) = "3284"
czb(10, 8, 1) = "3201"
czb(10, 9, 1) = "3218"
czb(10, 10, 1) = "3235"
czb(10, 11, 1) = "3252"
czb(10, 12, 1) = "3268"
czb(10, 13, 1) = "3285"
czb(10, 14, 1) = "3202"
czb(10, 15, 1) = "3219"
czb(10, 16, 1) = "3236"
czb(10, 17, 1) = "3252"
czb(10, 18, 1) = "3269"
czb(10, 19, 1) = "3286"
czb(10, 20, 1) = "3203"
czb(10, 21, 1) = "3220"
czb(10, 22, 1) = "3236"
czb(10, 23, 1) = "3253"
czb(10, 24, 1) = "3270"
czb(10, 25, 1) = "3287"
czb(10, 26, 1) = "3204"
czb(10, 27, 1) = "4468"
czb(10, 28, 1) = "4436"
czb(10, 29, 1) = "4404"
czb(10, 30, 1) = "4472"
czb(10, 31, 1) = "4440"
czb(11, 1, 1) = "4400"
czb(11, 2, 1) = "4417"
czb(11, 3, 1) = "4434"
czb(11, 4, 1) = "4451"
czb(11, 5, 1) = "4468"
czb(11, 6, 1) = "4484"
czb(11, 7, 1) = "4401"
czb(11, 8, 1) = "4418"
czb(11, 9, 1) = "4435"
czb(11, 10, 1) = "4452"
czb(11, 11, 1) = "4468"
czb(11, 12, 1) = "4485"
czb(11, 13, 1) = "4402"
czb(11, 14, 1) = "4419"
czb(11, 15, 1) = "4436"
czb(11, 16, 1) = "4452"
czb(11, 17, 1) = "4469"
czb(11, 18, 1) = "4486"
czb(11, 19, 1) = "4403"
czb(11, 20, 1) = "4420"
czb(11, 21, 1) = "4436"
czb(11, 22, 1) = "4453"
czb(11, 23, 1) = "4470"
czb(11, 24, 1) = "4487"
czb(11, 25, 1) = "4404"
czb(11, 26, 1) = "4420"
End Function
|
评分
-
查看全部评分
|
粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173
发表于 2014-7-20 18:03:49
主题置顶卡
沉默卡
变色卡
可以
扫一扫，关注易界动态