Trouver si la date est plus qu'une autre date

Je ne peux pas savoir pourquoi cette VB.net le code ne fonctionne pas..

Ce que je suis en train de faire est de if value1 > value2 puis affiche une boîte de message disant expiré le reste afficher une messagebox dit de ne pas expiré.

If "4-3-13 10:54:22" > "15-3-13 12:23:30" Then
    MsgBox("Expired")
Else
    MsgBox("Not Expired")
End If

chaque fois qu'elle vient de dire expiré, même en sachant qu'il ne devrait pas.

Quand j'ai changer de 15-3-13 12:23:30 à 1-3-13 12:23:30 il encore dire expiré.

Si je change mon code:

If "4-3-13 10:54:22" < "15-3-13 12:23:30" Then
    MsgBox("Not Expired")
Else
    MsgBox("Expired")
End If

Il renvoie toujours faux.

Comment puis-je faire en sorte que:

DATE1 = 4-3-13 10:54:22

DATE2 = 15-3-13 12:23:30


IF DATE1 > DATE2 THEN
   Expired
else
   Not Expired

Devrait revenir 'a Pas expiré'

Toute personne en mesure de les aider.. je ne peux pas travailler ?

OriginalL'auteur Aaron | 2013-03-04

6
```
"4-3-13 10:54:22" > "15-3-13 12:23:30" 
'This condition states that you are comaparring strings not date
```
Afin d'obtenir le résultat que vous avez prévu, faire comme ceci,
```
cdate("4-3-13 10:54:22") > cdate("15-3-13 12:23:30")
'Convert the strings into date and then compare it.
```
CDATE

N'utilisez pas de cdate sur les chaînes littérales, sauf si vous avez explicitement définir la culture. Sinon ça va lever une exception ou donner un mauvais résultat pour les gens dans les différents pays où leur ordinateur format de la date est différente.

OriginalL'auteur Rajaprabhu Aravindasamy
1

Ces jour constantes permettra également de faire comme vous l'attendez, et de ne pas être soumis à la langue lors de l'exécution du programme:
```
#3/4/2013 10:54:22# > #3/15/2013 12:23:30#
```
N'oubliez pas que vous devez utiliser le Format de Date pour les constantes.

OriginalL'auteur Mark Hurd

Essayez ceci:

dim date1 as DateTime = DateTime.ParseExact("4-3-13 10:54:22", "MM-dd-yy HH:mm:ss")

dim date2 as DateTime = DateTime.ParseExact("15-3-13 12:23:30", "MM-dd-yy HH:mm:ss")

if date1 > date2 then
MsgBox("Expired")
else
MsgBox("Not Expired")
end if

OriginalL'auteur Jomal

-1

Le code est ci-dessous:

If Today.Year - dExpiryDate.Value.Year = 0 Then
    If Today.Month - dExpiryDate.Value.Month < 0 Then
        LBExpiryDate.Text = "THE ID IS OK"
        LBExpiryDate.BackColor = Color.Green

    Else
        If Today.Month - dExpiryDate.Value.Month = 0 Then

            If Today.Day - dExpiryDate.Value.Day < 0 Then
                LBExpiryDate.Text = "THE ID IS OK"
                LBExpiryDate.BackColor = Color.Green
            Else
                LBExpiryDate.Text = "THE AGE IS EXPIRED "
                LBExpiryDate.BackColor = Color.Red
            End If
            Else
            LBExpiryDate.Text = "THE AGE IS EXPIRED "
            LBExpiryDate.BackColor = Color.Red

        End If
    End If
Else
    LBExpiryDate.Text = "THE AGE IS EXPIRED "
    LBExpiryDate.BackColor = Color.Red
End If
End If

Cela a de nombreux bugs et est inutilement complexe. Par exemple, on va dire "expiré" si l'année avant l'expiration de l'année. Vous pouvez simplement comparer les objets DateTime directement au lieu de les diviser en jour, mois, année.

OriginalL'auteur faleh

Vous devez vous connecter pour publier un commentaire.

CDATE