我想提取系统的时间,但是只想提取分钟的时间,其他不要,然后让它变成5的倍数,怎么办呢
解决方案 »
- MSHFlexGrid中,如何在程序里移动表格?
- 请教怎样插入空的日期数据
- vb报表中的字段换行后,线格会自动断开,怎么解决呢?
- 各位高手帮忙!我这里有个在桌面创建快捷方式的程序!看看哪里有问题!
- 求教,关于ADO错误!
- 如何编程生成一张256*256的蓝色位图文件啊?
- vb数据库编程中recordsettype中的三个属性dynaset,snapshot,table究竟有何区别?一定给分!
- 怎么让报表编辑器横向打印报表?(在线等待)
- !!!!最新色彩(按钮式与列表式)下拉控件开始分发,来者有分!!!!
- 如何用Enter键响应Tab键功能?
- 关于EXCEL的一个简单问题
- 如果哪位大虾能邦助我解决这个问题,1000分以外,还可以公布我的源代码给他。
iMinute=minute(time)'当前系统分钟数
变成5的倍数为
m=s\5+1
a = Minute(Now())*5
MNum=cint(mid(format(time,"HH:MM"),instr(1,format(time,"HH:MM"),":",vbTextCompare)+1))
if MNum mod 5 =0 then
msgbox MNum
endif
MNum=5*cint(mid(format(time,"HH:MM"),instr(1,format(time,"HH:MM"),":",vbTextCompare)+1))
有没有这样的函数,把时间都取出来,就除了秒
----------------------------------------------
format(now,"yyyy-MM-dd hh:mm")
返回一个包含已知日期的指定时间部分的 Variant (Integer)。语法DatePart(interval, date[,firstdayofweek[, firstweekofyear]])DatePart 函数语法中有下列命名参数:部分 描述
interval 必要。字符串表达式,是要返回的时间间隔。
date 必要。要计算的 Variant (Date) 值。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定,则以星期日为第一天。
firstweekofyear 可选。指定一年第一周的常数。如果未予指定,则以包含 1 月 1 日的星期为第一周。
设置interval 参数的设定值如下:设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
firstdayofweek 参数的设定值如下:常数 值 描述
vbUseSystem 0 使用 NLS API 设置。
vbS.....................
...........
返回一个包含已知日期的指定时间部分的 Variant (Integer)。
语法
DatePart(interval, date[,firstdayofweek[, firstweekofyear]])
DatePart 函数语法中有下列命名参数:
部分 描述
interval 必要。字符串表达式,是要返回的时间间隔。
date 必要。要计算的 Variant (Date) 值。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定,则以星期日为第一天。
firstweekofyear 可选。指定一年第一周的常数。如果未予指定,则以包含 1 月 1 日的星期为第一周。
设置
interval 参数的设定值如下:
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
firstdayofweek 参数的设定值如下:
常数 值 描述
vbUseSystem 0 使用 NLS API 设置。
vbSunday 1 星期日(缺省值)
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数的设定值如下:
常数 值 描述
vbUseSystem 0 使用 NLS API 设置。
vbFirstJan1 1 从包含 1 月 1 日的星期开始(缺省值)。
vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。
vbFirstFullWeek 3 从第一个无跨年度的星期开始。 -_-!偶绝对是来蹭分的,不要置疑.(msdn)
到是很好,但是我想让它直接变成200406170936,这样的字符串
Format(Now, "yyyyMMddhhmm") 得到:200406170936