Date [Résolu]

M_CYR 43 Messages postés mardi 15 septembre 2015Date d'inscription 5 novembre 2016 Dernière intervention - 5 nov. 2016 à 15:46 - Dernière réponse : M_CYR 43 Messages postés mardi 15 septembre 2015Date d'inscription 5 novembre 2016 Dernière intervention
- 5 nov. 2016 à 17:45
Bonjour,

J'utilise ceci pour rechercher avec Everything Search les fichiers contenant dans leur nom le mois et la date en cours :

Dim WS
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run ("""C:\Program Files\Everything\Everything.exe""" & "-search """&"20 " &"-" & Month(Date) & "-" & Day(Date) & """ """, 1, true)


Ça fonctionne bien, mais je voudrais obtenir 11-05 et non 11-5. Je voudrais donc entrer ("0" & Date(dDate),2) et ("0" & Month(dDate),2) au lieu de Month(Date) et Day(Date), mais voilà, je suis tout mêlé avec les parenthèses et les guillemets, je n'y arrive pas.
Une âme charitable pourrait-elle me venir en aide ?
Un gros merci !

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

4 réponses

Répondre au sujet
cs_Le Pivert 5065 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 13 avril 2018 Dernière intervention - Modifié par cs_Le Pivert le 5/11/2016 à 16:59
0
Utile
3
Bonjour,

tout simplement comme ceci:

MsgBox Month(Date) & "- 0" & Day(Date) 


Mais tu vas avoir un problème quand tu vas arriver à 10!!!

Alors avec ceci:

If Day(Date) < 10 Then
MsgBox Month(Date) & "- 0" & Day(Date) 
Else
MsgBox Month(Date) & "- " & Day(Date) 
End If 


@+ Le Pivert
NHenry 14132 Messages postés vendredi 14 mars 2003Date d'inscriptionModérateurStatut 21 avril 2018 Dernière intervention - 5 nov. 2016 à 17:22
Bonjour cs_LePivert,

Je n'ai pas de quoi testé (Linux ne connais pas le VBS), mais :
Format n'existe pas ? Format(Day(Date),"00")
ou au pire :
Right("0" & cstr(Day(Date)),2)

Ne font pas l'affaire ?
cs_Le Pivert 5065 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 13 avril 2018 Dernière intervention > NHenry 14132 Messages postés vendredi 14 mars 2003Date d'inscriptionModérateurStatut 21 avril 2018 Dernière intervention - 5 nov. 2016 à 17:28
Salut NHenry,

Ne reconnais pas Format pour le 1er, mais la seconde solution fonctionne:

MsgBox Month(Date) & "-" & Right("0" & cstr(Day(Date)),2) 


@+
M_CYR 43 Messages postés mardi 15 septembre 2015Date d'inscription 5 novembre 2016 Dernière intervention > NHenry 14132 Messages postés vendredi 14 mars 2003Date d'inscriptionModérateurStatut 21 avril 2018 Dernière intervention - 5 nov. 2016 à 17:45
Merci NHenry !

Mon problème est résolu.
Commenter la réponse de cs_Le Pivert

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.