Project.CurrentDate property (Project)

Ruft das aktuelle Datum eines Projekts ab, oder legt es fest. Variant-Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. CurrentDate

Ausdruck Eine Variable, die ein Project-Objekt darstellt.

HinwBemerkungeneise

Wenn ein Projekt geöffnet wird, automatisch Project legt das Projekt aktuelles Datum gleich das Systemdatum.

Beispiel

Im folgenden Beispiel wird das aktuelle Datum des aktiven Projekts auf den vorangegangenen Montag festgelegt.

Sub SetCurrentDateToPreviousMonday()
    ' Loop while the current date is not Monday. 
    Do While WeekDay(ActiveProject.CurrentDate) <> pjMonday 
        ' Subtract one day from the current date. 
        ActiveProject.CurrentDate = _ 
            DateSerial(Year(ActiveProject.CurrentDate), _ 
            Month(ActiveProject.CurrentDate), _ 
            Day(ActiveProject.CurrentDate - 1)) 
    Loop
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.