0 And CalcET () < val(valStartB ()) Then formula = False Else formula = True End If Return formula End Function Public Function Object_Visibility5 () As Boolean Dim formula As Boolean If CalcET () >= val(valStartB ()) And CalcET () < val(valStartC ()) Then formula = False Else formula = True End If Return formula End Function Public Function Object_Visibility6 () As Boolean Dim formula As Boolean If CalcET () >= val(valStartC ()) And CalcET () < val(valStartD ()) Then formula = False Else formula = True End If Return formula End Function Public Function Object_Visibility7 () As Boolean Dim formula As Boolean If CalcET () >= val(valStartD ()) And CalcET () < val(valStartE ()) Then formula = False Else formula = True End If Return formula End Function Public Function Object_Visibility8 () As Boolean Dim formula As Boolean If CalcET () >= val(valStartE ()) And CalcET () < val(valStartF ()) Then formula = False Else formula = True End If Return formula End Function Public Function Object_Visibility9 () As Boolean Dim formula As Boolean If CalcET () >= val(valStartF ()) And CalcET () < val(valStartG ()) Then formula = False Else formula = True End If Return formula End Function Public Function Object_Visibility10 () As Boolean Dim formula As Boolean If CalcET () >= val(valStartG ()) Then formula = False Else formula = True End If Return formula End Function Public Function lblET () As String Dim formula As String formula = "ET-luku" Return formula End Function Public Function lblSmallCons () As String Dim formula As String formula = "Vähän kuluttava" Return formula End Function Public Function lblBuildingETclass () As String Dim formula As String formula = "Rakennuksen ET-luokka" Return formula End Function Public Function lblHighCons () As String Dim formula As String formula = "Paljon kuluttava" Return formula End Function Public Function CalcRangeA () As String Dim formula As String formula = ("- " & (Format (val(valStartB ()) - 1, "#,##0"))) Return formula End Function Public Function CalcRangeB () As String Dim formula As String formula = ((valStartB () & " - ") & (Format (val(valStartC ()) - 1, "#,##0"))) Return formula End Function Public Function CalcRangeC () As String Dim formula As String formula = ((valStartC () & " - ") & (Format (val(valStartD ()) - 1, "#,##0"))) Return formula End Function Public Function CalcRangeD () As String Dim formula As String formula = ((valStartD () & " - ") & (Format (val(valStartE ()) - 1, "#,##0"))) Return formula End Function Public Function CalcRangeE () As String Dim formula As String formula = ((valStartE () & " - ") & (Format (val(valStartF ()) - 1, "#,##0"))) Return formula End Function Public Function CalcRangeF () As String Dim formula As String formula = ((valStartF () & " - ") & (Format (val(valStartG ()) - 1, "#,##0"))) Return formula End Function Public Function CalcRangeG () As String Dim formula As String formula = (valStartG () & " -") Return formula End Function Public Function valETclass () As String Dim formula As String formula = "" Return formula End Function Public Function lblETwUnit () As String Dim formula As String formula = "Rakennuksen energiatehokkuusluku (ETluku, kWh/brm²/vuosi):" Return formula End Function Public Function lblETscale () As String Dim formula As String formula = "Energiatehokkuusluvun luokitteluasteikko:" Return formula End Function Public Function CalcET () As Decimal Dim formula As Decimal If valArea () <> "" Then If (CalcConsSum () / CDbl(valArea ())) - Round(CalcConsSum () / CDbl(valArea ()) - 0.5) <> 0 Then formula = (Round(CalcConsSum () / CDbl(valArea ()) - 0.5) + 1) Else formula = (CalcConsSum () / CDbl(valArea ())) End If Else formula = (-1) End If Return formula End Function Public Function Object_Visibility12 () As Boolean Dim formula As Boolean If CalcET () < 0 Then formula = True Else formula = False End If Return formula End Function Public Function valBuildingType () As String Dim formula As String formula = "" Return formula End Function Public Function valAddress () As String Dim formula As String formula = "" Return formula End Function Public Function valCity () As String Dim formula As String formula = "" Return formula End Function Public Function valBuiltYear () As String Dim formula As String formula = "" Return formula End Function Public Function valBuildingID () As String Dim formula As String formula = "" Return formula End Function Public Function valCertGranter () As String Dim formula As String formula = "" Return formula End Function Public Function valCertOrderer () As String Dim formula As String formula = "" Return formula End Function Public Function valCertGrantedDate () As String Dim formula As String formula = "" Return formula End Function Public Function valCertExpiresDate () As String Dim formula As String formula = "" Return formula End Function Public Function lblCaption () As String Dim formula As String formula = "ENERGIATODISTUS" Return formula End Function Public Function lblBuilding () As String Dim formula As String formula = "Rakennus" Return formula End Function Public Function lblBuildingType () As String Dim formula As String formula = "Rakennustyyppi:" Return formula End Function Public Function lblAddress () As String Dim formula As String formula = "Osoite:" Return formula End Function Public Function lblBuiltYear () As String Dim formula As String formula = "Rakennusvuosi:" Return formula End Function Public Function lblBuildingID () As String Dim formula As String formula = "Rakennustunnus:" Return formula End Function Public Function lblCertGranted () As String Dim formula As String formula = "Energiatodistus on annettu" Return formula End Function Public Function lblCertGrantedOpt1 () As String Dim formula As String formula = "rakennuslupamenettelyn yhteydessä ja perustuu laskennalliseen kulutukseen" Return formula End Function Public Function lblCertGrantedOpt2 () As String Dim formula As String formula = "energiakatselmuksen yhteydessä ja perustuu toteutuneeseen kulutukseen" Return formula End Function Public Function lblCertGrantedOpt3 () As String Dim formula As String formula = "erillisen tarkastuksen yhteydessä ja perustuu toteutuneeseen kulutukseen" Return formula End Function Public Function lblCertGranter () As String Dim formula As String formula = "Todistuksen antaja:" Return formula End Function Public Function lblCertOrderer () As String Dim formula As String formula = "Todistuksen tilaaja" Return formula End Function Public Function lblCertGranterSignature () As String Dim formula As String formula = "Allekirjoitus:" Return formula End Function Public Function lblCertGrantedDate () As String Dim formula As String formula = "Todistuksen antamispäivä:" Return formula End Function Public Function lblCertExpires () As String Dim formula As String formula = "Viimeinen voimassaolopäivä:" Return formula End Function Public Function lblETCalcRules () As String Dim formula As String formula = "Energiatehokkuusluvun laskenta" Return formula End Function Public Function lblConsHistory () As String Dim formula As String formula = "Toteutuneet energian ja veden kulutukset" Return formula End Function Public Function lblConsConversion () As String Dim formula As String formula = "Toteutuneiden kulutusten muuntaminen energiatehokkuusluvun laskentaa varten" Return formula End Function Public Function lblHVACcaption () As String Dim formula As String formula = "Rakennuksen sisäilmasto sekä ilmanvaihto- ja lämmitysjärjestelmä" Return formula End Function Public Function CalcHVACopt1 () As String Dim formula As String If UCase(valHVACopt ()) = "1" Then formula = "x" Else formula = "" End If Return formula End Function Public Function CalcHVAcopt2 () As String Dim formula As String If UCase(valHVACopt ()) = "2" Then formula = "x" Else formula = "" End If Return formula End Function Public Function CalcHVACopt3 () As String Dim formula As String If UCase(valHVACopt ()) = "3" Then formula = "x" Else formula = "" End If Return formula End Function Public Function CalcHVACadv1 () As String Dim formula As String If UCase(valHVAChasValves ()) = "-1" Then formula = "x" Else formula = "" End If Return formula End Function Public Function CalcHVACadv2 () As String Dim formula As String If UCase(valHVAChasFilter ()) = "-1" Then formula = "x" Else formula = "" End If Return formula End Function Public Function CalcHVACadv3 () As String Dim formula As String If UCase(valHVAChasHeatRec ()) = "-1" Then formula = "x" Else formula = "" End If Return formula End Function Public Function CalcHVACadv4 () As String Dim formula As String If UCase(valHVAChasAc ()) = "-1" Then formula = "x" Else formula = "" End If Return formula End Function Public Function valHVACmeasuredYear () As String Dim formula As String formula = "-" Return formula End Function Public Function valHVACMaintYear () As String Dim formula As String formula = "-" Return formula End Function Public Function valHVACeffYear () As String Dim formula As String formula = "-" Return formula End Function Public Function valHVACheatMaintYear () As String Dim formula As String formula = "-" Return formula End Function Public Function CalcConsSum () As Decimal Dim formula As Decimal formula = ((CalcConsHeatEne () + CalcConsElec_Top ()) + CalcConsCold ()) Return formula End Function Public Function valHeatSource1_Name () As String Dim formula As String formula = "" Return formula End Function Public Function valHeatSource2_Name () As String Dim formula As String formula = "" Return formula End Function Public Function valHeatSource1_Year () As String Dim formula As String formula = "" Return formula End Function Public Function valHeatSource2_Year () As String Dim formula As String formula = "" Return formula End Function Public Function valConsElecYear () As String Dim formula As String formula = "" Return formula End Function Public Function valConsCold_District_Year () As String Dim formula As String formula = "" Return formula End Function Public Function valConsCold_Elec_Year () As String Dim formula As String formula = "" Return formula End Function Public Function valConsWater_Total_Year () As String Dim formula As String formula = "" Return formula End Function Public Function valConsWater_Warm_Year () As String Dim formula As String formula = "" Return formula End Function Public Function valHeatRef_City () As String Dim formula As String formula = "" Return formula End Function Public Function valHeatIndex_RefCity_NormalYear () As String Dim formula As String formula = "" Return formula End Function Public Function valHeatIndex_RefCity_RefYear () As String Dim formula As String formula = "" Return formula End Function Public Function valHeatIndex_CorrectFactor () As String Dim formula As String formula = "" Return formula End Function Public Function lblConsCaption () As String Dim formula As String formula = "RAKENNUKSEN ENERGIANKULUTUS" Return formula End Function Public Function lblConsHeat () As String Dim formula As String formula = "Lämmitysenergian kulutus *" Return formula End Function Public Function lblConsElec () As String Dim formula As String formula = "Kiinteistösähkön kulutus" Return formula End Function Public Function lblConsCold () As String Dim formula As String formula = "Jäähdytysenergian kulutus *" Return formula End Function Public Function lblConsSum () As String Dim formula As String formula = "Yhteensä" Return formula End Function Public Function lblArea () As String Dim formula As String formula = "Rakennuksen bruttoala" Return formula End Function Public Function lblBuildingET () As String Dim formula As String formula = "Rakennuksen energiatehokkuusluku" Return formula End Function Public Function lblkWhPerYear () As String Dim formula As String formula = "kWh/vuosi" Return formula End Function Public Function lblkWhPerAreaPerYear () As String Dim formula As String formula = "kWh/brm²/vuosi" Return formula End Function Public Function lblETCalcInfo1 () As String Dim formula As String formula = "* Uudisrakennuksen energiankulutus lasketaan käyttäen" Return formula End Function Public Function lblETCalcInfo2 () As String Dim formula As String formula = "RakMk D5 Liite 1 säävyöhyke III (JyväskyläLuonetjärvi) mukaisia säätietoja." Return formula End Function Public Function lblConsType () As String Dim formula As String formula = "Kulutuskohde" Return formula End Function Public Function lblConsValue () As String Dim formula As String formula = "Kulutus" Return formula End Function Public Function lblConsUnit () As String Dim formula As String formula = "Yksikkö" Return formula End Function Public Function lblConsYear () As String Dim formula As String formula = "Vuosi" Return formula End Function Public Function lblConsHeatTable () As String Dim formula As String formula = "Lämmitysenergia" Return formula End Function Public Function lblConsElecTable () As String Dim formula As String formula = "Kiinteistösähkö" Return formula End Function Public Function lblConsElecMeasured () As String Dim formula As String formula = "Mitattu kiinteistösähkö" Return formula End Function Public Function lblConsColdTable () As String Dim formula As String formula = "Jäähdetysenergia" Return formula End Function Public Function lblConsColdDistrict () As String Dim formula As String formula = "Kaukojäähdytys" Return formula End Function Public Function lblConsColdElec () As String Dim formula As String formula = "Jäähdytyssähkö" Return formula End Function Public Function lblConsWaterTable () As String Dim formula As String formula = "Vedenkulutus" Return formula End Function Public Function lblConsWaterTotal () As String Dim formula As String formula = "Kokonaiskulutus" Return formula End Function Public Function lblConsWaterWarm () As String Dim formula As String formula = "Lämpimän veden kulutus" Return formula End Function Public Function lblHeatRefCity () As String Dim formula As String formula = "Vertailupaikkakunta:" Return formula End Function Public Function lblHeatIndexRefNormal () As String Dim formula As String formula = "Normaalivuoden lämmitystarveluku vertailupaikkakunnalla:" Return formula End Function Public Function lblHeatIndexYear () As String Dim formula As String formula = "Vuoden" Return formula End Function Public Function valHeatIndex_Year () As String Dim formula As String formula = "" Return formula End Function Public Function lblHeatIndexCorrectFactor () As String Dim formula As String formula = "Paikkakuntakohtainen korjauskerroin Jyväskylään k2:" Return formula End Function Public Function lblHeatEfficiencyFactor () As String Dim formula As String formula = "Lämmöntuottojärjestelmän hyötysuhde:" Return formula End Function Public Function lblHVACopt1 () As String Dim formula As String formula = "Painovoimainen ilmanvaihto" Return formula End Function Public Function lblHVACopt2 () As String Dim formula As String formula = "Koneellinen poistoilmanvaihto" Return formula End Function Public Function lblHVACopt3 () As String Dim formula As String formula = "Koneellinen tulo- ja poistoilmanvaihto" Return formula End Function Public Function lblHVACheat () As String Dim formula As String formula = "Lämmönjakotapa:" Return formula End Function Public Function lblHVACheatMaintYear () As String Dim formula As String formula = "Lämmitysjärjestelmä on tasapainotettu vuonna" Return formula End Function Public Function lblHVACmaintYear () As String Dim formula As String formula = "Ilmanvaihtojärjestelmä on puhdistettu ja tasapainotettu vuonna" Return formula End Function Public Function lblHVACmeasuredYear () As String Dim formula As String formula = "Ilmanvaihdon ilmavirrat on mitattu ja todettu riittäviksi vuonna" Return formula End Function Public Function lblHVACeffYear () As String Dim formula As String formula = "Ilmastoinnin kylmälaitteiden kunto ja energiatehokkuus on tarkastettu vuonna" Return formula End Function Public Function lblHVACadvanced1 () As String Dim formula As String formula = "Ulkoilmaventtiilit" Return formula End Function Public Function lblHVACadvanced2 () As String Dim formula As String formula = "Tuloilman suodatus" Return formula End Function Public Function lblHVACadvanced3 () As String Dim formula As String formula = "Lämmöntalteenotto" Return formula End Function Public Function lblHVACadvanced4 () As String Dim formula As String formula = "Jäähdytys" Return formula End Function Public Function valHVACheat () As String Dim formula As String formula = "" Return formula End Function Public Function CalcConsHeatEne () As Decimal Dim formula As Decimal If valHeatIndex_CorrectFactor () <> "" And valHeatIndex_RefCity_NormalYear () <> "" And valHeatIndex_RefCity_RefYear () <> "" And valHeatSource1_Value () <> "" Then formula = (((val(replace(valHeatIndex_CorrectFactor (), ",", ".")) * (val(valHeatIndex_RefCity_NormalYear ()) / val(valHeatIndex_RefCity_RefYear ()))) * ((((val(valHeatSource1_Value ()) * CDbl(valHeat_EfficiencyFactor ())) + val(valHeatSource2_Value ())) + val(valConsHeatElec ())) - CalcConsWaterWarmEne ())) + CalcConsWaterWarmEne ()) Else formula = 0 End If Return formula End Function Public Function Font_Color () As Decimal Dim formula As Decimal If CalcConsHeatEne () < 0 Then formula = "Red" End If Return formula End Function Public Function Object_Visibility11 () As Boolean Dim formula As Boolean If CalcET () < 0 Then formula = True Else formula = False End If Return formula End Function Public Function lblHeatIndexYear1 () As String Dim formula As String formula = "lämmitystarveluku vertailuvuonna vertailupaikkakunnalla:" Return formula End Function Public Function CalcConsCold () As Decimal Dim formula As Decimal If valConsCold () <> "" Then formula = val(valConsCold ()) ElseIf valConsCold_District () <> "" Then formula = val(valConsCold_District ()) Else formula = 0 End If Return formula End Function Public Function Font_Color2 () As Decimal Dim formula As Decimal If CalcConsCold () < 0 Then formula = "Red" End If Return formula End Function Public Function CalcHeatEfficiencyFactor () As Decimal Dim formula As Decimal If valHeat_EfficiencyFactor () <> "" Then formula = val(valHeat_EfficiencyFactor ()) End If Return formula End Function Public Function CalcArea () As Decimal Dim formula As Decimal If valArea () <> "" Then formula = val(valArea ()) Else formula = 0 End If Return formula End Function Public Function CalcHeatSource1_Value () As Decimal Dim formula As Decimal If valHeatSource1_Value () <> "" Then formula = val(valHeatSource1_Value ()) Else formula = 0 End If Return formula End Function Public Function Object_Visibility13 () As Boolean Dim formula As Boolean If CalcHeatSource1_Value () = 0 Then formula = True Else formula = False End If Return formula End Function Public Function CalcHeatSource2_Value () As Decimal Dim formula As Decimal If valHeatSource2_Value () <> "" Then formula = val(valHeatSource2_Value ()) Else formula = 0 End If Return formula End Function Public Function Object_Visibility14 () As Boolean Dim formula As Boolean If CalcHeatSource2_Value () = 0 Then formula = True Else formula = False End If Return formula End Function Public Function CalcConsElec () As Decimal Dim formula As Decimal If valConsElec () <> "" Then formula = val(valConsElec ()) Else formula = 0 End If Return formula End Function Public Function Object_Visibility15 () As Boolean Dim formula As Boolean If CalcConsElec () = 0 Then formula = True Else formula = False End If Return formula End Function Public Function CalcConsCold_District () As Decimal Dim formula As Decimal If valConsCold_District () <> "" Then formula = val(valConsCold_District ()) Else formula = 0 End If Return formula End Function Public Function CalcConsCold_Elec () As Decimal Dim formula As Decimal If valConsCold_Elec () <> "" Then formula = val(valConsCold_Elec ()) Else formula = 0 End If Return formula End Function Public Function CalcConsWater_Total () As Decimal Dim formula As Decimal If valConsWater_Total () <> "" Then formula = val(valConsWater_Total ()) Else formula = 0 End If Return formula End Function Public Function CalcConsWater_Warm () As Decimal Dim formula As Decimal If valConsWater_Warm () <> "" Then formula = val(valConsWater_Warm ()) Else formula = 0 End If Return formula End Function Public Function CalcConsElec_Top () As Decimal Dim formula As Decimal If valConsElec_Top () <> "" Then formula = val(valConsElec_Top ()) Else formula = 0 End If Return formula End Function Public Function Font_Color1 () As Decimal Dim formula As Decimal If CalcConsElec_Top () < 0 Then formula = "Red" End If Return formula End Function Public Function valConsCold_ElecCalc () As String Dim formula As String formula = "" Return formula End Function Public Function CalcHeatElecInfo () As String Dim formula As String If valConsHeatElec () <> "" Then If UCase(valHeatElecInfoHelp ()) = "1" Then formula = (((((((lblHeatElecInfo () & "kWh * ") & (Format (val(valConsSepElecSquare ()), "#,##0"))) & " m² = ") & (Format (val(valConsHeatElec ()), "#,##0"))) & " ") & lblkWhPerYear ()) & chr(13)) Else formula = (((((lblHeatElecInfo1 () & " ") & (Format (val(valConsHeatElec ()), "#,##0"))) & " ") & lblkWhPerYear ()) & chr(13)) End If Else formula = "" End If Return formula End Function Public Function valConsCold_Elec_Measured () As String Dim formula As String formula = "" Return formula End Function Public Function valConsCold_Elec_Measured1 () As String Dim formula As String formula = "" Return formula End Function Public Function valConsCold_Elec_Measured2 () As String Dim formula As String formula = "" Return formula End Function Public Function lblAPhullCaption () As String Dim formula As String formula = "Ulkoseinät, ovet ja ikkunat" Return formula End Function Public Function lblAPfloorCaption () As String Dim formula As String formula = "Ylä- ja alapohja" Return formula End Function Public Function lblAPheatCaption () As String Dim formula As String formula = "Tilojen ja käyttöveden lämmitysjärjestelmät" Return formula End Function Public Function lblAPcaption () As String Dim formula As String formula = "HUOMIOT JA TOIMENPIDE-EHDOTUKSET" Return formula End Function Public Function lblAPHeat () As String Dim formula As String formula = "Lämpö" Return formula End Function Public Function lblAPElec () As String Dim formula As String formula = "Sähkö" Return formula End Function Public Function lblAPCold () As String Dim formula As String formula = "Kylmä" Return formula End Function Public Function lblAPTable () As String Dim formula As String formula = "Toimenpide-ehdotus" Return formula End Function Public Function lblAPSave () As String Dim formula As String formula = "Arvioitu energiansäästö (kWh/vuosi)" Return formula End Function Public Function valAPhull1 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhull2 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhull3 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhull1Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhull1Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhull1Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhull2Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhull2Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhull2Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhull3Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhull3Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhull3Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor1 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor2 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor3 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor1Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor1Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor1Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor2Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor2Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor2Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor3Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor3Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloor3Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat1 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat2 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat3 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat1Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat1Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat1Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat2Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat2Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat2Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat3Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat3Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHeat3Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPheatInfo () As String Dim formula As String formula = "" Return formula End Function Public Function valAPheatInfo1 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPheatInfo2 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPheatInfo3 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPheatInfo4 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloorInfo () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloorInfo1 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloorInfo2 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPfloorInfo3 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhullInfo () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhullInfo1 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhullInfo2 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPhullInfo3 () As String Dim formula As String formula = "" Return formula End Function Public Function lblAPHVACCaption () As String Dim formula As String formula = "Ilmanvaihto- ja ilmastointijärjestelmä" Return formula End Function Public Function lblAPlightCaption () As String Dim formula As String formula = "Valaistus, sähköiset erillislämmitykset ja muut järjestelmät" Return formula End Function Public Function lblAPSumCaption () As String Dim formula As String formula = "KAIKKIEN TOIMENPITEIDEN YHTEISVAIKUTUS" Return formula End Function Public Function lblNotes () As String Dim formula As String formula = "Lisämerkintöjä" Return formula End Function Public Function lblSummaryHeat () As String Dim formula As String formula = "Arvioitu lämmitysenergian säästö" Return formula End Function Public Function lblSummaryElec () As String Dim formula As String formula = "Arvioitu kiinteistösähköenergian säästö" Return formula End Function Public Function lblSummaryCold () As String Dim formula As String formula = "Arvioitu jäähdytysenergian (kylmäenergian) säästö" Return formula End Function Public Function lblSummaryETafter () As String Dim formula As String formula = "Rakennuksen energiatehokkuusluku kaikkien toimenpiteiden jälkeen" Return formula End Function Public Function lblSummaryETclass () As String Dim formula As String formula = "Energiatehokkuusluokka kaikkien toimenpiteiden toteutuksen jälkeen" Return formula End Function Public Function valAPHVAC1 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVAC2 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVAC3 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVAC1Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVAC1Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVAC1Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVAC2Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVAC2Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVAC2Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVAC3Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVAC3Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVAC3Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight1 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight2 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight3 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight1Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight1Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight1Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight2Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight2Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight2Cold () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight3Heat () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight3Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlight3Cold () As String Dim formula As String formula = "" Return formula End Function Public Function CalcSumHeat () As String Dim formula As String formula = (Format ((((((((((((((val(valAPfloor1Heat ()) + val(valAPfloor2Heat ())) + val(valAPfloor3Heat ())) + val(valAPHeat1Heat ())) + val(valAPHeat2Heat ())) + val(valAPHeat3Heat ())) + val(valAPhull1Heat ())) + val(valAPhull2Heat ())) + val(valAPhull3Heat ())) + val(valAPHVAC1Heat ())) + val(valAPHVAC2Heat ())) + val(valAPHVAC3Heat ())) + val(valAPlight1Heat ())) + val(valAPlight2Heat ())) + val(valAPlight3Heat ()), "#,##0")) Return formula End Function Public Function Object_Visibility () As Boolean Dim formula As Boolean If val(CalcSumHeat ()) = 0 Then formula = True Else formula = False End If Return formula End Function Public Function CalcSumElec () As String Dim formula As String formula = (Format ((((((((((((((val(valAPfloor1Elec ()) + val(valAPfloor2Elec ())) + val(valAPfloor3Elec ())) + val(valAPHeat1Elec ())) + val(valAPHeat2Elec ())) + val(valAPHeat3Elec ())) + val(valAPhull1Elec ())) + val(valAPhull2Elec ())) + val(valAPhull3Elec ())) + val(valAPHVAC1Elec ())) + val(valAPHVAC2Elec ())) + val(valAPHVAC3Elec ())) + val(valAPlight1Elec ())) + val(valAPlight2Elec ())) + val(valAPlight3Elec ()), "#,##0")) Return formula End Function Public Function Object_Visibility1 () As Boolean Dim formula As Boolean If val(CalcSumElec ()) = 0 Then formula = True Else formula = False End If Return formula End Function Public Function CalcSumCold () As String Dim formula As String formula = (Format ((((((((((((((val(valAPfloor1Cold ()) + val(valAPfloor2Cold ())) + val(valAPfloor3Cold ())) + val(valAPHeat1Cold ())) + val(valAPHeat2Cold ())) + val(valAPHeat3Cold ())) + val(valAPhull1Cold ())) + val(valAPhull2Cold ())) + val(valAPhull3Cold ())) + val(valAPHVAC1Cold ())) + val(valAPHVAC2Cold ())) + val(valAPHVAC3Cold ())) + val(valAPlight1Cold ())) + val(valAPlight2Cold ())) + val(valAPlight3Cold ()), "#,##0")) Return formula End Function Public Function Object_Visibility2 () As Boolean Dim formula As Boolean If val(CalcSumCold ()) = 0 Then formula = True Else formula = False End If Return formula End Function Public Function CalcNewET () As Decimal Dim formula As Decimal If valArea () <> "" And (CalcSumCold () <> "0" Or CalcSumElec () <> "0" Or CalcSumHeat () <> "0") Then If ((((CalcConsSum () - CDbl(CalcSumCold ())) - CDbl(CalcSumElec ())) - CDbl(CalcSumHeat ())) / CDbl(valArea ())) - Round((((CalcConsSum () - CDbl(CalcSumCold ())) - CDbl(CalcSumElec ())) - CDbl(CalcSumHeat ())) / CDbl(valArea ()) - 0.5) <> 0 Then formula = (Round((((CalcConsSum () - CDbl(CalcSumCold ())) - CDbl(CalcSumElec ())) - CDbl(CalcSumHeat ())) / CDbl(valArea ()) - 0.5) + 1) Else formula = ((((CalcConsSum () - CDbl(CalcSumCold ())) - CDbl(CalcSumElec ())) - CDbl(CalcSumHeat ())) / CDbl(valArea ())) End If If CalcET () < 0 Then formula = 0 'Missing Else Statement! ' Else ' Return 0 End If Return 0 Else formula = 0 End If Return formula End Function Public Function Object_Visibility3 () As Boolean Dim formula As Boolean If CalcNewET () = 0 Then formula = True Else formula = False End If Return formula End Function Public Function CalcNewETclass () As String Dim formula As String Dim lngTmp As Decimal lngTmp = CalcNewET () If lngTmp = 0 Then formula = "" ElseIf lngTmp > 0 And lngTmp < val(valStartB ()) Then formula = "A" ElseIf lngTmp >= val(valStartB ()) And lngTmp < val(valStartC ()) Then formula = "B" ElseIf lngTmp >= val(valStartC ()) And lngTmp < val(valStartD ()) Then formula = "C" ElseIf lngTmp >= val(valStartD ()) And lngTmp < val(valStartE ()) Then formula = "D" ElseIf lngTmp >= val(valStartE ()) And lngTmp < val(valStartF ()) Then formula = "E" ElseIf lngTmp >= val(valStartF ()) And lngTmp < val(valStartG ()) Then formula = "F" Else formula = "G" End If Return formula End Function Public Function valNotes () As String Dim formula As String formula = "" Return formula End Function Public Function valNotes1 () As String Dim formula As String formula = "" Return formula End Function Public Function valNotes2 () As String Dim formula As String formula = "" Return formula End Function Public Function valNotes3 () As String Dim formula As String formula = "" Return formula End Function Public Function valNotes4 () As String Dim formula As String formula = "" Return formula End Function Public Function valNotes5 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlightInfo () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlightInfo1 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlightInfo2 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPlightInfo3 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVACInfo () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVACInfo1 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVACInfo2 () As String Dim formula As String formula = "" Return formula End Function Public Function valAPHVACInfo3 () As String Dim formula As String formula = "" Return formula End Function Public Function lblkWhPerAreaPerYear2 () As String Dim formula As String formula = "kWh/brm²/vuosi" Return formula End Function Public Function lblLegalText () As String Dim formula As String formula = "Energiatodistus perustuu lakiin rakennusten energiatodistuksesta (487/2007) ja 19.6.2007 annettuun ympäristöministeriön asetukseen energiatodistuksesta. Tämä energiatodistus on asetuksen lomakkeen 2 mukainen." Return formula End Function Public Function valConsElec () As String Dim formula As String formula = "" Return formula End Function Public Function valConsCold () As String Dim formula As String formula = "" Return formula End Function Public Function valArea () As String Dim formula As String formula = "" Return formula End Function Public Function valHeatSource1_Value () As String Dim formula As String formula = "" Return formula End Function Public Function valHeatSource2_Value () As String Dim formula As String formula = "" Return formula End Function Public Function valConsCold_District () As String Dim formula As String formula = "" Return formula End Function Public Function valConsCold_Elec () As String Dim formula As String formula = "" Return formula End Function Public Function valConsWater_Total () As String Dim formula As String formula = "" Return formula End Function Public Function valConsWater_Warm () As String Dim formula As String formula = "" Return formula End Function Public Function valHeat_EfficiencyFactor () As String Dim formula As String formula = "" Return formula End Function Public Function CalcConsWaterWarmEne () As Decimal Dim formula As Decimal If valConsWater_Warm () = "" And valConsWater_Total () <> "" Then formula = (((val(valConsWater_Warm_Procent ()) / 100) * val(valConsWater_Total ())) * 58) ElseIf valConsWater_Warm () <> "" Then formula = (val(valConsWater_Warm ()) * 58) End If Return formula End Function Public Function valStartB () As String Dim formula As String formula = "91" Return formula End Function Public Function valStartC () As String Dim formula As String formula = "111" Return formula End Function Public Function valStartD () As String Dim formula As String formula = "131" Return formula End Function Public Function valStartE () As String Dim formula As String formula = "171" Return formula End Function Public Function valStartF () As String Dim formula As String formula = "231" Return formula End Function Public Function valStartG () As String Dim formula As String formula = "321" Return formula End Function Public Function valCertBasedOn () As String Dim formula As String formula = "" Return formula End Function Public Function valHVACopt () As String Dim formula As String formula = "" Return formula End Function Public Function valHVAChasValves () As String Dim formula As String formula = "" Return formula End Function Public Function valHVAChasFilter () As String Dim formula As String formula = "" Return formula End Function Public Function valHVAChasHeatRec () As String Dim formula As String formula = "" Return formula End Function Public Function valHVAChasAc () As String Dim formula As String formula = "" Return formula End Function Public Function valConsWater_Warm_Procent () As String Dim formula As String formula = "30" Return formula End Function Public Function valConsElec_Top () As String Dim formula As String formula = "" Return formula End Function Public Function valConsHeatElec () As String Dim formula As String formula = "" Return formula End Function Public Function valHeatElecInfoHelp () As String Dim formula As String formula = "" Return formula End Function Public Function lblHeatElecInfo () As String Dim formula As String formula = "Arvioitu erillisten sähkölämmittimien kulutus: 40 kWh/brm²/vuosi" Return formula End Function Public Function lblHeatElecInfo1 () As String Dim formula As String formula = "Mitattu erillisten sähkölämmittimien kulutus:" Return formula End Function Public Function valConsSepElecSquare () As String Dim formula As String formula = "" Return formula End Function ]]>