Contrôle sur une date

Version imprimable

04/06/2007, 10h31
loverdev

Contrôle sur une date
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:

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

Code:

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

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:

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

04/06/2007, 13h43
oyigit

Une date nullable

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

Code:

private DateTime? maDate
04/06/2007, 13h54
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.:roll:

Voici ce que j'ai fait :

Code:

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:

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?