在线苦等，一个时间判断的问题？？请高手帮忙．

time:<INPUT   id=mytime   tabIndex=-1   readOnly   value="<%=time()%>"   name=mytime>  
   
  这里显示的是当前时间，但现在想让他显示为当前时间的最近一刻钟，  
  如4:01:00~4:14:59pm，就显示为4:15pm  
    4:15:01~4:29:59pm，就显示为4:30pm  
  以此类推，．．

---

加一个判断分钟数的函数就可以了

---

<%  
  Function   formatTime(iMinute,iTime)  
  Dim   returnTime  
  Select   Case   iMinute    
  Case   iMinute   >=1   And   iMinute   <=   14  
  returnTime   =   Hour(iTime)&":"&"15"&":"&Second(iTime)  
  Case   iMinute   >=15   And   iMinute   <=   30  
  returnTime   =   Hour(iTime)&":"&"30"&":"&Second(iTime)  
  End   Select    
  formatTime   =   returnTime  
  End   Function    
  Dim   strTime  
  strTime   =   Now()  
  Response.write   formatTime(Minute(strTime),strTime)  
  %>

---

楼上正解

---

wscript.echo   time()  
   
  m   =   minute(time())  
  h   =   hour(time())  
   
  if   m<15   then  
      m=15  
  elseif   m<30   and   m>15   then  
      m=30  
  elseif   m>30   and   m<45   then  
      m=45  
  else  
      m=0  
      h   =   +1  
  end   if  
   
   
  Wscript.echo   h   &   ":"   &   m  
 

---

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	高手 帮忙 问题 判断 在线 iMinute iTime returnTime