用vb编写程序，你至今生活了多少天

首先构思：

这肯定是一个计算题，只有起始日期和结束日期才能得出天数，起始日期因人而异，所以要有一个人机对话框，结果日期当然是今天

其次思考一下以哪种方式进行人机对话，以及用哪种方式呈现计算结果

实现过程：

新建一个工程，在窗体上插入一个命令按钮，将其caption属性修改为“测试你至今活了多少天”，双击命令按钮进入代码窗口，键入以下代码：

Private Sub Command1_Click()

    Dim i As Date, s As Integer

    i = InputBox("请输入你的出生年月日")

    s = Date - i

    MsgBox "你到今天为止已经活了" & s & "天"

End Sub

可以先测试一下代码运行情况，再生成exe执行文件即可

VB中有"星期"这个函数。

WEEKDAY函数是Excel函数。 返回值为一个数字，表示星期几。常使用WEEKDAY函数计算某天为星期几。

WEEKDAY 用途：返回某日期的星期数。在默认情况下，它的值为1(星期天)到7(星期六)之间的一个整数。

语法为：

WEEKDAY(serial_number，return_type)

serial_number 是要返回日期数的日期，它有多种输入方式：带引号的本串(如"2015/10/16")、序列号（如35825 表示1998 年1 月30 日） 或其他公式或函数的结果(如DATEVALUE("2015/1/30"))。

return_type为确定返回值类型的数字，数字1 或省略则1 至7 代表星期天到星期六，数字2 则1 至7 代表星期一到星期天，数字3则0至6代表星期一到星期天。

date型变量及函数的用法,这里够详细了,好好研究一下啊! 我的收藏,参考! 1、DATE型变量及其相关函数。 在内部，一个Date占8个字节的内存，你可以方便地用它来存储日期和时间。给Date变量赋值是很容易的。但请保证输入顺序与系统默认的时间表示顺序相同。例如： Dim d As Date d = #5/23/99 11:45:34 AM# DateSerial函数可以把年、月、日的数字组合成一个Date值。TimeSerial函数可把小时、分、秒的数字组合成一个Date值。且两函数可以叠加。 d = DateSerial(1999, 5, 23) ＋ TimeSerial(11, 45, 34) 而DateValue 和TimeValue 函数则可将代表日期和时间的字符串转化为Date型，并且也可以叠加。 d = DateValue("1999/ 5/ 23") ＋ TimeValue("11: 45: 34") Format函数可按预定的格式显示或打印一个Date变量。如： Print Format(d, "general date") '99－5－23 11:45:34 Print Format(d, "long date") '1999年5月23日 Print Format(d, "medium date"） '99－05－23 Print Format(d, "short date") '99－5－23 Print Format(d, "long time") '11:45:34 Print Format(d, "medium time") '11:45 AM Print Format(d,"short time") '11:45 Format函数也允许你自己规定显示格式。如： Print Format(d, "mmmm") 'may 产生日期中月份的英文 以以上日期为例，如想显示其中的一部分信息可使用以下函数： Print Month(d) '5 Print Day(d) '23 Print Year(d) '1999 Print Hour(d) '11 Print Minute(d) '45 Print Second(d) '34 Print WeekDay(d)'1 Weekday 提供了一组内部常量，vbSunday代表1，直到 vbSaturday代表7。 Now 函数可返回今天的日期及时间。如： Private Sub Form_Click() Dim d As Date d = Now Print d End Sub 灵活地应用以上的函数，可以大大地简化你的程序。例如想计算10000秒等于几小时几分几秒可写为： Private Sub Form_Click() Dim d As Date d = TimeSerial(0, 0, 10000) Print d End Sub 结果为2:46:40。 2、与时间相关的常用控件。 Timer控件是一个奇特的控件。Timer 控件会在固定时间间隔中运行Timer事件。此间隔是由Interval属性决定的，其单位为千分之一秒。但不要以为将其值设为0事件就可不间断地运行了。结果恰恰相反，事件将一次也不运行。同时还要注意变量的声明。如： Private Sub Timer1_Timer() Dim a As Integer a = a ＋ 1 Print a End Sub Dim a As Integer Private Sub Timer1_Timer() a = a ＋ 1 Print a End Sub 试试看，其结果是完全不同的。 当需要用户输入时间时，为避免出现错误的时间，可以使用日历控件。它只允许用户在日历表中选择日期，避免了错误的发生。 3、记录时间的API函数。 GetTickCount Windows API函数可返回 Windows 启动以来消失的毫秒数。其精度高于VB的Timer 函数。且Timer 函数会在午夜清零，而GetTickCount 函数只有当机器连续使用49.7天后才返回零。这为我们编程提供了很大的方便。例如想知道你的电

---