Reuse annual project.mmbas

From ActivityOwnerWiki
Jump to: navigation, search

Sub Main
'reuse_annual_project 03Sep07 http://creativecommons.org/licenses/by-sa/2.5/ http://www.activityowner.com
 For Each t In ActiveDocument.Range(mmRangeAllTopics)
  If t.Task.Complete=100 Then t.Task.Complete=0
  If t.Task.DueDate>0 Then
  	t.Task.DueDate=DateAdd("yyyy",1,t.Task.DueDate)
  End If
  If t.Task.StartDate>0 Then
	t.Task.StartDate=DateAdd("yyyy",1,t.Task.StartDate)
  End If
 Next
End Sub