..

ArinWarev1/Calculator/CRenewable.vb

@@ -79,8 +79,12 @@
 
         '///만약값이 서울   방향이 남  이엇을경우에는  해당 일사데이터를 찾는게 목적이에요. 여기서 서울의 코드값은 찾을수잇어요
         '//그담이 방향 남에 맞는 일사데이터를 찾아야하는데.. 일사데이터 코드로는 못찾으니깐. 이름으로 찾아요.
-        '//
-        Dim 일사이름 As String = Dr신재생.집열판방위 & "(45)"  '//이렇게되면  남(45)  라는 최종이름이 되겟죠?
+        '//이름 45도를 앞에 붙이기 200915
+
+
+        Dim 일사이름 As String = "45도" & Dr신재생.집열판방위 & "향"  '//이렇게되면  남(45)  라는 최종이름이 되겟죠?
+        If Dr신재생.집열판방위 = "수평" Then 일사이름 = "수평면"
+
         Dim Drow평균일사() As DS.weather_ilsaRow = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & _
                                                                               "' and 설명='" & 일사이름 & "'"), DS.weather_ilsaRow())
         '//그렇게해서 서울의 코드에 해당하는 pcode 와  이름이   남(45)로 되어잇는 일사데이터테이블에서 데이터를 검색하게되겟죠?
@@ -328,9 +332,14 @@
 
 
         '// 신재생에너지 자립률 추가(2017.01.20)
+        If (Q_H_sol_out_m + Q_W_sol_out_m) = 0 Then
+            H_W_ratio = 0 ' Q_H_sol_out_m / (Q_H_sol_out_m + Q_W_sol_out_m)
 
-        H_W_ratio = Q_H_sol_out_m / (Q_H_sol_out_m + Q_W_sol_out_m)
-        Q_H_sol_out_net = Q_H_sol_out_m + H_W_ratio * W_sol_aux_m * 2.75
+        Else
+            H_W_ratio = Q_H_sol_out_m / (Q_H_sol_out_m + Q_W_sol_out_m)
+        End If
+
+        '   Q_H_sol_out_net = Q_H_sol_out_m + H_W_ratio * W_sol_aux_m * 2.75
         Q_W_sol_out_net = Q_W_sol_out_m + (1 - H_W_ratio) * W_sol_aux_m * 2.75