bekommen String-Ausgabe von 1900 von der Datumseingabe VBA

Question

Ich versuche, das Datum eines Ereignisses zu halten. Ich habe Probleme mit der Art, wie meine Daten definiert wurden. Anstatt das aktuelle Datum zeigt die Ausgabe im Jahr 1900 Format zeigt (wie 1900.10.01)

Hier ist mein Code:

Dim Arr_rate As Date 
Dim D(528) As Date 
for i = 3 to 500 
Arr_rate = -3.7 * Log(Rnd) '<~~ Arrival interval 
D(2) = CDate(1/1/2006) 
D(i) = D(i - 1) + Arr_rate 
Worksheets("A").Cells(i, "E").Value = Cdate(D(i)) 

next i 

Ich versuchte, das sdate Format in meinem Code zu haben, aber es wird gib mir die Zahlen nicht in einem richtigen Format (1/1/2006). Wie kann ich im richtigen Format drucken? Ich habe einen Beitrag im Stackover-Flow gelesen, war aber nicht hilfreich!

Answer 1

Ohne Anführungszeichen 1\1\12006 ist nur ein mathematischer Ausdruck und kein Datum.

Sub test() 

    Dim Arr_rate As Date 
    Dim D(528) As Date 
    For i = 3 To 500 
     Arr_rate = -3.7 * Log(Rnd) '<~~ Arrival interval 
     '<~~ Using Cdate, then use string. Otherwise 1/1/2006 evaluates to 4.98504486540379E-04 
     D(2) = CDate("1/1/2006") 
     D(i) = D(i - 1) + Arr_rate 
     Worksheets("Sheet1").Cells(i, "E").Value = CDate(D(i)) 
    Next i 


End Sub