函数名GetMyTimeNumber()
作 用生成时间的整数
参 数lx 时间整数的类型
lx= 到分钟 lx= 到小时 lx= 到天 lx= 到月
返回值生成时间的整数值(最小到分钟)
示 例
**************************************************
Public Function GetMyTimeNumber(lx)
If lx= Then GetMyTimeNumber=Year(Date)****+Month(Date)***+Day(Date)**+Hour(Time)*+Minute(Time)
If lx= Then GetMyTimeNumber=Year(Date)***+Month(Date)**+Day(Date)*+Hour(Time)
If lx= Then GetMyTimeNumber=Year(Date)**+Month(Date)*+Day(Date)
If lx= Then GetMyTimeNumber=Year(Date)*+Month(Date)
End Function