Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 551
Nombre de snippets : 1692
Connexion

Trouver le dernier week end pour un mois et une année donnés

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 12/10/2006 09:58:10 et initié par malalam [Liste]
Date de mise à jour : 15/10/2006 04:19:05
Vue : 7707
Catégorie(s) : Date & Heure
Langages dispo pour ce code :
- PHP 4, PHP 5
- Windev
- VB6, VBA
- Voir tous les langages pour ce code snippet
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 15/10/2006
Posté par PCPT [Liste]
DateMAJ : 15/10/2006 
Function GetLastFullWeekEnd(Optional ByVal dDate As Variant) As Date
    If IsMissing(dDate) Then dDate = Date
    If VarType(dDate) <> vbDate Then Err.Raise vbDate, "GetLastWeekEnd", "Paramètre invalide"
    GetLastFullWeekEnd = DateSerial(Year(dDate), Month(dDate) + 1, 0) - 1
    
    While Weekday(GetLastFullWeekEnd, vbMonday) <> 6
        GetLastFullWeekEnd = GetLastFullWeekEnd - 1
    Wend
End Function

' EXEMPLE  D'UTILISATION
Private Sub Form_Load()
    MsgBox "AVRIL 2005 -> samedi  " & GetLastFullWeekEnd(#4/1/2005#)
    MsgBox "FéVRIER 2006 -> samedi  " & GetLastFullWeekEnd(#2/1/2006#)
    MsgBox "CE MOIS-CI -> samedi  " & GetLastFullWeekEnd
    Unload Me
End Sub
Remarque :
ATTENTION : ici on cherche le dernier samedi du mois suivi d'un dimanche ; week-end complet dont les 2 jours sont consécutifs...

Snippets en rapport avec : Mois, Date, Dernier, Weekend, Samedi

19/07/2008 - nombre d'années(age)

19/07/2008 - nom de la saison d'une date

16/04/2008 - Récupérer le nom du fichier le plus récent

01/09/2007 - Contrôle si Date Invalide [CDI]

02/07/2007 - Récupérer le numéro du mois à partir de son nom

29/03/2007 - Obtenir le dernier jour de la semaine

16/11/2006 - Convertit en jours / heures / minutes le temps entre 2 dates & heures

30/10/2006 - Déterminer le jour de la semaine d'une date

15/10/2006 - Savoir si la date déterminée est un jour de Week-End

21/07/2006 - Trouver le prochain jour ouvrable, à partir d'une date, et selon un delta en jours



Codes sources en rapport avec : Mois, Date, Dernier, Weekend, Samedi

{SQL} DERNIER JOUR DU MOIS, OU DE LA SEMAINE
J'ai mis ces fonctions toujour utiles dans CODIX (les snippets) mais l'un est faut et on peut pas le...

{Visual Basic, VB6, VB.NET, VB 2005} CALENDRIER SOUS VBA (EXCEL)
Ce code permet de sélectionner une date dans un calendrier Le nombre de jour par mois et défini Le...

{Delphi} GESTION DE CALENDRIER DYNAMIQUE
Dans n'importe quelle application de gestion vous avez besoin d'un calendrier d'activité. Et bien c...

{SQL} SQL SERVER - OBTENIR LA DATE DU DERNIER JOUR DU MOIS (GET LAST DAY OF MONTH).
UDF "GetLastDayOfMonth" pour obtenir la date du dernier jour du mois avec ou sans gestion de l'heure...

{Delphi} GETYMDBETWEEN() - DIFFÉRENCE ENTRE 2 DATES (ANNÉES, MOIS, JOURS)
Calcule la différence entre deux dates au format TDateTime. Différence comptée en Ans, Jours, Mois....

{PHP} CALENDRIER - FLOPTWO
Calendrier - floptwo : Il s'agit d'un script qui réalise un calendrierà partir de la date du jour. ...

{Visual Basic, VB6, VB.NET, VB 2005} VBA EXCEL TRANSFORME UNE DATE ENREGISTRÉE AU FORMAT ANGLAIS (BOGUE D'INVERSION MOIS / JOUR)
A ma grande surprise, je constate qu'il existe encore des fichiers Excel contenant l'anomalie liée a...

{PHP} DIFFÉRENCE ENTRE DEUX DATE (LISTE RÉCUPÉRÉE DANS UN TABLEAU)
Salut les codeurs fou ! Je développe actuellement une petite appli pour faire mes comptes, et j'en ...

{Delphi} CALCULER LE NOMBRE DE JOURS ENTRE DEUX DATES EN EXCLUANT LES WEEK END
Ce code permet juste de calculer le nombre de jours total, sans les week end et le nombre de samedi ...

{Javascript / DHTML} LA DATE TOUTE SIMPLE.
Il permet de mettre sur votre site la date sans pub....