Question

vb中的Date类型如何取到日期?

Dim a As Integer
a = Now.Day
为什么上面的语句一直报错? 难道不是用.Day去取到日期属性吗?

Answer 1

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

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

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

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

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

Timer1.Interval = 1000

Timer1.Enabled = True

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

Label2.Caption = "今天是：" & Date

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

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

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

Answer 2

用VB中的时间/日期函数 Year 、Month和Day可以分别获得Date类型变量的年、月和日；另外，可以使用Format函数可以得到字符串表示的日期。

举例如下：

Option Explicit

Private Sub Form_Click()
    '定义一个Date类型变量
    Dim dt As Date
    '用当前时间赋值
    dt = Now
    
    Dim y As Integer, m As Integer, d As Integer
    '用函数Year取出日期中的年份
    y = Year(dt)
    Print "年：" + CStr(y)
    
    '用函数Month取出日期中的月份
    m = Month(dt)
    Print "月：" + CStr(m)
    
    '用函数Day取出日期中的日
    d = Day(dt)
    Print "日：" + CStr(d)
    
    'Format函数得到字符串表示的日期
    Dim strDate As String
    strDate = Format(dt, "yyyy年MM月dd日")
    Print strDate 
End Sub

Answer 3

你的a是数值类，Data是日期类。你这样取得的日期类型不同肯定要报错。如果你要得到数值类日期要用Format函数来转换。否则要将a的类型改为日期型。

Answer 4

在VB中，可以使用now，可以用date()或time()函数，就是不能用什么year、month和day……你应该用date()函数，然后去截取日期天数部分

Answer 5

a = Day(Now)

同样 Year(Now)
Month(Now)
Hour(Now)
Minute(Now)
Second(Now)