关于时间转换格式的问题

guang2356447 发布于 2010-04-26 20:27， 408 次点击

aa=year(Date()) & right("0"&month(Date()),2) & right("0"&day(Date()),2)                '当前电脑时间

这个输入aa后显示的是      20100426   就是当天的年+月+日

我想把时间也加进去怎么加啊    比如加上20点     应该显示2010042620    就是2010年4月26日8点

1 回复

yms1232010-04-26 21:34

aa=year(Date())
if Month(Date())<10 Then
   aa=aa&right("0"&month(Date()),2)
Else
   aa=aa&Month(Date())
End IF
IF Day(Date())<10 Then
   aa=aa&right("0"&day(Date()),2)
Else
   aa=aa&Day(Date())
End IF
'加入小时
IF Hour(Now())<10 Then
   aa=aa&right("0"&Hour(Now()),2)
Else
   aa=aa&Hour(Now())
End IF
Response.Write aa
加入分钟和秒钟道理是一样的