Astuces Excel
  1. Astuces Excel
  3. Excel VBA Convert Ssortingng Date à une date réelle
Intereting Posts
VB.Net tire les dates d'Excel vers Array Recherchez le type de client par la partie significative du nom du client et définissez les priorités DATEDIF: Plus de 2 jours = Oui, Moins de 2 jours = Non Excel, WorkSheet_Change donne Sub ou Function non défini Lire dans la colonne Excel avec des numbers et des caractères à R Est-il possible d'appliquer Matlab optmization toolbox sur excel? Comment déterminer si une feuille de travail Cell est visible / affichée dans VBA? Comment créer une table SQL et la remplir avec des données de tableur Excel? Renvoi de la propriété par défaut Python: Accédez OLE embedded à partir du document Office / Excel sans presse-papiers Comment effacer une gamme nommée sans utiliser de VBA / Macros Ce regex est-il valide pour vb? Comment convertir HTML en text en cellules Microsoft Excel VBA excel, exécute une macro dans la plage de cellules qui = à "oui" Cachez les cellules avec la valeur de "0", puis déplacez toutes les cellules vers le haut

Excel VBA Convert Ssortingng Date à une date réelle

J'utilise le code suivant, mais pour une raison quelconque, la deuxième ligne ne la convertit pas en une date réelle. 

DateStr = Replace(DateStr, "-", "/") DateStr = Format(CDate(DateStr), "dd/mm/yyyy") DateStr = DateStr + 1

Même si je le fais: 

 Dim RealDate As Date DateStr = Replace(DateStr, "-", "/") RealDate = Format(CDate(DateStr), "dd/mm/yyyy") RealDate = RealDate + 1

Comme vous pouvez le voir à partir de la ligne 3, j'essaie de +1 à la journée qui pourrait aussi modifier le mois ou l'année.

Vous rencontrez des difficultés pour identifier exactement où vous devriez append 1 à la date. Essayer, 

 DateStr = Format(CDate(DateStr) + 1, "dd/mm/yyyy")

La fonction de conversion de CDate est l'endroit où vous obtenez la date de date numérique qui acceptera l'ajout d'un autre jour.

Deuxième fonctionne bien pour moi: 

 Sub Tester() Dim RealDate As Date, DateStr As Ssortingng DateStr = "7-20-2015" DateStr = Replace(DateStr, "-", "/") RealDate = Format(CDate(DateStr), "dd/mm/yyyy") RealDate = RealDate + 1 Debug.Print RealDate '>> 7/21/2015 End Sub