7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2004-01-12
- 打赏
- 举报
Day(DateSerial(Year(Date), Month(Date) + 1, 0))
脆皮大雪糕 2004-01-12
- 打赏
- 举报
呵呵，和大头英雄所见略同
脆皮大雪糕 2004-01-12
- 打赏
- 举报
上面的代码结果分别为 29和28
hhjjhjhj 2004-01-12
- 打赏
- 举报
=DateDiff("d", DateValue(Month(Date) & "-1"), DateValue((Month(Date) + 1) & "-1"))
脆皮大雪糕 2004-01-12
- 打赏
- 举报
Option Explicit
Private Sub Form_Load()
Debug.Print getMonthDay(2004, 2) '2004年2月的总天数
Debug.Print getMonthDay(2003, 2) '2003年2月的总天数
End Sub
Private Function getMonthDay(strYear As String, strMonth As String) As Integer
getMonthDay = DateDiff("d", strYear & "-" & strMonth & "-1", strYear & "-" & Trim(Str(Val(strMonth) + 1)) & "-1")
End Function
Private Sub Form_Load()
Debug.Print getMonthDay(2004, 2) '2004年2月的总天数
Debug.Print getMonthDay(2003, 2) '2003年2月的总天数
End Sub
Private Function getMonthDay(strYear As String, strMonth As String) As Integer
getMonthDay = DateDiff("d", strYear & "-" & strMonth & "-1", strYear & "-" & Trim(Str(Val(strMonth) + 1)) & "-1")
End Function
luofan 2004-01-12
- 打赏
- 举报
使用以下代码可以在text1.text中显示日期
If Day(Date + 31) = Day(Now) Then
Text1.Text = 31
ElseIf Day(Date + 30) = Day(Now) Then
Text1.Text = 30
ElseIf Day(Date + 28) = Day(Now) Then
Text1.Text = 28
ElseIf Day(Date + 29) = Day(Now) Then
Text1.Text = 29
End If
If Day(Date + 31) = Day(Now) Then
Text1.Text = 31
ElseIf Day(Date + 30) = Day(Now) Then
Text1.Text = 30
ElseIf Day(Date + 28) = Day(Now) Then
Text1.Text = 28
ElseIf Day(Date + 29) = Day(Now) Then
Text1.Text = 29
End If
