cf张立蓁走光:vb6。0中怎么取机器当前日期??

来源:百度文库 编辑:高考问答 时间:2024/04/29 01:04:06
并分别打印xxxx xx xx

Now() 取得系统当前日期时间
Date()取得系统当前日期
Year(Date)取得系统当前日期的年份
Month(Date)取得系统当前日期的月份
Day(date)取天数
具体可查MSDN

Private Sub Command1_Click()
Dim i As String
's = Format(Now, "yyyy/mm/dd") 年月日
's = Year(Date) 年
's = Format(Now, "yyyy") 年
's = Format(Now, "mm") 月
's = Format(Now, "dd") 日
Text1.Text = s
End Sub

详细的可以自己调试下:)

year()年
month()月
day()日

用函数 DATA 或NOW