Questions about time functions

ljeternity

One button in one form, one label
I now want to click the button to display the corresponding time in the Label. In fact, I will not use the following functions, please give an example, thank you:
1.Date () function
Now () function
3.Time () function
4, Year (dtDate) function
5.Month (dtDate) function
6.Day (dtDate) function
7.WeekDay (dtDate) function
8.Hour (dtTime) function
Thank you, please give an example as well, you can click the button to display the corresponding content in the Label

drbabyhai

Private Sub Command1_Click ()
  Label1.Caption = Now
End Sub

If you do n’t use it, write it yourself. No such simple thing can be written. Write one, think of a way later

ljeternity

So how do the functions in parentheses work? Thank you!

ljeternity

So now these will not be used, thank you, please take a look:
4, Year (dtDate) function
5.Month (dtDate) function
6.Day (dtDate) function
7.WeekDay (dtDate) function
8.Hour (dtTime) function

maggic

What should i say

4, Year (dtDate) function
5.Month (dtDate) function
6.Day (dtDate) function
7.WeekDay (dtDate) function
8.Hour (dtTime) function
 
dim dt as date
dt = now
msgbox Year (dt) 'The year part of the date
msgbox Month (dt) 'the month part of the date
msgbox Day (dt) 'Day part of date
msgbox WeekDay (dt) 'This day is the day of the week, 1 Sunday / ...
msgbox Hour (dt) 'Hour part of the date