Bonsoir à tous,
Bonsoir imparator_42,

mohax007 ne s'étant pas connecté sur ce forum depuis 2005, il serait préférable d'ouvrir un post dans le thème approprié "Thèmes / Visual Basic 6 / Langages dérivés / VBScript "

>>> Vous voudrez pas nous donner en form de zip ?
>>> parce que la, il me cause des problème .. .

Quel(s) problème(s) rencontrez-vous ???

Bonjour PCPT,
Je corrige:
- replace split par array
- suppresion du datefin dans exemple5
- suppression du numéro d'exemple
- nombre d'exemples
et commentaires.
J'ai posté trop vite !!!
Sur le principe, la fonction est ok.
Par contre, j'aimerais bien éviter le -22 dans
FormatDateTime(TimeSerial(Hour(DateFin) - 22, Minute(DateFin), 0),vbShortTime)

Bonsoir PCPT,
Je vais regarder pour mettre les variables dans un tableau ou un dictionnaire,
et rajouter quelques commentaires.
Est-ce que vb6 "possède" l'objet "Scripting.Dictionary" ?

Bonjour,

Pour de simples calculs, autant utiliser la fonction Eval.

var1 = 100
var2 = 2
var3 = "150*2"
var4 = "200/3"
op1 = "+"
op2 = "-"
op3 = "/"
op4 = "*"
MsgBox Eval(var1 & op1 & var2) &vbCrLf& _
       Eval(var1 & op2 & var2) &vbCrLf& _
       Eval(var1 & op3 & var2) &vbCrLf& _
       Eval(var1 & op4 & var2) &vbCrLf& _
       Eval(var3) &vbCrLf& Round(Eval(var4),2)

jean-marc

Bonsoir à tous,

Bonsoir "Raphou96"  et "perlon",

L'auteur de cette source (mohax007) n'ayant pas visité ce forum depuis le 12/08/2005,
pouvez-vous ouvrir un topic dans la rubrique
"Thèmes  / Visual Basic 6 / Langages dérivés / VBScript".
Ceci afin de ne pas "polluer" les sources et ainsi de faire "vivre" ce magnifique forum.
Réponses garanties !!!

jean-marc

Bonjour,
ce lien devrait répondre à votre question:
http://aidetse.free.fr/forum/viewtopic.php?pid=557

Si non, n'hésiter pas à poser une question (avec précisions OS ...) sur ce forum [thème: vb.net ou vb6 + vbscript].

Bonjour,

Où en est-tu de ce projet ????
Je fais tjrs du VBS.

Result = WshShell.Popup("Votre dpart la retraite tant prvu le " & jj & " " & Left(xDate,2) & " " & mm & " " & Right(xDate,4) & " " & vbcrlf & vbcrlf & "Il ne vous reste plus que ........" & vbcrlf & vbcrlf & " " & DateDiff("d", Now, xDate) & " jours ........ avant de partir la pche !!!!!", 30, "Dcompte de la retraite")

me rammène à quelques années en arrière, quand je débutais en VBS (ma seule source à ce jour!).

jean-marc

Superbe code. Je ne connaissais pas l'interface graphique.
Question: Où trouver une doc pour cette interface ???.
En l'adaptant, on peux faire de jolies présentations visuelles.
jeanmarc

Je viens de mettre un zip. Hélas, je voulais mettre une doc sur VBS, mais ce fichier est trop gros.