获取持续时间时间VBA中任务的单位

Question

VBA中是否有方法可以调用以获取特定任务的时间单位（如d，ed，hr，min等）？我目前正在创建一个宏，它在两个持续时间字段之间取一个delta。我得到了正确的号码，但想附上一个时间单位。

Answer 1

使用GetField方法将任务字段值作为显示在用户界面中。例如：

Public Function GetUnits() As String

    Dim diplayValue As String
    diplayValue = ActiveProject.Tasks(1).GetField(pjTaskDuration)
    ' strip off numeric portion
    GetUnits = Mid$(diplayValue, Len(CStr(Val(diplayValue))) + 1)

End Function