Tasks' durations vs Project Duration

[PRibeiro]

I have a project now that the total of tasks' duration is different from
the total project duration.

The reaosn is that during the project, my client will use the
facilities and we will not be able to work during that period. I would
like to show to the client that our "real" work duration is much less
than the actual project duration, but in the summary tasks it will sum
up all the project duration from the day it starts until it ends. My
working calendar is 7 days/week, 8hours /day
Is there any way to show both durations (sum up of the tasks duration's
and calendar duration)?

 

[Jim Aksel]

Roll all your effort to a separate summary task and show them that.
If their work is in the middle of your project you may want to consider four
summary tasks:

Summary 1 Total Project Summary (task 0)
Summary 2 Work you do before shut down
Summary 3 Shutdown
Summary 4 Work you do after shutdown is over
--
If this post was helpful, please consider rating it.

Jim Aksel, MVP

Check out my blog for more information:
http://www.msprojectblog.com

 

[PRibeiro]

Jim:
Thanks for your feedback. I also considered to do as you suggested, bu
this would not give an immediate snapshot of the total of my wor
because I am idle in the middle of the project until my clien finishe
his work. I would like to have something that could immediately show th
total duration of my work and the total duration of the project

 

[Brian Kennemer]

It sounds like what you need is a count of the number of days on which work
occurs. If that is the case then this code will do that for you.
It loops through the timescaledata object for the projectsummarytask and
then counts the number of days where the Work value for that day is NOT null
or is greater than 0. It displays that count in a message box and inserts it
into the Number1 field of the projectsummarytask.

It was written against P14 but should work in 2007 and 2003.

Sub DaysWithWork()
Dim T As Task
Dim TS As TimeScaleValues
Dim Counter As Integer
Dim DaysWithWork As Integer

Set T = ActiveProject.ProjectSummaryTask

Set TS = T.TimeScaleData(StartDate:=T.Start, EndDate:=T.Finish, _
Type:=pjTaskTimescaledWork, TimeScaleUnit:=pjTimescaleDays)

For Counter = 1 To TS.Count
If TS(Counter).Value > 0 And Not (TS(Counter).Value = "") Then
DaysWithWork = DaysWithWork + 1
End If
Next Counter

T.Number1 = DaysWithWork

MsgBox Prompt:="Days with Work: " & DaysWithWork

End Sub

 

[JulieS]

Very nice to see you here Brian!
Julie

Brian Kennemer, Former MVP
Microsoft Consulting Services

<snip>

 

[Brian Kennemer]

Hey! Yes, it has been WAY too long. I will do my best to keep a presence
here now.

 

[JulieS]

Great. Will we see you in Arizona?

Hey! Yes, it has been WAY too long. I will do my best to keep a
presence here now.

 

[Brian Kennemer]

Oh Yes. I will see you all there.