durée entre deux date

Version imprimable

Bonjour

Le code suivant m'affiche l’erreur suivante;

Citation:

l'opérateur '&' n'est pas défini pour les types 'string' et 'Timespan'

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim datea As String = Me.mdaterep.Text
        Dim date1 As Date = Date.Parse(datea)
        Dim dater As String = Me.datea.Text
        Dim date2 As Date = Date.Parse(dater)
        Dim durée = date1.Date - date2.Date
 
        Dim myConnection As New OdbcConnection("DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=pfe2012;USER=root;PASSWORD=1;OPTION=3")
        Dim myCommand As New OdbcCommand("UPDATE arret SET Datereprise ='" & mdaterep.Text & "', Heurereprise = '" & mheurerep.Text & "' duree= '" & durée & "', EtatD_arret='ok' Where Num = '" & NAU & "'", myConnection)
 
 
        myCommand.Connection.Open()
        myCommand.ExecuteNonQuery()

merci pour votre aide!!

17/06/2012, 14h04
hunteshiva

Bonjour,

en tapant vite fait sur google:
V-AB-12. Calcul de la différence entre deux dates

Et un petit lien pour comprendre la fonction DateDiff:
DateDiff, fonction (Visual Basic)

Bon courage pour la suite ;)
17/06/2012, 14h45
Alfred86

Citation:

Envoyé par hunteshiva

Bonjour,

en tapant vite fait sur google:
V-AB-12. Calcul de la différence entre deux dates

Et un petit lien pour comprendre la fonction DateDiff:
DateDiff, fonction (Visual Basic)

Bon courage pour la suite ;)

merci mais je suis débutant j'ai pas compris comment utiliser ses bouts de code

:aie:
bon imaginons que tu veux la différence en heures, en jours ou en semaines :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
' Récupération des dates depuis les TextBox
Dim datea As String = Me.mdaterep.Text
Dim dater As String = Me.datea.Text
 
' Conversion des dates au format "DateTime"
Dim date1 As DateTime = CDate(datea) 
Dim date2 As DateTime = CDate(dater)
 
' Calcul des Différences entre les dates
Dim wH As Long = DateDiff(DateInterval.Hour, date1 , date2 ) ' En heures
Dim wD As Long = DateDiff(DateInterval.Day, date1 , date2 ) ' En jours
Dim wW As Long = DateDiff(DateInterval.Weekday, date1 , date2 ) ' En semaines

Voila, il ne te reste plus qu'a jouer avec les variables "wH", "wD" et "wW" pour connaitre la différence entre tes dates :mrgreen:

17/06/2012, 15h35
hunteshiva
Mias au vue de ton message d'erreur, ce que je t'ai dit ne servira sans doute a rien. :aie:

l'erreur

Citation:

l'opérateur '&' n'est pas défini pour les types 'string' et 'Timespan'

a l'air de venir d'ici:

Code:

Dim myCommand As New OdbcCommand("UPDATE arret SET Datereprise ='" & mdaterep.Text & "', Heurereprise = '" & mheurerep.Text & "' duree= '" & durée & "', EtatD_arret='ok' Where Num = '" & NAU & "'", myConnection)

Double erreur a mes yeux sur cette ligne:

Code:

Dim durée
1. Tu ne défini pas le type de te variable
2. Tu met un 'é' dans le nom de ta variable !!!!!! :fessee:
Donc a mon avis, il défnit le type comme 'TimeStamp' et refuse la concaténation de ta requete 8O

essaye un

Code:

durée.string

voir si ça passe,
mais c'est pas beau comme code :oops:
17/06/2012, 17h40
Alfred86

Merci hunteshiva sa marche c'est parfait :D
17/06/2012, 21h03
hunteshiva

de rien ;)
mais pose ta solution, dit nous ce qui t'a débloqué.