JAVA 웹 과 비교를 하기위한 기타 기능 추가

ArinWarev1/Calculator-OD/Zone/CZone.vb

@@ -107,9 +107,9 @@
 
             For i_count_month As Short = 0 To 12 '(2)    --월전체의 루프?
 
-                If i_count_HeatCool = 1 AndAlso i_count_month = 1 Then
-                    Console.WriteLine("col")
-                End If
+                'If i_count_HeatCool = 1 AndAlso i_count_month = 1 Then
+                '    Console.WriteLine("col")
+                'End If
 
                 Work_msg("요구량계산중..." & CStr(IIf(i_count_HeatCool = 1, "난방", "냉방")) & "(" & i_count_month & "/12)") : Work_plus()
                 Dim Mon As String = "M" & Format(i_count_month, "00")   '//저장소의 필드명이 M00 식으로되어있다.
@@ -733,6 +733,9 @@
                         Q_w_b = TOSG(T, DRProf.일일급탕요구량) * A_B * d_op_mth '===============d_op(i_count_month) 2010.2.21 수정
                     End If
 
+                    Console.WriteLine(String.Format("mon={0},Q_l_b ={1},Q_w_b ={2}", i_count_month, Q_l_b, Q_w_b))   '//191120
+
+
                     Dim Dr최대부하 As New C최대냉난방부하OD.Citem(DR존.code) ' DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & DR존.code & "'")(0), DSR.최대냉난방부하Row)
 
                     If i_count_HeatCool = 1 Then