Discussion :

[Neymo]

Bonjour,

Je voulais savoir comment avoir la différence entre deux dates..

premiere : DateTime.Now

l'autre un date en format "string"

J'ai essayé comme çA :

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
 
 
        Dim date1 = DateTime.Now.ToString
 
        date2 = date2.ToString("dd MM yyyy")
 
        Dim date_dif As Integer
 
 
        date_dif = DateTime.Compare(DateTime.Parse(date2), DateTime.Parse(date1))
 
        If date_dif > 24 Then
            Return True
        Else
            Return False
        End If

mais ça marche pas..

[mafyoso]

Bonjour

Je sais pas trop mais je pense que ça vient du fait qu'une de tes dates est un type string .

Voilà peut etre une solution:

Code :

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

1
2
3
4
5
6
7
 
 
dim date2 as string="06/02/2007"
 
dim date_Diff as integer=0
 
date_dif = Date.Compare(Date.now(),cdate(date2))

Un petit truc, c'est peut etre pénible , mais pense a tes closes "As" ça t'évitera des avertissements à la compilation

A bientôt

[Neymo]

Bon,

Alors après quelques essais.. la fonction me retourne "0" si c'est la meme date .. sinon "1"

en gros .. ça me donne pas du tout la différence.. ^^

[Sebol691]

Salut

Tes dates doivent être sous le format américain (annee-mois-jour)
$date1 = Ta date la plus grande
$date2 = Ta date la plus petite

$d1 = expolde("-";$date1);
$d2 = expolde("-";$date2);

$dateDiff = mktime(0,0,0,$d1[1],$d1[2],$d1[0]) - mktime(0,0,0,$d2[1],$d2[2],$d2[0]);

Tu as ta différence dans la variable $DateDiff.

Salutations

[Sebol691]

Moi c'est du PHP... Je ne sais pas si ça te convient!!

[Neymo]

Moi c'est du PHP... Je ne sais pas si ça te convient!!

ben c cool.. mais ça va pas servir des masses...


en attendant j'ai trouvé quelque chose qui me convient presque ..

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
 
Function CompareDate(ByVal date2 As String) As Boolean
 
 
 
 
        Dim date_diff As Integer = 0
 
        date_diff = DateDiff("d", Date.Now(), date2)
 
        If date_diff > 2 Then
            Return True
 
        Else : Return False
        End If
 
        ' Return date_diff
 
 
    End Function

le seul léger bémol .. c'est que j'aimerais avoir la différence en heure... et que ma deuxième date est "separéé" .. une partie pour le dd/mm/yy et l'autre au ya "hh:mm" .. ya plus qu'a trouvé comment les rappondre..

si quelqu un a une idée..

[mafyoso]

Si tu recolle les 2 chaînes, le format obtenu n'est il pas un format date valide ?

Code :

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

1
2
3
4
5
6
7
 
dim sDate as string="12/02/2007"
dim sHeure as string="08:32:52"
dim oDate as new Date
if Date.TryParse(sDate +sHeure )then
       Date.Parse(sDate +sHeure )
end if

A bientôt

PS:Jette un coup d'oeil à la définition de la classe Date sur la msdn sinon