DateTime.DateFormat ="dd-MM-yyyy"
Log("Next date: " & DateTime.Date(DateTime.Add(DateTime.DateParse("01-04-2023"), 0,3,0))) 'Next date: 01-07-2023
Dim p As Period
p.Months = 3
Dim nextdate As Long = DateUtils.AddPeriod(DateTime.DateParse("01-04-2023"), p)
Log("Next date: " & DateTime.Date(nextdate)) 'Next date: 01-07-2023
Dim p As Period
p.Months = 3
Dim nextdate As Long = DateUtils.AddPeriod(DateTime.DateParse("01-04-2023"), p)
Log($"Next date: $Date{nextdate}"$) ' Next date: 01-07-2023