高手帮忙解决下VB显示日期的问题

Question

Private Sub Timer1_Timer()
a = Fix(86400 - Timer)
    hh = Format(a \ 3600, "00")
    mm = Format(a \ 60 - hh * 60, "00")
    ss = Format(a Mod 60, "00")Me.AutoRedraw = True
    Me.FontSize = 15
    Me.Cls
    Label1.Caption = "现在是：" & Date & "   " & Time
    Label4.Caption = "距离9月1号还有:" & #9/1/2009# - Date & "天" & hh & "小时" & mm & "分" & ss + 1 & "秒"
    
End Sub各位高手,我是VB初学者,有些问题还不太懂,希望大家能帮帮我,先谢了!
这个代码中我想做成输出的 hh , mm ,ss是红色的,其他的字颜色不变,只能在Label4这一个控件里做到(不需要再添加其他的Label控件),代码应该怎样修改啊?希望大家帮帮我,谢谢
另外按照上面的代码,Label1中输出的时间格式会是 2009/8/24 ,我想改成 2009年8月24日 ,这样的话代码还需要怎样改?谢谢了!

Answer 1

一个label只能显示一种颜色的字体，二种颜色只能用二个label拼接...Private Sub Timer1_Timer()
    Dim dt As Date
    dt = TimeSerial(23 - Hour(Now), 60 - Minute(Now), 60 - Second(Now))
    Label1.Caption = "现在是：" & Format(Now, "yyyy年mm月dd日 hh时mm分ss秒")
    Label4.Caption = "距离9月1号还有:　" & #9/1/2009# - Date & "天" & Format(dt, "hh小时mm分ss秒")
    
End Sub