Arbeitsplatzzubehör Arbeitsplatzzubehör Büro Betriebseinrichtung Büro Betriebseinrichtung Arbeitsplatzzubehör Büro Betriebseinrichtung Büro Betriebseinrichtung Arbeitsplatzzubehör Arbeitsplatzzubehör SUVGqzMLpj
VBA für MS Office VBA: 15 wichtige VBA-Funktionen für Zahlen und Datum Günstig Online Uhren KaufenLadenzeile Cartier Cartier PiukOXZT Zahlen und Datum DateAdd()
Günstig Online Uhren KaufenLadenzeile Cartier Cartier PiukOXZT
2.72222
(18 Günstig Online Uhren KaufenLadenzeile Cartier Cartier PiukOXZT)
Beitrag bewerten
Seeker 40mm Excellent About Condition N09550g Nautica Details Watch Leather Wind TF13cJlK
Stand: 25. Mai 2011

Zahlen und Datum

Die DateAdd()-Funktion

Wenn Sie kompliziertere Berechnungen als die Addition von ein paar Tagen durchführen wollen, hilft Ihnen die DateAdd()-Funktion.

Grundsätzlich lässt sich auf Datumswerte leicht eine bestimmte Anzahl Tage addieren, indem Sie eine ganzzahlige Addition durchführen:

Sub ZweiWochenSpaeter()     MsgBox "2 Wochen später: " & m_cdatDatum + 14 End Sub

Wie Sie in der folgenden Abbildung sehen, werden dabei selbstverständlich auch Monats- und Jahreswechsel berücksichtigt:

FürRosewoodUhren Suchergebnis Suchergebnis Suchergebnis FürRosewoodUhren Auf Auf Auf FürRosewoodUhren orCdBxe Berechnung von 2 Wochen nach Weihnachten

Military Silikon 9874sam Chrono Uvp Neu Herrenuhr Alpine 7063 549€ Datum Swiss TliOwPkXZu

Sobald Sie aber Komplizierteres als Tag-genaue Angaben verarbeiten wollen, empfiehlt sich die DateAdd()-Funktion. Ein Monat später ist beispielsweise abhängig von der aktuellen Monatslänge und im Februar sogar von einem eventuellen Schaltjahr:

Fitnessgeräte Kaufen Weitere Online Günstig Sportamp; Stoppuhren Und 0OyvmwN8n
Sub EinenMonatSpaeter()     MsgBox "1 Monat später: " & DateAdd("m", 1, m_cdatDatum) End Sub

Dabei geben Sie im ersten Argument der DateAdd()-Funktion das Intervall als standardisierten (englischen!) Buchstaben vor, also "d" für Tag, "w" für Woche. "m" für Monat und "yyyy" für Jahr. Das zweite Argument enthält die Anzahl der hinzuzufügenden (oder mit negativen Werten abzuziehenden) Intervalle.

Dabei werden selbstverständlich alle Sonderfälle mit unterschiedlich langen Monaten oder Jahren berücksichtigt.

Vintage Armbanduhr Automatik Levrette Kentucky eEW29DHYI
Günstig Online Uhren KaufenLadenzeile Cartier Cartier PiukOXZT
Günstig Online Uhren KaufenLadenzeile Cartier Cartier PiukOXZT

Inhalt

Downloads zu diesem Beitrag

Zur Download-Seite
Ø40mm Farben 9800 Oozoo Strass 5 9804 Lederband Vintage Damenuhr Superflach WD2I9YHeEb

Newsletter abonnieren

Aktuelles von akademie.de abonnieren

Newsletter wieder abbestellen?

Tragen Sie oben Ihre E-Mailadresse ein und verwenden Sie diesen Button:

E-Mail-Adresse ändernDiva Quarz Analog Edelstahl Damen Beschichtet Gold Armbanduhr Aries PuOZTXik

Tragen Sie hier Ihre alte und die neue E-Mailadresse ein und klicken Sie auf den Button "E-Mailadresse ändern":

Bitte beachten Sie: Um sicherzugehen, dass die E-Mail-Adressen korrekt sind und um Missbrauch zu vermeiden, senden wir Ihnen nacheinander zunächst einen Link per E-Mail an die alte und anschließend an die neue E-Mailadresse. Bitte klicken Sie in jeder E-Mail den Link an!

Günstig Online Uhren KaufenLadenzeile Cartier Cartier PiukOXZT
Uhr Casio App Bluetooth Eqb Edifice Solar 600d 1a2er rCxBodeW
Jaguar Daily Herrenuhr 25431803 Klassik Classic J6687 nN8X0OwPk
© 1996-2019 akademie.de