FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Une autre façon de terminer une application.
par Francis-mr Aujourd'hui à 12:07

» Compilateur FBPano
par jean_debord Aujourd'hui à 10:09

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Aujourd'hui à 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Aujourd'hui à 5:01

» Mettre en windows en veille
par papydall Aujourd'hui à 4:15

» Stretch_on ne stretch plus...
par papydall Hier à 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Hier à 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (résolu): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (résolu): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

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

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5518
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Déterminer le nom du jour d'une date donnée.   Sam 11 Avr 2015 - 6:34

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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Francis-mr



Nombre de messages : 157
Age : 65
Localisation : Corrèze
Date d'inscription : 26/11/2012

MessageSujet: Re: Déterminer le nom du jour d'une date donnée.   Sam 11 Avr 2015 - 11:19

Bonjour,
Peut-on récupérer le résultat dans le presse-papiers sans avoir la boite de message Question
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://cfmr.e-monsite.com
JL35



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

MessageSujet: Re: Déterminer le nom du jour d'une date donnée.   Sam 11 Avr 2015 - 19:34

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Francis-mr



Nombre de messages : 157
Age : 65
Localisation : Corrèze
Date d'inscription : 26/11/2012

MessageSujet: Re: Déterminer le nom du jour d'une date donnée.   Sam 11 Avr 2015 - 20:08

Encore merci JL35.
Je vois que tu es un spécialiste du langage VBS alors que moi j'y suis vraiment imperméable scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://cfmr.e-monsite.com
papydall

avatar

Nombre de messages : 5518
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Déterminer le nom du jour d'une date donnée.   Sam 11 Avr 2015 - 20:33

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

MessageSujet: Re: Déterminer le nom du jour d'une date donnée.   Sam 11 Avr 2015 - 21:00

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5518
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Déterminer le nom du jour d'une date donnée.   Sam 11 Avr 2015 - 21:07

JL35 a tout dit, rien à ajouter, sauf : ON S'AMUUUUUSE bien avec Panoramic!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




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

Revenir en haut Aller en bas
 
Déterminer le nom du jour d'une date donnée.
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» mises à jour dans windows 8.1
» antivir périmé, mise à jour KO
» [Résolu]Mis a jour impossible avec Antivir
» Spécial réveillon du jour de l'An
» Attention : Fausse mise à jour qui cache un cheval de Troie !

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: