myblood a écrit a écrit :
salut
function affiche_date()
dim jour,strjoursemaine,strjour,mois,strmois
jour = day(date)
mois = month(date)
select case weekday(date)
case 1 : strjoursemaine="Dimanche"
case 2 : strjoursemaine="Lundi"
case 3 : strjoursemaine="Mardi"
case 4 : strjoursemaine="Mercredi"
case 5 : strjoursemaine="Jeudi"
case 6 : strjoursemaine="Vendredi"
case 7 : strjoursemaine="Samedi"
case else: strjoursemaine="erreur"
end select
select case mois
case 1: strmois="janvier"
case 2: strmois="fevrier"
case 3: strmois="mars"
case 4: strmois="avril"
case 5: strmois="mai"
case 6: strmois="juin"
case 7: strmois="juillet"
case 8: strmois="aout"
case 9: strmois="septembre"
case 10: strmois="octobre"
case 11: strmois="novembre"
case 12: strmois="decembre"
end select
affiche_date = strjoursemaine & " " & jour & " "& strmois
end function
|
La putain d'usine a gazzzzzzzzzz
La fonction dateformat est bien utilisé, sauf qu'a la place du ,1, tu mets ,vblongdate
Si cela ne fonctionne pas a cause de la syntaxe, installe VB Scripting (l'aide VBS de Microsoft, sur le site)