언젠가 계산을 수행하기 위해 VB 스크립트에서 설명이 필요함

Question

현재 VB Script를 사용하여 HP 응용 프로그램 수명주기 관리 도구에서 워크 플로 스크립트를 정의하고 있습니다.

내 문제는 특정 스프린트 (시간대)에서 다양한 개발자가 취한 노력을 계산하기위한 Excel 차트를 생성해야한다는 것입니다. 동일한 조건을 생성하는 과정에서 주말 날짜 (즉, 토요일 및 일요일)를 차트에서 제거하는 것입니다. 스프린트 스타트 데이트가 주말에 해당하는 경우, 날짜는 자동으로 다음 월요일로 초기화되고 스프린트 종료 날짜가 주말에 해당하면 종료 날짜는 방금 통과 한 금요일로 표시되어야합니다. 나는이 두 조건을 확인했다. 저는 이틀 동안 토요일과 일요일을 면도하려고 노력하고 있습니다. 제발 저를 도우십시오. 또한 내 의견이 필요하면 알려주십시오.

Answer 1

@Sabaresh, 나는 이것이 당신이 찾고있는 것이라고 믿습니다.

팁 : Microsoft의 신뢰할 수있는 WSH 참조를 Windows 도움말 파일로 다운로드하는 방법은 this answer을 참조하십시오.

Option Explicit 

Dim dCandidateDate, dActualStartDate, dActualEndDate 

dCandidateDate = CDate("2012/08/18") 
dActualStartDate = SprintStartDate(dCandidateDate) 

dCandidateDate = CDate("2012/09/16") 
dActualEndDate = SprintEndDate(dCandidateDate) 

WScript.Echo "Sprint date range: " _ 
     & dActualStartDate & " through " & dActualEndDate 

' 
' Return following Monday if dCandidateDate is 
' Saturday or Sunday. 
' 
Function SprintStartDate(dCandidateDate) 
    Dim nWeekday : nWeekday = DatePart("w", dCandidateDate) 
    Select Case nWeekday 
     Case 7 ' Saturday 
      SprintStartDate = DateAdd("d", 2, dCandidateDate) 
     Case 1 ' Sunday 
      SprintStartDate = DateAdd("d", 1, dCandidateDate) 
     Case Else 
      SprintStartDate = dCandidateDate 
    End Select 
End Function 

' 
' Return previous Friday if dCandidateDate is 
' Saturday or Sunday. 
' 
Function SprintEndDate(dCandidateDate) 
    Dim nWeekday : nWeekday = DatePart("w", dCandidateDate) 
    Select Case nWeekday 
     Case 7 ' Saturday 
      SprintEndDate = DateAdd("d", -1, dCandidateDate) 
     Case 1 ' Sunday 
      SprintEndDate = DateAdd("d", -2, dCandidateDate) 
     Case Else 
      SprintEndDate = dCandidateDate 
    End Select 
End Function