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

DimaAsIntegera=Now.Day为什么上面的语句一直报错?难道不是用.Day去取到日期属性吗?... Dim a As Integer
a = Now.Day
为什么上面的语句一直报错? 难道不是用.Day去取到日期属性吗?
展开
 我来答
幻想家爱休闲
高能答主

2019-09-14 · 分享休闲中的点点滴滴!
幻想家爱休闲
采纳数:1082 获赞数:266361

向TA提问 私信TA
展开全部

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、点击工具栏里的启动按钮,进行代码调试,根据错误提示修改代码直至无误为止。接着保存即可。

freeeeeewind
推荐于2017-09-30 · TA获得超过1万个赞
知道大有可为答主
回答量:3227
采纳率:94%
帮助的人:1343万
展开全部

用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

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zydnsrf
2008-05-04 · TA获得超过153个赞
知道答主
回答量:98
采纳率:0%
帮助的人:60.8万
展开全部
你的a是数值类,Data是日期类。你这样取得的日期类型不同肯定要报错。如果你要得到数值类日期要用Format函数来转换。否则要将a的类型改为日期型。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
神龙令主
2008-05-04 · TA获得超过803个赞
知道小有建树答主
回答量:580
采纳率:0%
帮助的人:209万
展开全部
在VB中,可以使用now,可以用date()或time()函数,就是不能用什么year、month和day……你应该用date()函数,然后去截取日期天数部分
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
domainclub
推荐于2017-09-13 · TA获得超过675个赞
知道小有建树答主
回答量:1821
采纳率:0%
帮助的人:1407万
展开全部
a = Day(Now)

同样 Year(Now)
Month(Now)
Hour(Now)
Minute(Now)
Second(Now)
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(6)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式