developerWorks  >  Lotus  >  Forums & community  >  Notes/Domino 6 and 7 Forum

Notes/Domino 6 and 7 Forum


AdjustDay Malfunction
Shawn Pelletier 01/25/2013 09:32 AM
Applications Development 6.5.4 Windows XP


I'm trying to adjust a datetime field by 7 days if the date input is (Today). This code runs on a querysave event, however it is not adding the 7 days and it doesn't return an error. Any suggestions or direction? Would be much appreciated. Thanks.

'If Eqpt required date = Today, Add 7 Days
Dim NewDate As New NotesDateTime(Today)
Call NewDate.AdjustDay(7)

If Source.FieldGetText("eqptreq") = Today Then
Call Source.FieldSetText("eqptreq", NewDate)
End If

Go back