分时间段 自动期数-fresun
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


分时间段 自动期数

发表时间:2015/3/28 13:40:42 评论(1) 浏览(5138)  评论 | 加入收藏 | 复制
   
摘 要:自动期数 时间 分时间段
正 文:

尝试写一个小程式,但好像很多错.

请大侠们帮纠正.


实现的功能:  双击一个text控件.   可以自动填写 期数.   格式为 20150328001 --20150328这样的格式

规则如下 0点开始算001期, 每5分钟1期  ,    到凌晨2时整结束.  2小时,共24期.

      从早上10点开始算第025期, 每10分钟1期,直到晚上22点,  共72期 (025--096期)

      从晚上22点到0点0分 ,  2小时,每5分钟1期,共24期  (097-120)期

    

总共120期.   代码如下,是我瞎编的,


Private Sub Text2652_DblClick(Cancel As Integer)

 Dim TTT          As Integer
  Dim NNN         As Integer
  Dim SSS        As Integer
'If Hour(Now()) >= 22 or Hour(Now()) < 2 Then
'TTT = Hour(Now()) - 22
'NNN = Int(Minute(Now()) / 5) + 1
'SSS = 72 + TTT * 6 + NNN + 24
'Else
 'TTT = Hour(Now()) - 10
 'NNN = Int(Minute(Now()) / 10) + 1
 'SSS = TTT * 6 + NNN + 24
 
 If Hour(Now()) >= 0 And Hour(Now()) < 2 Then
 NNN = Int(Minute(Now()) / 5) + 1
 SSS = NNN
 End If
  
  
  If Hour(Now()) >= 10 And Hour(Now()) < 22 Then
  TTT = Hour(Now()) - 10
 NNN = Int(Minute(Now()) / 10) + 1
 SSS = TTT * 6 + NNN + 24
 End If
 
 If Hour(Now()) >= 22 And Hour(Now()) < 22 Then
  TTT = Hour(Now()) - 10
 NNN = Int(Minute(Now()) / 5) + 1
 SSS = TTT * 6 + NNN + 24
 End If
End If
Me.Text2652 = Format(Date, "YYYYMMDD") & Format(SSS, "000")






End Sub

Access软件网交流QQ群(群号:198465573)
 
 相关文章
[示例]计算某一段时间内的工作日和假日天数  【金宇  2012/5/12】
自定义时间分段函数示例  【杜超-2号  2013/6/1】
【Access查询】提取特定日期区间内特定时间段的数据  【宏鹏  2014/2/19】
SqlServer时间日期处理函数及字符串转换  【杜超-2号  2014/4/19】
把时间段的数据转换成每天一条记录  【宏鹏  2014/12/3】
常见问答
技术分类
相关资源
文章搜索
关于作者

fresun

文章分类

文章存档

友情链接