Date [Résolu]

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

1 réponse

Messages postés
6577
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 février 2020
95
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
14655
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
23 février 2020
139
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
6577
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 février 2020
95 > NHenry
Messages postés
14655
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
23 février 2020

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
14655
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
23 février 2020

Merci NHenry !

Mon problème est résolu.