안녕하세요.

아는대로 이런 저런 방법 다 해봤는데 초보다 보니 한계가 있어

처리 속도가 너무 느려서 도움을 요청합니다.

mssql 2008 R2  +  vb 6.0으로 작업중입니다.

-----------------------------------------------------------------------------------------

[원하는 데이터]

모든 호실의 사용기간 ( 2017-04-01 ~ 2017-04-30 )의 Elgum 사용량 합 및 계량기값

조건1 : Dailytable_local.FLOOR =  a2mst.a202 , 

             Dailytable_local.HOSILNO =  substring(a2mst.a203,1,4) 

조건2 : 호실별 사용한 날짜의 사용량 합을 구한다.

             단, 공동 사용시 해당 일의 사용량은 사용 인원으로 나누어 계산한다.

             (a203 필드의 뒤 "-1" , "-2"로 공동사용 인원수를 체크한다.) 

조건3: a292 값이 0 인 사람은 사용하지 않은것으로 간주하고 공동 사용자에게 부담 시킨다.(1 인 사람만 계산한다)

            호실별로 최소 1인은 사용을 했음.

ex)  floor =  '03' , hosilno = '0301' , 사용기간 : 2017-04-01 ~ 2017-04-30

0301호실은 2명 사용중임

(1) 0301-1 A회사 a292 = 0 이므로 사용량 없음

(2) 0301-1 이영식 2017-04-06 ~ 2017-04-30 까지 사용량의 1/2

(3) 0301-2 B회사 2017-04-01 ~2017-04-05까지 사용량 전체    +  2017-04-06~2017-04-20 까지의 1/2

(4) 0301-2 이지웅 2017-04-06 ~ 2017-04-30 까지 사용량의 1/2

이것저것 해보다가 결국  하루씩 체크해서 사용량 계산하여 합산하는 방향으로 가려고 하는데 속도가 너무 느립니다.

테이블1 :   Dailytable_local     일자별 검침 계량기 값

모든 호실의 일자별 데이터가 저장되어 있습니다.

테이블2 : a2mst   호실 사용 현황

'------------------------------- 아래는 VB 코드 입니다 --------------------------------

Dim c%

Dim Td as integer

Dim SD as string , ED as String , Sdate as String

Dim cmd as Sting , Dcmd as String

Dim DbField  as String

Dim FLoor as String , Hosilno as String

Floor = "03"

Hosilno = "0301"

DbField = "Elgum"

Sdate = "2017-04-01"            '시작일

Td = 30

                                  For c% = 1 To Td    '총 일수 만큼 하루씩 돌린다.
                             
                                            '>>>>>>>>>>>>>>>>>>>>>>> 검침 수량 계산 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                            SD = Format(DateAdd("D", -1 + c%, SDate), "yyyy-mm-dd")
                                            ED = Format(DateAdd("D", c%, SDate), "yyyy-mm-dd")
        
                                            If c% = 1 Then
                                                cmd = "select sum(gap) from ("
                                            End If
                                            cmd = cmd & Chr(13) & " select "
                                            cmd = cmd & Chr(13) & " ("
                                            cmd = cmd & Chr(13) & "   isnull((select " & DbField & " from DailyTable_Local "
                                            cmd = cmd & Chr(13) & "   where date = '" & ED & "' and floor = '" & Floor & "' and HOSILNO = '" & HOSILNO  & "'),0) "
                                            cmd = cmd & Chr(13) & " - "
                                            cmd = cmd & Chr(13) & "   isnull((select " & DbField & " from DailyTable_Local "
                                            cmd = cmd & Chr(13) & "   where date = '" & SD & "' and floor = '" & Floor & "' and HOSILNO = '" & HOSILNO  & "'),0) "
                                            cmd = cmd & Chr(13) & " ) "
                                            cmd = cmd & Chr(13) & " / "   '나누기
                                                '나눌값 (해당일자의 호실수)###################
                                                cmd = cmd & Chr(13) & " case when  "

                                                Dcmd = Chr(13) & " (Select COUNT(a202) from a2mst where "
                                                Dcmd = Dcmd & Chr(13) & " a202 = '" & Floor & "' "
                                                Dcmd = Dcmd & Chr(13) & " And substring(a203,1,4) = '" & HOSILNO  & "'"
                                                Dcmd = Dcmd & Chr(13) & " AND a292 = 1 "    '공실여부(0:공실 , 1:입주)
                                                Dcmd = Dcmd & Chr(13) & " And  (   (a206 <= '" & SD & "'  And a207 >= '" & SD & "' )"
                                                Dcmd = Dcmd & Chr(13) & " or (a206 >= '" & SD & "'  And a206 <= '" & ED & "' and a207 >= '" & ED & "' )   )"
                                                Dcmd = Dcmd & Chr(13) & " )"

                                                cmd = cmd & Dcmd & Chr(13) & " = 0 then 1 else" & Dcmd & " end "
                                                '#############################################
                                           
                                            cmd = cmd & Chr(13) & " as gap"
                                           
                                            If c% = Td Then '마지막일때
                                                cmd = cmd & Chr(13) & " ) as T1"
                                            Else
                                                cmd = cmd & Chr(13) & " union all "   '계속 더해준다
                                            End If
                                            
                                   Next c%

'-------------------  실행시 작성된 쿼리문 입니다. -------------------------------

select sum(gap) from (
 select
    (
     isnull((select (elgum) from DailyTable_Local
     where date = '2017-04-01' and floor = '03' and HOSILNO = '0301'),0)
   -
     isnull((select all(Elgum) from DailyTable_Local
     where date = '2017-03-31' and floor = '03' and HOSILNO = '0301'),0)
     )
   /
   case when 
      (Select COUNT(a202) from a2mst
        where a202 = '03'
        And substring(a203,1,4) = '0301'
        AND a292 = 1
        And  (   (a206 <= '2017-03-31'  And a207 >= '2017-03-31' )
        or (a206 >= '2017-03-31'  And a206 <= '2017-04-01' and a207 >= '2017-04-01' )   )
      )
     = 0
    then 1
    else
     (Select COUNT(a202) from a2mst where
      a202 = '03'
      And substring(a203,1,4) = '0301'
       AND a292 = 1
       And  (   (a206 <= '2017-03-31'  And a207 >= '2017-03-31' )
       or (a206 >= '2017-03-31'  And a206 <= '2017-04-01' and a207 >= '2017-04-01' )   )
     )
     end
 as gap
 union all
  select
    (
     isnull((select (elgum) from DailyTable_Local
     where date = '2017-04-02' and floor = '03' and HOSILNO = '0301'),0)
   -
     isnull((select all(Elgum) from DailyTable_Local
     where date = '2017-04-01' and floor = '03' and HOSILNO = '0301'),0)
     )
   /
   case when 
      (Select COUNT(a202) from a2mst
        where a202 = '03'
        And substring(a203,1,4) = '0301'
        AND a292 = 1
        And  (   (a206 <= '2017-04-01'  And a207 >= '2017-04-01' )
        or (a206 >= '2017-04-01'  And a206 <= '2017-04-02' and a207 >= '2017-04-02' )   )
      )
     = 0
    then 1
    else
     (Select COUNT(a202) from a2mst where
      a202 = '03'
      And substring(a203,1,4) = '0301'
       AND a292 = 1
       And  (   (a206 <= '2017-03-31'  And a207 >= '2017-04-01' )
       or (a206 >= '2017-04-01'  And a206 <= '2017-04-02' and a207 >= '2017-04-02' )   )
     )
     end
 as gap
 
 
 .....중략
 
 
 union all
 select
    (
     isnull((select (elgum) from DailyTable_Local
     where date = '2017-04-02' and floor = '03' and HOSILNO = '0301'),0)
   -
     isnull((select all(Elgum) from DailyTable_Local
     where date = '2017-04-01' and floor = '03' and HOSILNO = '0301'),0)
     )
   /
   case when 
      (Select COUNT(a202) from a2mst
        where a202 = '03'
        And substring(a203,1,4) = '0301'
        AND a292 = 1
        And  (   (a206 <= '2017-04-29'  And a207 >= '2017-04-29' )
        or (a206 >= '2017-04-29'  And a206 <= '2017-04-30' and a207 >= '2017-04-30' )   )
      )
     = 0
    then 1
    else
     (Select COUNT(a202) from a2mst where
      a202 = '03'
      And substring(a203,1,4) = '0301'
       AND a292 = 1
       And  (   (a206 <= '2017-04-29'  And a207 >= '2017-04-29' )
       or (a206 >= '2017-04-29'  And a206 <= '2017-04-30' and a207 >= '2017-04-30' )   )
     )
     end
 as gap
 ) as T1

이런식으로 3천개이상 호실 및 검침 5개 필드 모두를 계산 해야 하는데  한 건당 1초 정도 걸리는것 같습니다.

어떻게 해야 빨라질까요?