教你如何跟踪缺陷生存状态

joshfang

1. Function Bug_CanPost
   
2. 'Enter code to be executed before current bug is posted
   
3. 'if you want to abort posting, use Bug_CanPost = False
   
4. 
   
5. On Error Resume Next
   
6. 
   
7. Dim detected_date
   
8. Dim closing_date
   
9. 
   
10. 'Determine if "Defect Status" is closed
    
11. If fields.Field("BG_USER_05").Value = "Closed" Then
    
12. ' Format dates
    
13. ' detected_date = DateValue(fields.Field("BG_DETECTED_DATE").Value)
    
14. ' closing_date = DateValue(fields.Field("BG_CLOSING_DATE").Value)
    
15. 
    
16. detected_date = fields.Field("BG_DETECTED_DATE").Value
    
17. closing_date = fields.Field("BG_CLOSING_DATE").Value
    
18. 
    
19. ' Determine the number of week days between defect "Detected on Date" and "Closing Date"
    
20. fields.Field("BG_USER_08").Value = DateDiff("h", detected_date, closing_date)
    
21. End If
    
22. 
    
23. End Function

复制代码