分时间段 自动期数

时　间:2015-03-28 13:40:42
作　者:fresun   ID：23795  城市：龙岩
摘　要:自动期数 时间 分时间段
正　文:

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

请大侠们帮纠正.

实现的功能:  双击一个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交流群 (群号:54525238) 　　　　　　Access源码网店