Substract dates

[Yurby]

Hello:
I'm designing an Infopath form and I need to know how can I substract two
dates, I was trying with Today()-date and show the result in an expression
cell but isn't possible for that way, please help me to solving that trouble?

 

[Sandeep]

Hi Yurby

This code is infopath Vbscript managed code.

Expl:
Field1 and field2 two are date pickers.
Field3 is expression box

Past this code

Sub CTRL18_5_OnClick(eventObj)

Dim nodeDate1
Dim nodeDate2
Dim dt1Val
Dim dt2Val
Dim daysElapsed

Set nodeDate1 = XDocument.DOM.selectSingleNode("/my:myFields/my:field1")
Set nodeDate2 = XDocument.DOM.selectSingleNode("/my:myFields/my:field2")

dt1Val = CDate(nodeDate1.Text)
dt2Val = CDate(nodeDate2.Text)

daysElapsed = DateDiff("d", dt1Val, dt2Val)

XDocument.DOM.selectSingleNode("/my:myFields/my:field3").text = daysElapsed

End Sub

I hope this will help you