主题：[求助]如何在状态栏增加星期几

systemidle代码如下:

With  CurrentTable
    Dim Str1  As  String =  "当前登录用户: " & User.Name & "你好!欢迎使用BDSMS"
    Str1 = Str1 & " 正操作表名为: " & .Name & " 总行数: "
    Str1 = Str1 & .Rows.Count &  " 当前行: " & (.Position + 1)
    Str1 = Str1 &  "今天是:" & Date.now
    StatusBar.Message1 = Str1
End  With

如何在date.now 后面加上星期几？请指教。