Datum automatisch berechnen (Access 97, 2000)

Veröffentlicht am 09.02.2004

Frage: 

In einer Datenbank habe ich ein Datumsfeld, das manuell eingegeben werden soll. Basierend auf dieser Eingabe soll in einem anderen Feld ein Datum automatisch berechnet und angezeigt werden, das genau 3 Jahre in der Zukunft liegt. Beide Datumsfelder sind vom Typ „Datum, kurz“. 

Antwort: 

Die Funktion DateAdd bietet diverse Möglichkeiten, Datumswerte zu kalkulieren. Die Funktion nimmt einen Format-Parameter an, der bestimmt, was zum Datum addiert werden soll (z.B. Jahre, Monate usw.). 

In der Ereignisprozedur Nach Aktualisierung könnte man beispielsweise folgenden VBA-Code schreiben, um 3 Jahre in der Zukunft zu berechnen: 

Private Sub Datum1_AfterUpdate() 

    If Not IsNull(Me!Datum1) Then 
        Datum2 = DateAdd("yyyy­, 3, Datum1) 
    End If 
End Sub 

Das Ergebnis der DateAdd-Funktion wird in das zweite Textfeld kopiert.

Unsere Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

JETZT KONTAKTIEREN

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.

JETZT KONTAKTIEREN