首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

获得一年中的所有日期以及周末,该如何解决

2012-01-28 
获得一年中的所有日期以及周末我现在知道年份和月份,比如2006年,5月我要做的事是向EXCEL的某一行填写以下

获得一年中的所有日期以及周末
我现在知道年份和月份,比如2006年,5月

我要做的事是向EXCEL的某一行填写以下内容:

2006年5月至年底所有的日期,凡遇到周六和周日,则要修改相应的CEll颜色
(不同的年份2月的日期还不同)
我应该怎么做呢,有没有一些有用的方法,无从下手,请大家帮帮忙啊

[解决办法]
Private Sub Command1_Click()
Dim dd As Date
dd = CDate( "2006-05-01 ")
Do While (Year(dd) = "2006 ")
If Weekday(dd, vbMonday) = 6 Or Weekday(dd, vbMonday) = 7 Then
Debug.Print dd; "(周末) "
Else
Debug.Print dd
End If
dd = DateAdd( "d ", 1, dd)
Loop
End Sub

热点排行