Asp常用通用函数之生成时间的整数

youyaozc

于 2010-01-21 15:48:00 发布

阅读量321

点赞数

文章标签： asp date function

本文介绍了一个名为GetMyTimeNumber()的函数，该函数能够根据指定的类型参数lx生成不同精度的时间整数值，如分钟、小时、天或月。通过简单的VBA代码实现，适用于需要时间戳或进行时间相关计算的场景。

　 '函数名：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