Hello

hope some one canhelp me out

I have a script which is run un VBScript

I have two fields

1. Date From  and Date To
2. The  Format is Date and Time YY.MM.DD HH:MM

Sandeep has helped me so I used this script in the OnAfterChange of
Field Date To

Sub msoxd_my_datum_bis_OnAfterChange(eventObj)
Dim nodeDate1
Dim nodeDate2
Dim dtVal_Von
Dim dtVal_Bis
Dim faktorwert

Set nodeDate1 =
XDocument.DOM.selectSingleNode("/my:meineFelder/my:reisediäten/my:exp_land/my:datum_von")
Set nodeDate2 =
XDocument.DOM.selectSingleNode("/my:meineFelder/my:reisediäten/my:exp_land/my:datum_bis")
Set nodeFaktor =
XDocument.DOM.selectSingleNode("/my:meineFelder/my:reisediäten/my:exp_land/my:dsatz_faktor")

if nodeFaktor.getAttribute("xsi:nil") then
    nodeFaktor.removeAttribute("xsi:nil")
End if

dtVal_Von = nodeDate1.Text
dtVal_Bis = nodeDate2.Text

' Fügen Sie hier den Code zum Wiederherstellen des globalen Zustandes
ein.

If eventObj.IsUndoRedo Then
    ' Ein Rückgängig- oder Wiederholen-Vorgang wurde durchgeführt und
das DOM ist schreibgeschützt.
    Exit Sub
End If

' Eine Änderung am Feld wurde vorgenommen und das DOM ist
beschreibbar. Fügen Sie hier den Code für die Reaktion auf die
Änderung ein.
faktorwert = Faktor(dtVal_Von, dtVal_Bis)
nodeFaktor.text = faktorwert

End Sub

The Function Faktor(dtVal_Von, dtVal_Bis) looks like this

Function Faktor(Datum_Start, Datum_Ende)
Dim Minuten
Dim A
Dim Bruchteil
Dim Zeilen

Minuten = DateDiff("n", Datum_Start, Datum_Ende)

'Berechnung des Faktors
Faktor = 0
Zaehler = 0
A = 0
Bruchteil = 0.333333333333
Zeilen = 1

While Zaehler <= Minuten
   Zaehler = Zaehler + 1
   A = A + 1

   If A = 5 * 60 + 1 Then
           Faktor = Faktor + Bruchteil
   ElseIf A = 8 * 60 + 1 Then
           Faktor = Faktor + Bruchteil
   ElseIf A = 12 * 60 + 1 Then
           Faktor = Faktor + Bruchteil
           Zaehler = Zaehler + 12 * 60
           A = 0
   End If
Wend

Faktor = cdbl(Faktor)

End Function

When I go to the view form and I select the days I get a type mismatch
in this line from the function faktor:

Minuten = DateDiff("n", Datum_Start, Datum_Ende)

And it states that Datum_Ende is the problem.  Strangley Datum_Start
works.

Any idea what is wrong?

Thanks for any help!!

Robert