KICT/ECO2-OD
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

If DR존.프로필 = "5000" Then '주거부문일 경우 냉방 => If Program = EProgram.친환경평가 Then ' If DR존.프로필

Browse Source
This commit is contained in:
ykh
2025-07-17 22:57:43 +09:00
parent 01943e2958
commit 1de072b424
4 changed files with 103 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ArinWarev1/Calculator-OD/Zone/CZone.vb
View File

@@ -161,7 +161,7 @@
'//존의 프로필설정에대한 실제 프로필의 데이터를 가져옴
Dim DR프로필() As DS.tbl_profile_odRow = CType(DSET1.tbl_profile_od.Select("code='0'"), DS.tbl_profile_odRow())
If DR프로필.GetUpperBound(0) = -1 Then
MsgBox("존=" & DR존.code & " 의 프로필=" & DR존.프로필 & " 의 데이터가 존재하지않습니다", MsgBoxStyle.Critical, "확인")
MsgBox("존=" & DR존.code & " 의 프로필=0 의 데이터가 존재하지않습니다", MsgBoxStyle.Critical, "확인")
Else
'Log.AppendLine(" >> 존의 프로필코드(" & DR존.프로필 & ") 에 해당하는 프로필정보를 가져옵니다")
t_h_op_d = TOIT(DR프로필(0).운전시간난방) ' Worksheets("설정조건").Range("사용시작시간1").Offset(5, i_count_profile)
@@ -807,7 +807,8 @@
Else
Dim Dr월에너지요구량 As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row)
If DR존.프로필 = "5000" Then '주거부문일 경우 냉방 가동시간 3.8시간 250625
If Program = EProgram.친환경평가 Then ' If DR존.프로필 = "5000" Then '주거부문일 경우 냉방 가동시간 3.8시간 250625
Q_h_b_op = TOSG(Q_h_b_op) * 3.8 / 24
Q_vh_b_op = TOSG(Q_vh_b_op) * 3.8 / 24
End If