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

allergan 2004-05-06 09:47:51

RT

...全文

420 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 Dim P As Date P = DateSerial(2023, 2, 30) ' P 的值为 2023-03-02 (二月没有30号，自动调整到3月2号) ``` #### 4. TimeSerial(Hour, Minute, ...

VB考勤管理系统实现1、记录每个员工每天所有进入公司的时刻和离开公司的时刻。 2、每天结束时自动统计当天的工作时间 3、每天结束时自动统计当天迟到或早退的次数。 4、对于弹性工作制，每天结束时自动统计当月的...

' 计算2003年1月1日到2005年1月1日之间的天数 DateDiff("d", #1/1/2003#, #1/1/2005#) ``` ##### 12. **DateAdd("Var", Var1, Var2)** - **语法**：`DateAdd("Var", Var1, Var2)` - **功能**：根据指定的时间...

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 ...

Dim countday As Integer = ts1.Days + 1 '获取两个日期间的总天数 Dim weekday As Integer = 0 '工作日 '循环用来扣除总天数中的双休日 For i = 0 To countday - 1 Dim tempdt As DateTime = dt1.Date.AddDays(i) ...

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章