VB中怎么计算当月的天数啊？

allergan 2004-05-06 09:47:51

RT

...全文

415 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

yoki 2004-05-06

打赏
举报

回复

?datediff("d",format(date,"yyyy-mm"),dateadd("m",1,format(date,"yyyy-mm")))

whuavon 2004-05-06

打赏
举报

回复

好好看看书,有专门讲这些函数的!~`````

victorycyz 2004-05-06

打赏
举报

回复

取下个月的1号，减一天，再取结果中的日期就行了。

allergan 2004-05-06

打赏
举报

回复

谢谢“小马哥”和“中海”!

为初学者，列出vb中常见的时间函数，帮你轻松搞定！

VB考勤管理系统实现1、记录每个员工每天所有进入公司的时刻和离开公司的时刻。 2、每天结束时自动统计当天的工作时间 3、每天结束时自动统计当天迟到或早退的次数。 4、对于弹性工作制，每天结束时自动统计当月的工时，并自动算出当月欠缺或富余的时间 5、每个月末统计该月的工作时间判断是否足够 6、每个月末统计该月的工作天数并判断是否足够 7、管理人员查询并修改工作时间（特殊情况下修改） 8、管理人员账户管理（如设置密码等） 9、管理人员设定早退及迟到的条件，每个月的工作时间 10、管理人员设定每个月的工作日期及放假日期

asp之日期和时间函数示例

Private Function DAY_NOW() Dim n As String, y As Long n = Date$ '年 y = Month(Now) '月 If y = 1 Or y = 3 Or y = 5 Or y = 7 Or y = 8 Or y = 10 Or y = 12 Then r = 31 ElseIf y = 4 Or y = 6 Or y = 9 Or y = 11 Then r = 30 ElseIf y = 2 Then If Val(n) Mod 4 = 0 Th.

Public Sub getDays() Dim dt1 As DateTime = New DateTime(2021, 10, 26) '初始化一个日期 Dim dt2 As DateTime = New DateTime(2021, 10, 31) '初始化一个日期 Dim ts1 As TimeSpan = dt2.Subtract(dt1) 'TimeSpan得到dt1和dt2的时间间隔 Dim

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章