'函數名：GetMyTimeNumber() '作 用：生成時間的整數 '參 數：lx ---- 時間整數的類型 ' lx=0 到分鐘 lx=1 到小時 lx=2 到天 lx=3 到月 '返回值：生成時間的整數值(最小到分鐘) '示 例： '************************************************** Public Function GetMyTimeNumber(lx) If lx=0 Then GetMyTimeNumber=Year(Date)*12*30*24*60+Month(Date)*30*24*60+Day(Date)*24*60+Hour(Time)*60+Minute(Time) If lx=1 Then GetMyTimeNumber=Year(Date)*12*30*24+Month(Date)*30*24+Day(Date)*24+Hour(Time) If lx=2 Then GetMyTimeNumber=Year(Date)*12*30+Month(Date)*30+Day(Date) If lx=3 Then GetMyTimeNumber=Year(Date)*12+Month(Date) End Function
