
求一段代码,用VB编程实现一个日历程序!!!
用VB编写,设计一个日历,最后说明详细步骤!!!!就是用VB编程实现一个日历程序,可以在程序里选择年月日,然后可以查看那一天是星期几!...
用VB编写,设计一个日历,最后说明详细步骤!!!!
就是用VB编程实现一个日历程序,可以在程序里选择年月日,然后可以查看那一天是星期几! 展开
就是用VB编程实现一个日历程序,可以在程序里选择年月日,然后可以查看那一天是星期几! 展开
4个回答
展开全部
给你个简便易行的代码。
==========================
Private Sub Form_Load()
While 1
Dim y As Integer, m As Integer, d As Integer, s As Date, x As Integer, r As String
y = InputBox("请输入年份", , Format(Now, "yyyy"))
m = InputBox("请输入月份", , Format(Now, "mm"))
d = InputBox("请输入日期", , Format(Now, "dd"))
s = DateSerial(y, m, d)
x = Weekday(s)
Select Case x
Case 1
r = "日"
Case 2
r = "一"
Case 3
r = "二"
Case 4
r = "三"
Case 5
r = "四"
Case 6
r = "五"
Case 7
r = "六"
End Select
MsgBox "星期" & r
Wend
End Sub
==========================
Private Sub Form_Load()
While 1
Dim y As Integer, m As Integer, d As Integer, s As Date, x As Integer, r As String
y = InputBox("请输入年份", , Format(Now, "yyyy"))
m = InputBox("请输入月份", , Format(Now, "mm"))
d = InputBox("请输入日期", , Format(Now, "dd"))
s = DateSerial(y, m, d)
x = Weekday(s)
Select Case x
Case 1
r = "日"
Case 2
r = "一"
Case 3
r = "二"
Case 4
r = "三"
Case 5
r = "四"
Case 6
r = "五"
Case 7
r = "六"
End Select
MsgBox "星期" & r
Wend
End Sub
展开全部
那没有什么难的 画面上放40个控件数组 然后算就可以了!~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
选择菜单“工程-部件...”,在弹出的窗口中选择“Microsoft Windows Common Controls-2 6.0 (SP6)”,点击“确定”按钮后,在工具箱内就会出现日历控件,双击该控件,就可以使用现成的日历了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
咳咳!这还要简单点,你等一年,看有人答得出来不,如果只是公历我想应该不难。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询