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

allergan 2004-05-06 09:47:51

RT

...全文

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

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.

该课程面向对象：备考计算机二级（VB）的课程备课期末考试自学VB程序设计课程注意提高学习者实战技巧，授课过程中以实际操作演示为主，帮助学习者快速地掌握编程的实际方法和技巧。课程以2019年计算机二级大纲...

MsgBox(DateSerial(Year(Now),month(now)+1, 0).Day) 返回的是这个月的天数

题目：输入月份，显示当月的天数要求：利用case穿透简化代码分析：第一步：确定月份天数情况，1、3、5、7、8、10、12 月均为31天；4、6、9、11均为30天；2月份闰年有29天，平年有28天。第二步：判断平年闰年的条件是能被4整除且不能被100整除或能被400整除的数第三步：理解case穿透技术并会使用注：28天和29天的判断中运用到了三元表达式表达式？事件1 ：事件2 如果表达式为真，则结果为事件1的结果；如果表达式为假，则结果为事件2的结果。具体...

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章