拒绝录入错误日期的编程方法
添加时间: 2006-2-16 3:53:04 作者: VB教程 阅读次数:60 来源: http://www.d9soft.com
防止日期退后很有必要，有一种通用的方法：软件每次运行都将当前日期和时间存盘，软件在启动时则对比当前日期时间和保存的日期时间，发现有退后现象就提示错误信息，不予运行。
此方法也可以作为试用版软件防用户更改日期的方法。
用Visual BASIC编写的示例程序如下：
建一个空窗体，在代码窗口中输入以下代码即可运行，当程序发现日期出现返回错误时会给出提示。把本程序生成可执行文件放在启动组中就可以在每次开机时检测日期/时间的错误，放在个人程序的启动部分就可以在个人程序中检测日期/时间错误。
Option Explicit
Private Sub Form_Load()
Dim SaveNow, ReadNow, DateErr As Boolean, Msg
On Error GoTo ItErr
'读取储存的日期/时间。
Open "C:\WINDOWS\DATAOK.DAT" For Input As #1
Input #1, ReadNow: SaveNow = CDate(ReadNow)
Close #1
'储存时间比当前时间大时错误发生。
If SaveNow〉Now Then DateErr = True Else DateErr = False
If Not DateErr Then
'未发现错误，重新写入当前时期/时间。
Open "C:\WINDOWS\DATAOK.DAT" For Output As #1
Print #1, Now
Close #1
MsgBox "日期正常，欢迎使用本软件。"
Exit Sub
Else
'提示出错信息。
Msg = "上次储存日期/时间：" && SaveNow && vbCrLf
Msg = Msg && "当前日期/时间：" && Now && vbCrLf && vbCrLf
Msg = Msg && "请务必改正当前时间，以防出错！"
MsgBox Msg, , "日期/时间检测出错！"
End
End If
ItErr:
'首次运行程序，直接写入当前日期/时间
Open "C:\WINDOWS\DATAOK.DAT" For Output As #1
Print #1, Now
Close #1: End
End Sub
程序在VB 6.0专业版下调试通过。
上下文章:
上一篇文章: VB编程计算农历的计算方法 下一篇文章: VB创建、修改、删除WIN2K用户