Date [Résolu]

Messages postés
43
Date d'inscription
mardi 15 septembre 2015
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
5618
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 décembre 2018
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
14323
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
15 décembre 2018
-
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
5618
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 décembre 2018
> NHenry
Messages postés
14323
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
15 décembre 2018
-
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
Dernière intervention
5 novembre 2016
> NHenry
Messages postés
14323
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
15 décembre 2018
-
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.