VBScript DateDiff 월

Question

두 날짜 사이의 월간 날짜 차이에 대한 문제가 있습니다. 다음은 샘플입니다

DateDiff("m","2014-10-17","2014-10-30") 

한 달 미만이기 때문에 위의 코드는 0개월을 반환합니다. 하지만,

DateDiff("m","2014-10-17","2014-11-01") 

은 15 일로 표시되지 않으므로 1을 반환합니다.

내 문제는이 두 날짜가 이미 한 달을 초과하는지보고 싶지만 날짜의 한 달 부분이 변경된 경우에만 1 개월을 계산하는 것으로 보입니다.

Answer 1

DateDiff은 첫 번째 매개 변수에 정의 된 정밀도로 두 개의 시간 소인 사이의 기간을 계산합니다. 귀하의 질문에 설명하신 내용과 의견은 오히려 다음과 같은 것을 찾고있는 것 같습니다.

ds1 = "2014-10-17" 
ds2 = "2014-10-30" 

d1 = CDate(ds1) 
d2 = CDate(ds2) 

diff = DateDiff("m", d1, d2) 
If diff > 0 And Day(d2) < Day(d1) Then diff = diff - 1 

WScript.Echo diff & " full months have passed between " & ds1 & " and " & ds2 & "." 

Answer 2

'DateDiff ("d", date1, date2)'를 사용하여 두 날짜 간의 일일 차이를 계산할 수 있습니다. 그런 다음 30 일을 나누어 전체 월수를 계산하십시오.

다음은 예입니다.

monthDiff = int(DateDiff("d","2014-10-17","2014-11-01")/30) 

알다시피, 달의 날짜는 월별로 다릅니다. 예를 들어, 11 월은 30 일이고 12 월은 31 일입니다.

첫 번째 날이 11 월이고 월 31 일을 사용하려면 월 30 일을 사용하고 첫날 12 월을 사용하려면 코드에 달 정보를 처리하는 데 필요한 일 수와 일상적인 테이블이 필요합니다.