Discussion :

[loverdev]

Salut, je veux contrôler la date de signature d'un avenant par rapport a la date du système. Si la date de signature de l'avenant est supérieure à la date du système, un msg s'affiche "La date de signature de l'avenant doit être inférieure à la date du système". Comment faire?

Code :

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

1
2
3
4
5
 
If Date.Compare(Date.Today, Dates.Value) Then
            MsgBox("La date de signature de l'avenant doit être postérieure à la date système")
            Exit Sub
        End If

[HULK]

Code :

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

1
2
3
4
 
Comparaison de DateTime
 
On utilise Compare: DateTime.Compare(t1, t2) retourne 0 si t1=t2, une valeur positive si t1>t2 négative si t1<t2.

http://plasserre.developpez.com/v4-5.htm

[loverdev]

Est ce que quelqu'un sait comment faire pour :
- si la date de signature est égale à la date du système alors lors de l'insertion le champ date prend " " sinon le champ date prend la valeur saisie.
- si la date de signature est > à la date fin de l'abonnement alors un msg apparaît "La date de signature doit être inférieure à la date fin de l'abonnement".

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
If command.Parameters("@dates").Value = Date.Today Then
            command.Parameters("@dates").Value = ""
        Else
            command.Parameters.Add(New OleDbParameter("@dates", OleDbType.Date))
            command.Parameters("@dates").Value = CType(Dates.Text, Date)
        End If
        If DateTime.Compare(Datef.Text, Date.Today) Then
            MsgBox("La date de signature de l'abonnement doit être inférieure à la date fin")
            Exit Sub
        End If

[oyigit]

Tu devrais peut être essayer de passer par une DateTime nullable.

Code :

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

private DateTime? maDate

[loverdev]

Est ce que vous pouvez m'expliquer d'avantage comment faire car je suis une débutante et j'essaye d'apprendre ce langage.

[loverdev]

Voici ce que j'ai fait :

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
 
If Val(Dates.Value) = Val(Date.Today) Then
            command.Parameters("@dates").Value = ""
        Else
            command.Parameters.Add(New OleDbParameter("@dates", OleDbType.Date))
            command.Parameters("@dates").Value = CType(Dates.Text, Date)
        End If
        If Val(Dates.Value) > Val(Datef.Text) Then
            MsgBox("La date de signature de l'abonnement doit être inférieure à la date fin")
            Exit Sub
        End If
        If Val(Datef.Value) = Val(Date.Today) Then
            command.Parameters("@datef").Value = ""
        Else
            command.Parameters.Add(New OleDbParameter("@datef", OleDbType.Date))
            command.Parameters("@datef").Value = CType(Datef.Text, Date)
        End If

tout va bien sauf qu'il me met un msg d'erreur au niveau de cette ligne de code :

Code :

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

1
2
 
command.Parameters("@datef").Value = ""

A ce niveau je veux que lorsque l'on ne choisit pas une date a travers le datetimepicker (par défaut il y a la date du système), lors de l'insertion des données dans la table il prend une chaine vide. Alors comment faire?