Public Function IsWeekEnd(ByVal dMyDate As Date) As Boolean
If Weekday(dMyDate) = vbSunday Or Weekday(dMyDate) = vbSaturday Then
IsWeekEnd = True
End If
End Function
Private Sub Exemple_Utilisation()
Dim dMaDate As Date
dMaDate = #10/14/2006#
MsgBox IsWeekEnd(dMaDate)
End Sub