函數名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
From:http://tw.wingwit.com/Article/program/net/201311/14375.html