Sub AppStart (Args() As String)
Log(DateTime.Date(FirstDayOfNextMonth))
End Sub
Sub FirstDayOfNextMonth As Long
Dim p As Period
p.Months = 1
Dim ThisDayNextMonth As Long = DateUtils.AddPeriod(DateTime.Now, p)
Return DateUtils.SetDate(DateTime.GetYear(ThisDayNextMonth), DateTime.GetMonth(ThisDayNextMonth), 1)
End Sub