如何在vb中的text1文本框中显示当前时间？本人是菜鸟，希望说的详细点。多谢。

用VB自带的日期和时间函数此类函数一共有十多个,是功能不同,有显示日期的如DATE()函数有显示星期的如WEEKDAY()函数有显示时间的如TIME()函数有显示当前日期与时间的如NOW函数等你应找一下相关资料楼上说的很对,但建议将Interval属性设为1000也就是一秒一更换显示以避免程序过多的一必要中断

Private Sub Form_Load()

Label1 = Date

End Sub

如果想用自己格式显示，就用format函数，如

label1=format(date,"yyyy年mm月dd日")

函数具体用法自己查下资料

用日期函数day()可获得当前日期,time()可获得当前系统时间

dim CurDay as string

dim CurTime as string

curday=day()

curtime=time()

Label1Caption = Date

就能在Label16显示当前日期

now 这个函数可以获得当前系统时间（包括年月日，小时分钟秒）

而

year()

month()

day()

等等则可以从now返回的值中分别提取年，月，日的信息

1、启动visual basic6，执行文件-新建工程命令，在d出的对话框中选择标准exe文件后点击确定。

2、拖拽窗体周围的小正方形调节窗体的大小，修改borderstyle属性值为0-none，startupposition属性值为屏幕中心。

3、选择工具箱里标签工具，在窗体上创建两个标签控件，一个label1一个label2，修改两个标签控件的caption属性值为空。

4、分别选择工具箱里触发器和按钮控件，在窗体上创建commmand1和timer1对象。并修改commmand1的caption属性值为退出。

5、双击窗体进入代码区域，输入代码

Timer1Interval = 1000

Timer1Enabled = True

6、接着双击timer1控件，进入触发器代码区域输入代码：

Label2Caption = "今天是：" & Date

Label1Caption = "现在是：" & Format(Now, "AMPM(hh:mm:ss)")

7、接着双击commmand1控件进入代码区域输入代码为end，即为退出程序。

8、点击工具栏里的启动按钮，进行代码调试，根据错误提示修改代码直至无误为止。接着保存即可。

A=12：B=32

C=Len（Str（A）+Str（B））

12 + 32 是 1232

len 长度是5

Text1Text=C

所以 text1text 的显示是 5

前面的回答比较逗 哈哈

对不起，我不会！

追问

郁闷了