在线等*** vb6如何判断两个日期间存在多少个星期六和星期日？

给你一个函数，第一个参数是开始日期，第二个参数是终止日期（注意：都是Date格式），返回值是间隔的周六或周日数。如果要测试，建一个Command1。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Function SatSunIn(StartDate As Date, EndDate As Date) As Long
Dim t As Date
For t = StartDate To EndDate
If Weekday(t) = vbSaturday Or Weekday(t) = vbSunday Then SatSunIn = SatSunIn + 1
Next
End Function
'以下是测试代码
Private Sub Command1_Click()
Print SatSunIn(#8/6/2008#, #8/10/2008#)
End Sub

v

我补充和修改一下楼上的

VB内置的Weekday函数就可以返回星期.

Weekday(date[, firstdayofweek])
-- date: 必要; Date类型; 要求的日期
-- firstdayofweek: 可选; vbDayOfWeek类型; 定义每周第一天(默认为星期天)

Weekday返回一个Integer, 代表每周第几天.
============================================
WeekdayName(weekday[, abbreviate][, firstdayofweek])
-- weekday: 必要; Long类型; 每周第几天
-- abbreviate: 可选; Boolean类型; 表示星期的名称是否被缩写(默认为False)
-- firstdayofweek: 可选; vbDayOfWeek类型; 定义每周第一天(默认为星期天)

WeekdayName返回一个String, 如"星