Date [Résolu]

Messages postés
43
Date d'inscription
mardi 15 septembre 2015
Statut
Membre
Dernière intervention
5 novembre 2016
-
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 

Votre réponse

1 réponse

Messages postés
6038
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 mai 2019
79
0
Merci
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
Messages postés
14450
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 mai 2019
129 -
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
Messages postés
6038
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 mai 2019
79 > NHenry
Messages postés
14450
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 mai 2019
-
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
Messages postés
43
Date d'inscription
mardi 15 septembre 2015
Statut
Membre
Dernière intervention
5 novembre 2016
> NHenry
Messages postés
14450
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 mai 2019
-
Merci NHenry !

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