Comment faire pour passer la date dans TimeScaleData (lire le fichier mpp)?

Question

Je souhaite afficher les heures de travail de tous les jours du 29/5 au 30/6, mais dans l'intervalle. Il contient les samedis et dimanches (jours non ouvrables). J'utilise TimeScaleData mais il s'arrête automatiquement quand il voit un jour chômé. J'essaie d'ajouter (1) au jour de la fin mais il s'arrête toujours, donc je ne peux pas afficher correctement les heures de travail.

Microsoft.Office.Interop.MSProject.Application app = new Microsoft.Office.Interop.MSProject.Application(); 
app.FileOpenEx(Path, false, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    PjPoolOpen.pjPoolReadWrite, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing); 
Microsoft.Office.Interop.MSProject.Project pj = app.ActiveProject; 
foreach(Resource re in pj.Resources) 
{ 
    foreach (Assignment assign in re.Assignments) 
    { 
     double h = 0; 
     var tsvs = assign.TimeScaleData("5/29/2017", "7/1/2017", MSProject.PjAssignmentTimescaledData.pjAssignmentTimescaledWork, MSProject.PjTimescaleUnit.pjTimescaleDays, 1); 
     try 
     { 
      foreach (TimeScaleValue tsv in tsvs) 
      { 
       for (int i = 0; i < totalday ; i++) 
       { 
        h += Convert.ToDouble(tsv.Value); //sum all value 
       }  
      } 

     } 
     catch { } 
    } 
} 

Answer 1

Votre code rencontre une erreur d'exécution sur cette ligne: h += tsv.Value parce tsv.Value est une chaîne vide pour les jours il n'y a pas de travail. Vérifiez le type de données de tsv.Value avant d'essayer d'ajouter.

MSDN Documentation -note que la propriété Value renvoie un Variant et non un double.

Answer 2

Dans mon code tsv.value a renvoyé une chaîne vide lors de l'itération à travers les valeurs de temps. Vérification de IsNumeric travaillé:

Private Sub ProcessAssignments(T As Task) 

    Dim A As Assignment 
    Dim tsvsHours As TimeScaleValues 
    Dim tsvsCosts0 As TimeScaleValues 
    Dim dblWork As Double 
    Dim curCostClassA As Double 


    ' Process assignments 
    For Each A In T.Assignments 
     ' Get the timescale collection objects for Hours and Costs 
     tsvsHours = A.TimeScaleData(
      StartDate:=T.BaselineStart, 
      EndDate:=T.BaselineFinish, 
      Type:=PjAssignmentTimescaledData.pjAssignmentTimescaledBaselineWork, 
      TimeScaleUnit:=PjTimescaleUnit.pjTimescaleMonths, 
      Count:=1) 

     tsvsCosts0 = A.TimeScaleData(
      StartDate:=T.BaselneStart, 
      EndDate:=T.BaselineFinish, 
      Type:=PjAssignmentTimescaledData.pjAssignmentTimescaledBaselineCost, 
      TimeScaleUnit:=PjTimescaleUnit.pjTimescaleMonths, 
      Count:=1) 

     ' Iterate through the assignment timescalevalues 
     For i As Integer = 1 To tsvsCosts0.Count 
      If IsNumeric(tsvsCosts0(i).Value) = True Then 'Cannot process non-working times with an empty string value 

       ' Get the hours from the tsvsHours collection 
       If IsNumeric(tsvsHours(i).Value) Then 
        dblWork = CDbl(tsvsHours(i).Value/60) 
       Else 
        dblWork = 0 
       End If 

       ' Get the costs from the Baseline collection 
       If IsNumeric(tsvsCosts0(i).Value) Then 
        curCostClassA = tsvsCosts0(i).Value 
       Else 
        curCostClassA = 0 
       End If 


       ' Do stuff here 

      End If 
     Next i 

     tsvsHours = Nothing 
     tsvsCosts0 = Nothing 

    Next A 
End Sub