Discussion :

[badr007]

Bonjour tout le monde

je suis en train de travailler sur une application en vb.net et je suis dans le besoin de travailler avec les semaines et les mois , je m'explique:

Quand l'utilisateur choisie par exemple comme date "Lundi 23 aout 2010" je dois savoir de quelle semaine et mois s'agit-il (semaine 1, semaine 2....., mois 1, mois 2,mois 3.......... ) sachant que :

• la semaine : commence le samedi de la semaine précédente et s'achève le vendredi de la semaine actuelle.
• le mois : commence le dernier samedi du mois précédent et s'achève le dernier vendredi du mois actuel.

la première semaine est : Samedi 2 janvier 2010 (semaine 1)

le premier mois est : samedi 26 décembre 2009 ==> vendredi 29 janvier 2010


Merci pour votre aide

[chrismonoye]

bonsoir,
voici un début de réflexion, avec un "TextBox1" pour la saisie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
    Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
        'avant tout, gérer les exceptions.
        TextBox1.Text = Format(CDate(TextBox1.Text), "Long date")
        MessageBox.Show(CStr(NumSemaine(CDate(TextBox1.Text), FirstDayOfWeek.Wednesday)) & "'" & _
                        CStr(NumMois(CDate(TextBox1.Text), FirstDayOfWeek.Wednesday)))
 
    End Sub
 
    Public Function NumSemaine(ByVal dat As Date, ByVal DayOfWeek As FirstDayOfWeek) As Integer
 
        If IsDate(dat) Then
            Dim semaine As Integer
            semaine = DatePart(DateInterval.WeekOfYear, dat, DayOfWeek)
            Return semaine
        End If
        Return Nothing
 
    End Function
 
    Public Function NumMois(ByVal dat As Date, ByVal DayOfWeek As FirstDayOfWeek) As Integer
 
        If IsDate(dat) Then
            Dim mois As Integer
            mois = DatePart(DateInterval.Month, dat, DayOfWeek)
            Return mois
        End If
        Return Nothing
 
    End Function