Discussion :

[cortex59]

Bonjour,

Je voudrais faire un fichier VBS. Donc j'ai pris notepad++ est j'ai ecrit :

Code :

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

1
2
3
Dim toto as Integer
toto = 10
MsgBox toto

je double clique sur le fichier est crack une erreur!
si j'enleve le Typage ca fonctionne. Mais le probleme c'est que part la suite je voudrais comparer des dates (donc besoin de typer mes variable).

Y a il une dll a mettre ou autre chose a faire?

Merci a tous pour vos reponse

[omen999]

bonjour,

vbscript est grosso modo un sous-ensemble du visual basic 6 et il ne gère qu'un seul type de variable, le type variant
mais comme en vb6, ce type comporte différents sous-types qui sont décrits dans la doc à télécharger
le transtypage est pour l'essentiel assuré automatiquement par le moteur du script mais il est également possible de forcer le cast au moyen de fonctions
également décrites dans la doc ou ici

[cortex59]

Re bonjour,

Je confond peut etre avec du VBA...

Mais comment comparer 2 dates que je declare comme ci dessous?
En effet, je cherche la plus ancienne.

Code :

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

1
2
3
date1 = "20/10/2001 13:48:59"
date2 = "20/10/2001 14:48:59"
date3 = "20/10/2001 11:48:59"

J'ai essaye avec les operateurs > < :

21/10/2010 16:26:10 < 20/10/2001 13:48:59 -> NOK

21/10/2010 16:26:24 < 21/10/2010 16:26:10 -> NOK

Merci pour vos reponses

[ProgElecT]

Une réponse suivant ta demande

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
date1 = "20/10/2001 13:48:59"
date2 = "20/10/2001 14:48:59"
date3 = "20/10/2001 11:48:59"
date4 = "20/10/2001 14:48:59"
 
if date1 < date2 then
    msgbox "date1 est plus petit que date2"
end if
 
if date1 > date2 then
    else
    msgbox "date1 n'est pas plus grand que date2"
end if
if date1 <> date3 then
    msgbox "date1 n'est pas egal à date3"
end if
if date2 = date4 then
    msgbox "date1 est date4 sont egaux"
end if

En allant plus loin, un code mémo personnel que j'ai sur mon DD

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
Dim Deb, Fin, Ecart
Dim Msg
 
Msg = "*-*-* Quelques manipulations sur les heures et les dates *-*-*" & VbCrlf & VbCrlf
 
'----------  manipulation sur les heures  ---------------------
Msg = Msg & "-- Manipulation sur les heures --" & VbCrlf
Deb = time
Msg = Msg & "Heure de l'instant [Time]:      " & Deb & VbCrlf
Fin = DateAdd("h", 1, Deb)'<== la formule
Msg = Msg & "Heure de l'instant + 1 heure [DateAdd(""h"", 1, Time)]:      " & Fin & VbCrlf
Fin = DateAdd("n", -5, Deb)'<== la formule
Msg = Msg & "Heure de l'instant - 5 minutes [DateAdd(""n"", -5, Time)]:      " & Fin & VbCrlf
''Si date1 est postérieure à date2, la fonction DateDiff renvoie un nombre négatif, on peu dans se cas utiliser la fonction abs()
'ecart entre 2 heures, resultat en minute
Ecart = abs(DateDiff("n", Fin, Deb))'<== la formule
Msg = Msg & "Ecart en minute [Ecart = abs(DateDiff(""n"", Fin, Deb))]:      " & Ecart & VbCrlf
'ou bien faire une conversion de minute en seconde
Ecart = DateDiff("s", "00:00:00", "00:05:35")'<== la formule
Msg = Msg & "Conversion de minute en seconde [DateDiff(""s"", ""00:00:00"", ""00:05:35"")]:      " & Ecart & VbCrlf
 
'----------  manipulation sur les dates  -----------------------
Msg = Msg & VbCrlf & "-- Manipulation sur les dates --" & VbCrlf
Deb = date
Msg = Msg & "Date du jour [Date]: " & Deb & VbCrlf
Fin = DateAdd("ww", 2, Deb)'<== la formule
Msg = Msg & "Date du jour + 2 semaines [DateAdd(""ww"", 2, Date)]: " & Fin & VbCrlf
Fin = DateAdd("m", -3, Deb)'<== la formule
Msg = Msg & "Date du jour - 3 mois [DateAdd(""m"", -3, Date)]: " & Fin & VbCrlf
Ecart = DatePart("WW",Date,vbFirstFullWeek)'<== la formule
Msg = Msg & "Nous sommes dans la: " & Ecart & "° semaine [DatePart(""WW"",Date,vbFirstFullWeek)]" & VbCrlf
Ecart = abs(DateDiff("h", Fin, Deb))'<== la formule
Msg = Msg & "Ecart en heure(s) entre le " & Deb & " et le " & Fin &  vbcrlf & "[abs(DateDiff(""h"", Fin, Deb))]:      " & Ecart & VbCrlf
 
'----------  manipulation sur les dates + Heures  -----------------------
Msg = Msg & VbCrlf & "-- Manipulation sur les dates + Heures --" & VbCrlf
Deb = Now
Msg = Msg & "Date et heure de l'instant [Now]: " & Deb & VbCrlf
Fin = DateAdd("d", 1, Deb)
Msg = Msg & "Date et heure de l'instant + 1 jour [DateAdd(""d"", 1, Deb)]: " & Fin & VbCrlf
msgbox Msg

Plus un lien pour avoir à disposition une aide sur ton DD pour comprendre en détail le dernier exemple.

[cortex59]

Merci a tous