酷祥資訊部落格

關於部落格
遊戲、資訊
  • 88187

    累積人氣

  • 4

    今日人氣

    0

    訂閱人氣

取得日期和星期和時間


Private Sub Command1_Click()
Cls
Print "日期:"; Date
Print "時間:"; Time
Print "時間2:"; Time$
Print "現在日期和時間:"; Now
Print "年:"; Year(Now)
Print "月:"; Month(Now)
Print "日:"; Day(Now)

WEEK = "日一二三四五六"
WEY = Mid(WEEK, Weekday(Date), 1)
Print "星期:"; WEY
'weekday傳回數值
'數值:1等於星期日
'數值:2等於星期一
'...
'數值:7等於星期六

Print "時:"; Hour(Now)
Print "分:"; Minute(Now)
Print "秒:"; Second(Now)
End Sub

相簿設定
標籤設定
相簿狀態