Probleme avec les date

Bonjour a tous , je me remet a la programmation apres un bon bout de temps et je suis bloqué sur un script VBS.
Je veux qu'a une date présise s'affiche un message mais j'y arrive pas, j'ai essayer avec :

if Day=18 then
Message="on est le 18"
else
Message="on est pas le 18 "
end if


 pourriez vous maider car ca fait 1 h que jessai de parcourir notre chere ami google

Salut,

Et cela, fonctionne sous .net ?

Private Sub Form_Load()
If Format(Now, "DD") = "18" Then
   MsgBox "on est le 18 !"
Else
   MsgBox "on est pas le 18 !"
End If
End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

re,

Voir aussi avec : DatePart("d",Now)

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Tu peux aussi utiliser:

if now.day = 18 then
   messagebox.show("On est le 18")
else
   messagebox.show("On n'est pas le 18")
End if

 Bonjour à tous,

if Day(Date)=19 then
   Message="on est le 19"
else
   Message="on est pas le 19"
end if

MsgBox Message

jean-marc

merci pour vos raison tres rapide et efficace, malheuresement j'en ai encore des question. je veu faire la meme chose mais avec des date présise.
Et si ce n'est pas la date de passer a la prochaine ligne comme un goto en batch mais comme vous en doutez je n'y arrive pas.
j'ai essayer ca pour les date


if Date('2007-19-12') then
Message="2007-19-12'"
else
Message="on est pas 2007-19-12' "
end if


et si au passage vous pouvez me dire pk ce code marche pas :

LoadPicture("c:\teste.jpg")


Merci d'avance pour ceux qui prenderons le temps de me repondre :)

a merci j'ai limpression de chercher la ou il faut pas ..
 et tu connnais une fonction qui permet daller a la ligne X
par exemple dans  ce cas la

madate = "2007-19-12"
madate = Mid(madate,6,2) & "/" & Right(madate,2) & "/" & Left(madate,4)

madate2 = "2007-20-12"
madate2 = Mid(madate2,6,2) & "/" & Right(madate2,2) & "/" & Left(madate2,4)

If Date = CDate(madate) Then
Message="nous sommes le 2007-19-12"
else
Message="on est pas 2007-19-12 "
End If
MsgBox Message


If Date = CDate(madate2) Then
Message="nous sommes le 2007-20-12"
else
Message="on est pas 2007-20-12 "
End If
MsgBox Message


alors qu'il nous dise on est pas " 2007-19-12 " qu'il passe directement a on est le  "nous sommes le 2007-20-12"