[jours d'une semaine] en visual basic
Résolu
Utilisateur anonyme
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- [jours d'une semaine] en visual basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Compte facebook suspendu 180 jours - Guide
- Visual petanque - Télécharger - Sport
- Compte instagram suspendu 180 jours - Guide
3 réponses
bonjour,
J'ai trouvé ça sur : https://vb.developpez.com/faq/?page=Dates , ça peut t'aider.
Par exemple, InvDatePart(3, 10, 2004) vous renvoie la date correspondant au troisième jour de la dixième semaine de l'année 2004.
;o)
polux
J'ai trouvé ça sur : https://vb.developpez.com/faq/?page=Dates , ça peut t'aider.
Public Function InvDatePart(ByVal PosJour As Integer, ByVal NumSemaine As Integer, ByVal Annee As Integer) As Date
Dim tmpDate As Date
tmpDate = CDate("1/1/" & Format$(Annee))
If Weekday(tmpDate, vbMonday) < 6 Then NumSemaine = NumSemaine - 1
tmpDate = DateAdd("ww", NumSemaine, tmpDate)
tmpDate = DateAdd("d", PosJour - Weekday(tmpDate, vbMonday), tmpDate)
InvDatePart = tmpDate
End Function
Par exemple, InvDatePart(3, 10, 2004) vous renvoie la date correspondant au troisième jour de la dixième semaine de l'année 2004.
;o)
polux