demmarer un programme a une date precise

Question

Bonjour tt le monde,
Je debute en VB, et je cherche a lancer une appli a une date donné.

J'ai essayé la condition :

if date = 16032004  Then 
...

ca ne fonctionne pas!

vraiment rooky ..

merci

cs_labout · Answer

labout
Prends les taches planifiées de Windows
Accessoires
Outils systems
Taches planifiées

@+

Tilois · Answer

La date n'est pas codé comme un entier
C'est un string du type "16/03/2004", donc c'est normal que cela ne fonctionne pas

Oeil_de_taupe · Answer

La taupe voit toujours tout

Oui, mais mon programme devra s'installer tout seul sur l'ordinateur, et se lancera à chaque démmarage

cs_inux · Answer

merci Tilois pour l'info...
Faut la mettre comment en forme ?

cs_inux · Answer

Re tt le monde!

Je viens d'essayer  cela:

Private Sub Form_Load()

If Day(Date) = 17 Then

texte$ = "ok"
MsgBox texte$

End If
End Sub

Comment faire pour kil boucle?

J'ai bien essayé de mettre do et loop, mais j'ai une erreur!

cmoapierre · Answer

a la fin de ta procedure tu mé form_load
et ca doit etre bon

cs_inux · Answer

erf, je ne vois pas ou je dois mettre form_load... :(

BruNews · Answer

Tilois > une 'date' VB n'est pas un string mais un 64 bits virgule flottante dans un variant.

ciao...
BruNews, Admin CS, MVP Visual C++

cs_EBArtSoft · Answer

inux> 

Bonjour, pour coder une date en dure dans vb fait le de la maniere suivante :

dim MaDate as Date

if MaDate = #01/01/2004# then 
if MaDate > #12/06/1990# then
if Now() <= #21/12/1978# then

sinon j'ai pas trop compris ton histoire de boucle !

utilise un timer cadencer a 1000 (1 seconde) et fait

if MaDate = #2/21/2004 9:20:00 PM# then 
...
endif

@+

E.B.

cs_inux · Answer

Bonjour EBArtSoft ,

J'ai essayé ce que tu m'as dit mais je n'ai pas mes msgbox ki apparaissent!

Private Sub Form_Load()

Dim MaDate As Date

If MaDate = #3/17/2004# Then
MsgBox "egal"

If MaDate > #1/4/1990# Then
MsgBox "sup"

If Now() <= #3/20/2004# Then
MsgBox "inf"

End If
End If
End If
End Sub

Pour ce qui est de la boucle, je voudrais simplement que le test de la date se fasse continuellement .

Encore merci

BruNews · Answer

Ne comparer que la partie entiere en ce cas:
38063 est ce jour 17/03/2004

if clng(madate) = 38063 then msgbox "EGAL"

ciao...
BruNews, Admin CS, MVP Visual C++

cs_EBArtSoft · Answer

inux> a ouai ... ok ! t'es pa ramené encore !

bon alors voila si tu veus tester la date du jour et afficher une boite de dialogue dison le 17 mars 2004 vers 16 tu lance vb6 ou 5 tu fait un nouveau projet puis tu ajoute un timer (sur la form1)  tu change l'interval (du timer) a 1000 puis enable sur true et tu double clicque sur le timer la sa te positionne sur le code et tu tape :

private sub Timer1_Timer()

if Now() => #03/17/2004 4:00:00 PM# then 

msgbox "Enfin j'y suis !"

endif

end sub

voila !

@+

E.B.

Demmarer un programme a une date precise

12 réponses

Discussions similaires