programme qui vous donne la saison actuelle automatiquement
dim x
x=month(date)
if (x=12)or(x=1)or(x=2) then
msgbox("hiver")
end if
if (x=3) or(x=4)or(x=5) then
msgbox("printemps")
end if
if (x=6) or (x=7) or (x=8) then
msgbox("été")
end if
if (x=9) or (x=10) or (x=11) then
msgbox("automne")
end if
voilà!!j'espère que je n'ai rien oublié