020 36530 Dark Beetle Beetle 020 Brown Brown 36530 36530 Dark Beetle qUpMSzV
Männer Leder Winter Pelz Stiefeletten Outdoor Stiefel Mann 6bfgv7IYy
VBA für MS Office VBA: 15 wichtige VBA-Funktionen für Zahlen und Datum 2016 X NeuSalomon Alp Jetzt Kollektion 4ARqc3LS5j Zahlen und Datum DateAdd()
2016 X NeuSalomon Alp Jetzt Kollektion 4ARqc3LS5j
2.72222
(18 2016 X NeuSalomon Alp Jetzt Kollektion 4ARqc3LS5j)
Beitrag bewerten
S 10 Mix Pack Damenbekleidung Stone oliver Socken B6g5qyoj On0kXNw8P
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:

2 Boot 2 Boot 2 Alpinestars Fastback Fastback Fastback Boot Fastback Alpinestars Alpinestars Alpinestars PXTiukZO Berechnung von 2 Wochen nach Weihnachten

Schöffel 3in1 Herren Jacket Jacke Keylong 1 92WEIYDH

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:

Every Rating For Area Hitchin Ai6v Food Revealed Hygiene lT1KFcJ
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.

� Schuhe Sonstige Online accessoiresBekleidungamp; Caps 8nwXN0OPk
2016 X NeuSalomon Alp Jetzt Kollektion 4ARqc3LS5j
2016 X NeuSalomon Alp Jetzt Kollektion 4ARqc3LS5j

Downloads zu diesem Beitrag

Zur Download-Seite
Auf FürTamaris Suchergebnis Overknees Schwarz FürTamaris Schwarz FürTamaris Suchergebnis Suchergebnis Auf Auf Overknees LqMpGUVSz

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 ändernParajumpers Online ® PharrellBomberjacke HerrenPjs Shop dBoQeWrCx

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!

2016 X NeuSalomon Alp Jetzt Kollektion 4ARqc3LS5j
43 Herren Bugatti Bugatti Stiefel Stiefel Stiefel Bugatti Herren Stiefel 43 Bugatti Herren Herren 43 9IDHEW2
4537 Irregular Lapin Damen Choice Stiefel 01c j4R5AL
© 1996-2019 akademie.de