Lecture d'une date en string et comparaison avec la date actuelle

**Superzest 76** · 24/09/2018, 17h37

Bonjour,
Alors voila une nouvel question pour la suite de mon petit programme (Topic précédant ICI)
Donc mon problème ici est que je cherche a comparer des date stocker sur une base de donné .CVS a la date actuelle
alors voila mon code pour le moment

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
21
22
23
24
25
26
27
28
29
30
31
'----Verification de la citerne
Dim ImaCITERNE
Dim fso, fichier, T,recherche
Dim ContenuFichier, TblLgn, TblCol
Dim CarteG,ADR,code,destinataire,IDs,etancheite
     '---Ouverture du fichier.csv
     Set fso = CreateObject("Scripting.FileSystemObject")
    Set fichier = fso.opentextfile("C:\Users\PRODERGIE\Documents\InTouch Machine Edition v8.1 Projects\Vitogaz\Donné.csv", 1)
    ContenuFichier = fichier.ReadAll
    fichier.Close
    Set fichier = Nothing
    '---Lecture et recherche de l'imat
    recherche = $GetTagValue("imatriculation_citerne",1)
    TblLgn = Split(ContenuFichier,vbNewline)
    For T = 0 To UBound(TblLgn) - 1
        TblCol = Split(TblLgn(T), ";", -1, vbTextCompare) 
        If TblCol(0) = recherche Then
            carteG = TblCol(1)
            ADR = TblCol(2)
            epreuve = Tblecole(3)
            etencheite = Tblecol(4)
            Ids = Tblecol(5)
        End If
    Next
'---Verification de la citerne
 
If  Ids<> "2" Then
'--- Comparaison de la date  pour la CarteG ADR epreuve et etencheite si ID =2
Else
    MsgBox("L'Imatriclation de votre citerne est incorecte ou abstante de notre base de donné")
End If

Voila le fichier contenant les infos

Donné.txt

Merci d'avance

**ProgElecT** · 24/09/2018, 17h48

Salut
C'est quoi $GetTagValue ?
Dans ton fichier on ne voit pas de imatriculation_citerne, objet de ta recherche non.
Pour la question, comparer des dates:

Code :

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

1
2
3
4
' ................
			Ids = Cdate(Tblecol(5)) ' forcer le typage en date
' .....................			
If Ids <> date Then

date retourne la date du jours en cours.

**Superzest 76** · 25/09/2018, 08h25

Salut merci encore pour ton aide ! Les $gettagvalue font office de fonction READ pour un tag de mon projet
je développe en fait une sorte d’appli pour gérer les entrées et les sorties de du personnel .

**ProgElecT** · 25/09/2018, 08h42

Salut

Ok pour $GetTagValue.
Pour If Ids <> date Then, c'est bon?

Si oui, il faut penser au bouton

**Superzest 76** · 25/09/2018, 08h53

Oui c'est bon merci beaucoup ^^
Peut etre a plus tard dans un futur topic

**Superzest 76** · 25/09/2018, 11h54

Oups je viens de me rendre compte que le prgrame me renvois l'erreur suivante :
Visualisation: Erreur Runtime => screen/gros-vrac.scc : ID Objet = 7 : Type incompatible: 'CDate' (-2146828275).
j'ai modifier mon .CSV pour que les date sois du type MM/DD/AAAA mais rien a faire
Merci d'avence

**ProgElecT** · 25/09/2018, 12h13

Re

Pour debug, essais cela

Code :

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

1
2
3
4
5
6
            Ids = Tblecol(5)
            If IsDate(Ids) Then
                msgbox "Ids est bien une date, Valeur: "  & Cdate(Ids)
                Else
                msgbox "Ids n'est pas une date, son type est: "  & TypeName(Ids) & vbnewline & "sa valeur est: " & Ids
            End If

**Superzest 76** · 25/09/2018, 13h54

Non ca ne marche pas :'(
je pose ici la version plus evoluer de mon script

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
'----Verification de la citerne
Dim ImaCITERNE,imaTracteur
Dim fso, fichier, T,recherche
Dim ContenuFichier, TblLgn, TblCol
Dim CarteG,ADR,code,destinataire,IDs,etancheite
Dim x,verifi
 	'---Ouverture du fichier.csv
 	Set fso = CreateObject("Scripting.FileSystemObject")
	Set fichier = fso.opentextfile("C:\Users\PRODERGIE\Documents\InTouch Machine Edition v8.1 Projects\Vitogaz\Donné.txt", 1)
	ContenuFichier = fichier.ReadAll
	fichier.Close
	Set fichier = Nothing
	'---Lecture et recherche de l'imat
	verifi =0
	For x=0 To x=1
	If x=0 Then
		recherche = $GetTagValue("imatriculation_tracteur",1)
	Else
		recherhe =$GetTagValue("imatriculation_citerne",1)
	End If
	TblLgn = Split(ContenuFichier,vbNewLine)
	For T = 0 To UBound(TblLgn) - 1
		TblCol = Split(TblLgn(T), ";", -1, vbTextCompare) 
		If TblCol(0) = recherche Then
			carteG = CDate(TblCol(1))
			ADR = CDate(TblCol(2))
			epreuve = CDate(TblCol(3))
			code = TblCol(3)
			etencheite = CDate(TblCol(4))
			destinataire = TblCol(4)
			Ids = TblCol(5)
		End If
	Next
'---Verification de la citerne
	If x=0 Then 
		If ids = "1" Then
			If carteG <= Date Then
				If ADR <= Date Then
					verifi = verifi+1
			 	End If
		 	End If
		Else 
			MsgBox("L'Imatriclation de votre tracteur est incorecte ou abstante de notre base de donné")
		End If
'--- Comparaison de la date  pour la CarteG ADR epreuve et etencheite si ID =2
	Else
		If  Ids = "2" Then
			If carteG <= Date Then
				If ADR <= Date Then
					If epreuve <= Date Then
						If etencheite <= Date Then
							verifi = verifi+1
						End If
					End If
				End If
			End If
		Else
			MsgBox("L'Imatriclation de votre citerne est incorecte ou abstante de notre base de donné")
		End If
	End If
	Next
	If verifi =2 Then
		$Open("Dechargement.SCC")
	Else
		MsgBox("Vos autorisation ne sont pas a jour.")
	End If

Je n'arrive pas a voir mon erreur

d’avance !

PS: ne m'en voulez pas trop pour les fautes je suis dyslexique

**ProgElecT** · 25/09/2018, 14h25

Re

A moins que Ids = TblCol(5) ne soit jamais une date,
essais en mettant ce code entre tes lignes 31 Ids = TblCol(5) et 32 End If.

Code :

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

1
2
3
4
5
            If IsDate(Ids) Then
                msgbox "Ids est bien une date, Valeur: "  & Cdate(Ids)
                Else
                msgbox "Ids n'est pas une date, son type est: "  & TypeName(Ids) & vbnewline & "sa valeur est: " & Ids
            End If

que donne le MsgBox ?

Je reste sur cette discussion et attend ta réponse

**Superzest 76** · 25/09/2018, 14h36

alors quand je met les ligne 25 a 30 en commentaire ta msg box me renvoie bien la date mais lorsque je remet les ligne de commande mon programe arrete de s’exécuter je continue mon enquette je pense savoir d’où vien l'erreur et je te redis quand j'ai trouver

Merci

**ProgElecT** · 25/09/2018, 14h42

Je viens de relire toute la discussion, Ids n'est jamais une date

(code post N°1)
Donc c'est a quelle ligne que ce produit l'erreur ?
Avec IsDate(date a verifier), tu peux gérer avant que l'erreur ce produise pour chaque champs attendu comme étant une date, tu testes

Code :

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

1
2
3
4
If not IsDate(Champs N°?) then
     Msgbox "Problème récupération date dans la BDs"
     Exit Sub
End If

**Superzest 76** · 25/09/2018, 14h43

Salut alors oui IDs ne sera jamais une date en fait c'est un chifre qui me serre a séparer les tracteurs des citerne et des petit transporteurs

**Superzest 76** · 25/09/2018, 14h51

j'ai trouver c'est de ma faute

lorsque je verifie pour les tracteurs j’essaie d'enregistrer 598V en date

je suis un

j'ai juste a rajouter deux trois if pour vérifier si on doit avoir une date ou pas a se moment la et peut être vérifier l'ID avant d'enregistrer les date dans le tableau pour éviter de faire crasher le programe si l'utilisateur tape la mauvaise imat ! merci beaucoup !! et vraiment dessoler pour la perte de temps

**Superzest 76** · 25/09/2018, 14h57

Voila deja plus d'erreur de variable ou quoi voila mon code pour le moment :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
'----Verification de la citerne
Dim ImaCITERNE,imaTracteur
Dim fso, fichier, T,recherche
Dim ContenuFichier, TblLgn, TblCol
Dim CarteG,ADR,code,destinataire,IDs,etancheite
Dim x,verifi
 	'---Ouverture du fichier.csv
 	Set fso = CreateObject("Scripting.FileSystemObject")
	Set fichier = fso.opentextfile("C:\Users\PRODERGIE\Documents\InTouch Machine Edition v8.1 Projects\Vitogaz\Donné.txt", 1)
	ContenuFichier = fichier.ReadAll
	fichier.Close
	Set fichier = Nothing
	'---Lecture et recherche de l'imat
	verifi =0
	For x=0 To x=1
	If x=0 Then
		recherche = $GetTagValue("imatriculation_tracteur",1)
	Else
		recherhe =$GetTagValue("imatriculation_citerne",1)
	End If
	TblLgn = Split(ContenuFichier,vbNewLine)
	For T = 0 To UBound(TblLgn) - 1
		TblCol = Split(TblLgn(T), ";", -1, vbTextCompare) 
		If TblCol(0) = recherche Then
			Ids = CDate(TblCol(5))
			carteG = CDate(TblCol(1))
		 	ADR = CDate(TblCol(2))
		 	If x = 1 Then
		 		If ids =2 Then
					epreuve = CDate(TblCol(3))
					etencheite = CDate(TblCol(4))
				Else 
					MsgBox("L'Imatriclation de votre citerne est incorecte ou abstante de notre base de donné")
				End If
			Else 
				code = TblCol(3)
				destinataire = TblCol(4)
			End If
		End If
	Next
'---Verification de la citerne
	If x=0 Then 
		If ids = "1" Then
			If carteG <= Date Then
				If ADR <= Date Then
					verifi = verifi+1
			 	End If
		 	End If
		Else 
			MsgBox("L'Imatriclation de votre tracteur est incorecte ou abstante de notre base de donné")
		End If
'--- Comparaison de la date  pour la CarteG ADR epreuve et etencheite si ID =2
	Else
		If  Ids = "2" Then
			If carteG <= Date Then
				If ADR <= Date Then
					If epreuve <= Date Then
						If etencheite <= Date Then
							verifi = verifi+1
						End If
					End If
				End If
			End If
		Else
			MsgBox("L'Imatriclation de votre citerne est incorecte ou abstante de notre base de donné")
		End If
	End If
	Next
	If verifi =2 Then
		$Open("Dechargement.SCC")
	Else
		MsgBox("Vos autorisation ne sont pas a jour.")
	End If