vba: Datum-Funktion liefert "00:00:00"

Meinem code unten liefert "00:00:00", wenn der übergebene Wert "DateValue" null

vba:

Public Function forDate(ByVal DateValue As String) As Date
Dim DoDate As Date
If Not IsNull(DateValue) And DateValue <> "" Then
DoDate = CDate(FormatDateTime(DateValue, 1, 10))
forDate = DoDate
End If
End Function

Zu behandeln, wie wenn "DateValue" null ist???
bitte deuten auf eine Antwort.

Wie bereits geschrieben, ist Ihre Funktion nicht definiert einen Rückgabewert für den Fall, dass Sie wollen - Sie benötigen mindestens ein 'else' - Anweisung?,,,
Meinst du, wenn DateValue ist Null-oder meinst du, wenn der Wert der Variablen DateValue ist die vier Briefe Wort "Null" ?
variable den Wert "Null".
Warum nicht Sie überprüfen die DateValue String vor dem Aufruf der Funktion? Das bedeutet, dass Sie diese Funktion aufrufen, die in einer Funktion. Wenn der Wert NULL ist Sie wieder leer-string ist, sonst können Sie wieder die date - format..
Weil Sie dimetioned DateValue als String (ByVal DateValue As String), Sie können NICHT übergeben Sie Null als argument. Wenn Sie versuchen, VBA wird ein Fehler ausgelöst und die Funktion wird NICHT evaluaterd.

InformationsquelleAutor user2002774 | 2013-02-27

  1. 1

    Einstellung ein Date zu null gültig ist (d.h. es wird ohne Fehler ausgeführt), vorausgesetzt, Sie verwenden vbNull und nicht Null. Obwohl es zurück #12/31/1899# und nicht null selbst. Sie können überprüfen Sie die date-variable vor, die bekannte null-Wert höher als Ihre pseudo-null-Wert.

    Oder Sie können legen Sie es auf das minimum Datum DateSerial(100, 1, 1) wird wieder #1/1/100#

    vbNull ist nicht das gleiche wie "Null". vbNull ist eine VBA-interne Konstante mit dem Wert 1.
    du hast Recht! (irgendwie irreführend...) sowie dann die DateSerial-option ist vielleicht das beste, wenn er darauf besteht auf die Rückgabe eines Date

    InformationsquelleAutor Brad

  2. 1

    Wird dies behandeln von null-und/oder leere Zeichenfolgen:

    Public Function forDate(ByVal DateValue)
If IsDate(DateValue) Then
    forDate = CDate(DateValue)
Else
    forDate = CVErr(xlErrValue)
End If
End Function

    Hinweis habe ich entfernt, die Definitionen der Variablen zu NULL werden richtig übergeben. wenn verwendet, wie eine Funktion in einer Tabellenkalkulation die Funktion zurückgeben #VALUE! Fehler, wenn ein string, der dargestellt werden kann als ein Datum übergeben wird

    Beispiel Ergebnisse:

    vba: Datum-Funktion liefert

    InformationsquelleAutor SeanC

  3. 0

    Ich denke die Lösung könnte sein, zu erklären, dass die Funktion einen variant-parameter|

    Public Function forDate(DateValue)

    Wenn VBA wandelt NULL in einen String, es ist nicht mehr NULL...

    Floris: Nein, ich kann dies tun,es muss im Datums-format. Ich habe Probleme mit Witz andere Formate.

    InformationsquelleAutor Floris

  4. 0

    Siehe die Kommentare für die Lösung 

    Public Function forDate(ByVal DateValue As String) As Date ' will only accept string parameter

End Function

' below function is a variant and can accept string , null 
Public Function forDate(DateValue)
    Dim DoDate As Date
    If DateValue & "" <> "" Then 'this will handle null and empty string


        Else
            'will go here when null or empty string
            DateValue = Null
    End If
End Function
    user206:ich versuche hier,habe ich "Ungültige Verwendung von Null" Fehler.
    Stellen Sie sicher, dass Ihre Funktion akzeptiert null und gibt null zurück,...es funktionieren würde.
    Sie können nicht verwenden = zuordnen, NULL - Sie müssen Set. Nicht sicher, können Sie Datum einstellen, auf Null, obwohl...
    hat es funktioniert für Sie ??????

    InformationsquelleAutor

Schreibe einen Kommentar