Récupéré le mois avec année et numéro de semaine

Question

Bonjour, je cherche un moyen de récupéré le nom d'un mois à partir de l'année et du numéro de semaine(en visual basic 6).

En respectant la regle des 4 premier jour un du lundi,, au choix...

Quelque manipulation de ce genre me serait égallement utile.
Genre récupéré le numéro du lundi d'une semaine sélectionner,savoir a partir du numéro de jour et de l'année dans quel mois ou quel semaine on est.

A noter que l'équialent excel pourait faire l'affaire égallement

Merci d'avance

Gobillot · Answer

Private Sub Command1_Click()

    Dim dt    As Date

    Dim j     As Integer

    Dim s     As Integer

    Dim jour  As Integer

    Dim mois  As Integer

    Dim an    As Integer

    

'connaissant l'ann&#233;e et le jour dans l'ann&#233;e

    j = 365

    an = 2005

    dt = DateSerial(an, 1, j)

    MsgBox Format$(dt, "dddddd", vbMonday)



'connaissant l'ann&#233;e et la semaine dans l'ann&#233;e

    s = 28

    an = 2005

    dt = DateSerial(an, 1, 1)

    dt = DateSerial(an, 1, s * 7 - 6) - Val(Format$(dt, "w", vbUseSystemDayOfWeek))

    MsgBox Format$(dt, "dddddd", vbMonday)

    

End Sub


Daniel

Récupéré le mois avec année et numéro de semaine

1 réponse

Discussions similaires