thank you but I do not want a current date! I want it to work with a date I choose through a calendar that will return the chosen date in a variable and that I can increment of 3 months
Here is an example of what Manfred is trying to help you with:
B4X:
Dim OrigDateFormat As String = DateTime.DateFormat
DateTime.DateFormat="dd/MM/yyyy"
Dim DS As Long = DateTime.Add(DateTime.DateParse("13/03/2019"),0,1,0) 'add 3 months
Dim date2 As String=DateTime.Date(DS) 'this is a string date
Log(date2) '13/04/2019
DateTime.DateFormat=OrigDateFormat