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

在VBA中是否有我可以调用的方法来获取特定任务的时间单位，如d、ed、hr、min等？我目前正在制作一个宏，它在两个持续时间字段之间取一个增量。我得到了正确的数字，但希望在其上附加一个时间单位。

使用此方法返回用户界面中显示的任务字段值。例如：

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

---

忽视否决票；它可能来自一个对微软项目一无所知的人。这是一个完全合理的MS Project VBA问题。