MsgBox "今天星期" & Mid("日一二三四五六", Weekday(Date), 1)
或者在
Label1   里面  Mid("日一二三四五六", Weekday(Date), 1) 要怎样写呢？
还有
这个 Format(Now(), "AAA") 显示的星期六、日不知道能不能是红色的

[ 本帖最后由 yujimin 于 2010-8-17 20:18 编辑 ]

msgbox 里不可能存在 某些红色的字。

同样 label1 里也不可能存在某个字是别的颜色。

可以用二个 label 来显示，一个显示正常的字，另一个显示红色。

可以用print完成

能具体说下吗？

Private Sub Command1_Click()
Dim i As Integer

i = 1 '你的那个weekday函数

If i = 1 Or i = 7 Then
    Me.ForeColor = vbRed
Else
    Me.ForeColor = vbBlack
End If
Me.Print Mid("日一二三四五六", i, 1)
Print
End Sub

Private Sub Form_Load()
   Me.ScaleMode = 3
   Me.FontSize = 12
   Label1.FontSize = 12
   Label1.BackStyle = 0
   Label1.Caption = "今天是星期"
   Me.CurrentX = Label1.Left + Me.TextWidth("今天是星期")
   Me.CurrentY = Label1.Top
End Sub


编辑过，这样是对的，刚才没完全理解你的意思

[ 本帖最后由 我是菜鸟哦 于 2010-8-18 20:09 编辑 ]

如果这样能实现吗？
Label1.Caption = Date & Space(1) & "星期" & Mid("日一二三四五六", Weekday(Date), 1) & Space(1) & Time
每到星期六星期日的时候 星期 六 日 就是红色。

不能啊，这些数据都是在同一个内存块里边

要想这种效果就得上边那样，你自己改改代码啊，例子已经给出了，举一反三的事情。。。。。。

算了，还是给你写出来吧，晕。。。。。。
Private Sub Command1_Click()
Dim i As Integer

i = 1 '你的那个weekday函数

If i = 1 Or i = 7 Then
    Me.ForeColor = vbRed
Else
    Me.ForeColor = vbBlack
End If
Me.Print “星期” + Mid("日一二三四五六", i, 1)
Print
End Sub

Private Sub Form_Load()
   Me.ScaleMode = 3
   Me.FontSize = 12
   Label1.FontSize = 12
   Label1.BackStyle = 0
   Label1.Caption = "今天是"
   Me.CurrentX = Label1.Left + Me.TextWidth("今天是")
   Me.CurrentY = Label1.Top
End Sub