以下是万能密码的函数,是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