你想写在什么地方?写在主窗口里可以用Label 控件,写在状态栏就用如下代码:
StatusBar.Message2 = " " & Date.now & " " & "星期" & "日一二三四五六".Chars(Today.DayOfWeek) & " 当前用户: " &UserName