VB Add Task Duration

[Chris Molland]

I have developed a VB application to add data into MS Project. I can create a
new task:

oProj = oProj.ActiveProject
oProj.Tasks.Add(NewTaskName.Text) 'From a text field

TaskCount = oProj.Tasks.Count

The user enters a number in a field (lets assume this is to represent days).
I understand that duration is measured in minutes. How do i convert the
user's entered number so the duration is correctly entered and calculated? I
currently have the following:

oProj.Tasks(TaskCount).Duration = DurationValue.Value 'From a number field.

Thank you.

 

[Rod Gill]

Try:
Dim Tsk as Task

oProj = oProj.ActiveProject
set Tsk=oProj.Tasks.Add(NewTaskName.Text) 'From a text field
Tsk.Duration=DurationValue.Value * ActiveProject.HoursPerDay * 60



--

Rod Gill
Project MVP

Project VBA Book, for details visit:
http://www.projectvbabook.com

NEW!! Web based VBA training course delivered by me. For details visit:
http://projectservertraining.com/learning/index.aspx

 

[Chris Molland]

Thank you Rod,

I managed to get it to work using:

oProj = oProjApp.ActiveProject
TaskCount = oProj.Tasks.Count 'I assume my new task will always be the same
as Tasks.Count
oProjApp.SetTaskField(Field:="Duration",
Value:=NewTaskDuration.Value.ToString, TaskID:=TaskCount

Should I change this to your suggestion?

Thank you.

 

[Rod Gill]

Your choice. I suspect my version is much easier to understand and maintain
and you have the Tsk variable set up to use for changing any other tasks
details required.

--

Rod Gill
Project MVP

Project VBA Book, for details visit:
http://www.projectvbabook.com

NEW!! Web based VBA training course delivered by me. For details visit:
http://projectservertraining.com/learning/index.aspx