Déterminer le nom du jour d'une date donnée.

Déterminer le nom du jour d'une date donnée.
Par exemple, quel est le nom du jour de votre date de naissance ?
Quel jour sera le dernier de ce mois?

Les calculs sur les dates, il y en a plein de code sur ce Forum.
En voici un autre en vbs.
ça fera plaisir à quelqu'un.

Code:: ' Déterminer le nom du jour d'une date
Nom_Du_jour(10,8,1950)
Nom_Du_jour(30,4,2015)

end
rem ============================================================================
SUB Nom_Du_jour(jour$,mois$,annee$)
   dim_local scr$
   scr$ = "C:\TEMP\nomjour.vbs"
   FILE_OPEN_WRITE 9999,scr$
   FILE_WRITELN 9999,"MsgBox FormatDateTime(DateSerial("+annee$+","+mois$+","+jour$+"),vbLongDate)"
   FILE_CLOSE 9999
   EXECUTE_WAIT scr$
   FILE_DELETE scr$
END_SUB
rem ============================================================================

Nombre de messages : 186 Date d'inscription : 26/11/2012

Bonjour,
Peut-on récupérer le résultat dans le presse-papiers sans avoir la boite de message Question

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Bonsoir Francis-mr, je vois que papydall fait la sourde oreille, alors je te suggère la formulation suivante:

Code:: SUB Nom_Du_jour(jour$,mois$,annee$)
DIM_LOCAL q$,scr$
q$ = CHR$(34): scr$ = "C:\TEMP\nomjour.vbs"
FILE_OPEN_WRITE 9,scr$
FILE_WRITELN 9,"strCopy = FormatDateTime(DateSerial("+annee$+","+mois$+","+jour$+"),vbLongDate)"
FILE_WRITELN 9,"With CreateObject("+q$+"Scripting.FileSystemObject"+q$+")"
FILE_WRITELN 9," With .CreateTextFile("+q$+"Child.vbs"+q$+")"
FILE_WRITELN 9," .WriteLine "+q$+"CreateObject("+q$+q$+"WScript.Shell"+q$+q$+").SendKeys "+q$+q$+"^c{ENTER}"+q$+q$+q$
FILE_WRITELN 9," .Close"
FILE_WRITELN 9," End With"
FILE_WRITELN 9," CreateObject("+q$+"WScript.Shell"+q$+").Run "+q$+"Child.vbs"+q$
FILE_WRITELN 9," Dummy = InputBox("+q$+q$+","+q$+q$+" , strCopy)"
FILE_WRITELN 9," .DeleteFile "+q$+"Child.vbs"+q$
FILE_WRITELN 9,"End With"
FILE_CLOSE 9
EXECUTE_WAIT "wscript.exe "+scr$
FILE_DELETE scr$
END_SUB

Il y a quand même un affichage fugitif de la boîte de message, mais la réponse est bien dans le presse-papier.

Nombre de messages : 186 Date d'inscription : 26/11/2012

Encore merci JL35.
Je vois que tu es un spécialiste du langage VBS alors que moi j'y suis vraiment imperméable scratch

JL35 a écrit:: Bonsoir Francis-mr, je vois que papydall fait la sourde oreille, alors je te suggère la formulation suivante:

Je fais plutôt « l’aveugle œil » !!!!
Mes petits-enfants m’ont interdit de jeter un œil sur le forum : ils veulent jouer à leurs jeux favoris. C’est leur loi et moi, comme toujours, je respecte la loi.
Et puis, merci, tu m’as appris quelque chose avec ton code.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Je savais bien papydall que tu étais en train de pratiquer "l'art d'être grand-père", veinard, et je sais bien qu'il n'y a rien qui vaille la peine de s'en passer.

Francis-mr, oh non, je ne suis pas du tout un spécialiste du vbs, je grappille seulement des infos ici et là que j'assemble tant bien que mal, je n'ai jamais pratiqué le visual basic qui doit être assez semblable. Je n'ai guère fait que du basic, de l'assembleur, et quelques langages spécialisés proches de l'assembleur, pour des machines données.

En tout cas, en ce qui nous concerne, le gros avantage du vbs c'est de pouvoir être interfacé en panoramic, sans faire appel à des ressources externes.

JL35 a tout dit, rien à ajouter, sauf : ON S'AMUUUUUSE bien avec Panoramic!

» Déterminer la date du BIOS de votre PC
» Gestion de la date avec jour de la semaine
» la date ok, mais c'est quel jour de la semaine ?
» Convertisseur date vers jour Julien et inversement
» Combo date : sélecteur de date