vb密码变量啥的..进来帮我下

想写个动态的密码 比如今天密码是 123456 明天密码就是 123467 后天是.. 依次类推 这个公式应该怎么表达出来呢??????

写出源代码!

PWD = DateDiff("D", "1670-2-7", Date)
到2008-2-12，是123456，以后每天增加1

pwd = 123456 + datediff("d","2008/1/1",date)*11 其中2008/1/1为基准日期，密码为123456，date函数获取计算机当前日期，可改为某日期，11是每差一天密码变化多少，这个公式完全可以由你自己来定义，可以弄得更复杂一点

对应用户名文本的名称 if passwordchar = ""张文龙" then passwordchar = txtpwd.text '对应密码文本的名称 if passwordchar = "123456" then form2.show form3，请重新输入密码" txtuser = "" txtpwd = &quot.hide else msgbox "用户密码错误private sub command1_click() dim j as single dim passwordchar as string '数据有效性检查 passwordchar = txtuser.text '