Subtrahieren von einem Datum in VBA?

Ich habe große Probleme bei der Bedienung mit dem Datum in Excel-VBA.
Ich habe ein Formular mit einem Textfeld, wo der Benutzer ein Datum eingeben. Das problem ist, dass er vielleicht geben Sie es in verschiedenen Formaten (z.B. 1.08.2011 für den 1. August, oder 8/1/11 für den gleichen Tag). Nun, was ich tun möchte, ist zu subtrahieren einige Tage von diesem Zeitpunkt an, dass er in das Textfeld ein. Ich hatte zum Erfolg, so weit und ich weiß nicht, wie es zu tun.
Ich habe versucht, so etwas wie dieses

Format((Format(Me.datalivrare.Value, "dd.mm.yyy") - 4), "dd.mm.yyyy")

Wo datalivrare ist, dass die textbox wo der Benutzer das Datum und die 4 ist die Anzahl der Tage, die ich wollen, um zu subtrahieren, dass ab diesem Datum... und ich will das format immer dd.mm.JJJJ egal, was Sie eingeben in das Textfeld.

Wie wollen Sie unterscheiden, ob 8/1/11 bedeutet 1. August oder 8. Januar?

InformationsquelleAutor Andrei Ion | 2011-08-08

  1. 24

    Schlage ich vor Blick auf die DateAdd-Funktion für VBA

    http://www.techonthenet.com/excel/formulas/dateadd.php

    http://office.microsoft.com/en-us/access-help/dateadd-function-HA001228810.aspx

    Können Sie das folgende tun:

    Format(DateAdd("d", -4, CDate(Me.datalivrare.Value)), "dd.mm.yyyy")
    Vielen Dank für deine Antwort!

    InformationsquelleAutor Taryn

  2. 6

    die besten zu addieren und subtrahieren von Datumsangaben auf vba ist dateadd() (mit negative Zahl für substractions)
    auch in deinem Beispiel-code es gibt eine fehlende y auf der format-Zeichenfolge (er nimmt 1, 2 oder 4 y).

    auf dem anderen Weg, ich würde empfehlen, die Einschränkung der Benutzer-Eingabe einer bekannten format mit einem maskierten textbox, wenn möglich, oder einfach Daten-Validierung
    Vielen Dank für deine Antwort!

    InformationsquelleAutor Einacio

  3. 5

    Ersten cast bisher, dann subtrahieren Tage, dann format entsprechend:

    Format(DateAdd("d", -4, CDate(Me.datalivrare.Value)), "dd.mm.yyyy")
    Vielen Dank für deine Antwort!

    InformationsquelleAutor Lance Roberts

  4. 1

    Ist es wichtig zu überprüfen, ob der Benutzer einen Wert erfaßt, der VBA kann interprit als Datum, so sollten Sie zunächst:

    If isDate(Me.datalivrare.Value) Then
    str_Date = Format(DateAdd("d", -4, CDate(Me.datalivrare.Value)), "dd.mm.yyyy")
Else
    MsgBox "Not a valid date value", vbCritical + vbOkOnly, "Invalid Entry"
End If

    Ich denke bluefeet Antwort hatte die meisten Informationen so weit und ich habe mir die Verwendung der DateAdd-und CDate.

    InformationsquelleAutor CoveGeek

Schreibe einen Kommentar