When run on the last line i get a error message “Type Mismatch”.I want to get the day value. can somebody tell me the solution , thank !
Xm=Month(Y)
Xd=Day(Y)
Xy=Year(Y)
Xm1=Cint(Xm)+Cint(1)
Xd1=Cint(01)
XX=Cstr(Xm1)+"/"+Cstr(Xd1)+"/"+Cstr(Xy)
Dim Te As New NotesDateTime( XX )
Call Te.AdjustDay(-1)
PP=Day(Te)