ändern Sie das Datumsformat von JJJJMMTT in JJJJ/MM/TT in VBA

Question

Ich habe Zelle Wert, der von WYYYYMMDD ist, und dies muss in YYYY/MM/DD konvertiert werden. tatsächlicher Bedarf ist, dass ich 7 Tage zu dem bestimmten Datum hinzufügen kann, indem ich DATEADD functio benutze. Diese Funktion hat das Datumsformat JJJJ/MM/TT und mein Zellenwert hat das Datum WJJJJMMTT.

Answer 1

Ich bin mir nicht sicher, was die W im WYYYYMMDD ist, aber wenn man es loswerden kann, dann sollten folgende Arbeiten:

 x.Value = DateSerial(Left(x.Value, 4), Mid(x.Value, 5, 2), Right(x.Value, 2)) 
     x.NumberFormat = "yyyy/mm/dd" 

Answer 2

Ich denke, es gibt einige hier Verwirrung. In Excel wird ein Datum als die Anzahl der Tage seit dem 1. Januar 1900 gespeichert. Das heutige Datum ist 43062. Dies bedeutet, dass Sie jedem Datum in Zelle A1 durch die Formel "= A1 + 7" 7 Tage hinzufügen können müssen die DATEADD-Funktion für Tage verwenden. Ebenso interessiert eine Funktion, die ein Datum benötigt, das Format nicht - sie erwartet einen numerischen Wert. Wenn Ihre Zelle ein Datum enthält, können Sie einfach 7 hinzufügen.

Das Datumsformat ist die Art und Weise, wie Sie diese Zahl anzeigen. Es kann eine beliebige Kombination der Symbole d, m und y sein und kann mit der NumberFormat-Eigenschaft eines Bereichs geändert werden.

Wo Verwirrung entsteht ist, dass es möglich ist, Text einzugeben, der wie ein Datum aussieht, aber das ist eigentlich kein Datum. Eine Zeichenfolge, die wie ein Datum aussieht, kann mithilfe der Funktion DATEVALUE in ein Datum konvertiert werden, jedoch nur, wenn die Zeichenfolge einem bekannten Excel-Datumsformat entspricht. In Ihrem Fall ist das Format YYYYMMDD ein bekanntes Format. Wenn es sich um Text handelt, können Sie das verwenden, nachdem Sie das erste Zeichen von vorne abgeschnitten haben. So (unter der Annahme, Zelle A1), wird dies das Datum 7 Tage legt in Variable x:

Dim r as Range 
    Dim x as date 
    Set r = range("a1") 
    x = DateValue(right(r,len(r)-1))+7