Savoir si la date déterminée est un jour de Week-End

Commenter

Contenu du snippet 

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

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (mortalino)