VB制作日历

 我来答

3个回答

#热议# 为什么说不要把裤子提到肚脐眼？

坚鸿德穆雨
2019-01-21 · TA获得超过3万个赞

知道大有可为答主

回答量：1.1万

采纳率：30%

帮助的人：809万

我也去答题访问个人页

关注

展开全部

用DateDiff()函数
格式：DateDiff(“d",日期1,
日期2)
函数将返回“日期1”与“日期2”之间的天数。
Private
Sub
MonthView1_DateClick(ByVal
DateClicked
As
Date)
aa
=
MsgBox("选择的是
"
&
MonthView1.Value
&
Chr(10)
&
Chr(13)
&
"是
"
&
Year(MonthView1.Value)
&
"
年的第
"
&
DateDiff("d",
DateSerial(Year(MonthView1.Value),
1,
1),
MonthView1.Value)
+
1
&
"
天。",
vbOKOnly,
"日期计算")
End
Sub

已赞过 已踩过<

评论收起

博思aippt
2024-07-20 广告

作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT... 点击进入详情页

本回答由博思aippt提供

钭静珊少锐
2019-04-08 · TA获得超过3万个赞

知道大有可为答主

回答量：1.1万

采纳率：33%

帮助的人：866万

我也去答题访问个人页

关注

展开全部

很简单的啊!!哪用那么复杂啊!!
用三个文本框输入年月日,在用两个命令按钮,一个输出,一个结束!就OK了!!
Private
Sub
Command1_Click()
a
=
Text1.Text
&
"-"
&
Text2.Text
&
"-"
&
Text3.Text
b
=
DateDiff("d",
Val(Text1.Text)
-
1
&
"-12-31",
a)
MsgBox
Text1.Text
&
"的第"
&
b
&
"天。"
End
Sub
Private
Sub
Command2_Click()
End
End
Sub

已赞过 已踩过<

评论收起

大雯丽塞琛
2019-05-12 · TA获得超过3万个赞

知道大有可为答主

回答量：1.1万

采纳率：34%

帮助的人：577万

我也去答题访问个人页

关注

展开全部

'加个日期控件，再加一个label1标签（在工程里把部件先装入）
Private
Sub
MonthView1_SelChange(ByVal
StartDate
As
Date,
ByVal
EndDate
As
Date,
Cancel
As
Boolean)
Label1
=
MonthView1.Value
-
CDate(Mid(MonthView1.Value,
1,
4)
&
"-1"
&
"-1")
End
Sub

已赞过 已踩过<

评论收起

更多回答（1）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

VB制作日历

为你推荐：