例
Dim oraIDS as OraIntervalDS
'Create an OraIntervalDS using a string which represents 1 day and 12 hours
Set oraIDS = oo4oSession.CreateOraIntervalDS("1 12:0:0.0")
'totalDays is set to 1.5 which represents an interval of 1.5 days
totalDays = oraIDS.TotalDays