vb日期显示

答案:4 悬赏:50 手机版

解决时间 2021-07-19 20:46

提问者网友：留有余香
2021-07-19 00:32

如何利用一个标签显示当前的日期、时间，还要还要有文字的

如图中显示的

要详细点的代码

最佳答案

五星知识达人网友：白昼之月
2021-07-19 00:39

Option Explicit

Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = "今天是" & Year(Now()) & "年" & _
Month(Now()) & "月" & Day(Now()) & "日" & vbCrLf & "现在是" & Hour(Now()) & "点" & Minute(Now()) & "分" & Second(Now()) & "秒"

End Sub

Private Sub Timer1_Timer()
Label1.Caption = "今天是" & Year(Now()) & "年" & _
Month(Now()) & "月" & Day(Now()) & "日" & vbCrLf & "现在是" & Hour(Now()) & "点" & Minute(Now()) & "分" & Second(Now()) & "秒"
End Sub

全部回答

1楼网友：十年萤火照君眠
2021-07-19 02:26

label1.caption="当前日期为:" & Now

2楼网友：逃夭
2021-07-19 02:09

以2005-5-2 22:37:30星期一为例：

2005-5-2：<%=date()%> 2005：<%=year(date())%> 5：<%=month(date())%> 2：<%=day(date())%>

22：<%=hour(now())%> 37：<%=minute(now())%> 30：<%=second(now())%>

星期一：<%=weekdayname(weekday(now)) %>

照猫画虎

3楼网友：枭雄戏美人
2021-07-19 01:14

Private Sub Form_Load() Label1.Caption = "今天是" & Year(Now()) & "年" & _ Month(Now()) & "月" & Day(Now()) & "日" & vbCrLf & "现在是" & Hour(Now()) & "点" & Minute(Now()) & "分" & Second(Now()) & "秒" End Sub

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！