怎么把日期选择控件的星期几改为只要星期几后面的数字?如题。把日期选择框(MonthView)的星期几去掉星期二字
怎么把日期选择控件的星期几改为只要星期几后面的数字?
如题。把日期选择框(MonthView)的星期几去掉星期二字。
例如:
星期日 星期一 星期二 ……
改为:
日 一 二 ……
否则按照前面的格式,日期选择框显示的太大了。
[解决办法]
我这里没有“星期”俩字啊
[解决办法]
[解决办法]
Option Explicit
Dim aa$
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
aa = MonthView1.Year & "/" & MonthView1.Month & "/" & MonthView1.Day
'MsgBox WeekdayName(Weekday(aa))
MsgBox Right(WeekdayName(Weekday(aa)), 1)
End Sub
