中科新闻网刀锋 2下载:关于一个vb程序设计的问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 09:00:08
请问高人 如何设计一个窗体，可以输入年份，月份，和日期计算出该日期是该年的第几天！！！谢谢！！
给你信函数你自己设计窗体的吧，很简单的：
DatePart("y",#1999-1-11#)
比如你设置三个文本框，分别用来接收年月日，第四个文件框用来接收最终结果，用一个命令按钮来执行，那么命令按钮的单击事件中加入如下代码就可以了。
Text4.Text = DatePart("y", Text1.Text & "-" & Text2.Text & "-" & Text3.Text)
赞成一楼。
四个TextBox、一个CommandButton
Private Sub Command1_Click()
Text4.Text = DatePart("y", Text1.Text & "-" & Text2.Text & "-" & Text3.Text)
End Sub