function isNumeric(inputVal){
	oneDecimal = false
	inputString = formatUSDouble(inputVal.toString())
	if (inputString.length == 0){
		return false
	}
			
	for (var i = 0; i < inputString.length; i++){
		var oneChar = inputString.charAt(i)
		if (i == 0 && oneChar == "-"){
			continue
		}
		if (oneChar == "." && !oneDecimal){
			oneDecimal = true
			continue
		}
		if (oneChar < "0" || oneChar > "9"){
			return false
		}
	}
			
	return true
}

function formatUSDouble(Value){
	var i;
	var stemp = "";
		
	if (Value==""){
		return "";
	}
	else{
		for (var i=0; i<=Value.length; i++){
			if (Value.charCodeAt(i) >= 48 && Value.charCodeAt(i) <= 57 || Value.charCodeAt(i) == 46){
				stemp = stemp + Value.charAt(i)
			}
			else{
				if (Value.charCodeAt(i) == 44){
					stemp = stemp + "."
				}
			}
		}
				
		return stemp;
	}
}

function FahrenheitToCelsius(Value){
	var CALC_Temp 
	
	CALC_Temp = 100/180 * (parseFloat(Value) - 32)
	
	CALC_Temp = Math.round(CALC_Temp * 10)/10
	
	return CALC_Temp
}

function CelsiusToFahrenheit(Value){
	var CALC_Temp 
	
	CALC_Temp = 180/100 * parseFloat(Value) + 32
	
	CALC_Temp = Math.round(CALC_Temp * 10)/10

	return CALC_Temp
}

function changeRegion(){
	var iRegion
	
	var Rows;
	var k = 0;
	var Rate
	
	currentStep = 1
	allSteps = false
	maxStep = 2
	
	if (frmVCT.optRegion[0].checked==true){
		iRegion = 1
	}
	else{
		iRegion = 2
	}

	Rows = document.frmVCT.lstLanguage.length;
			
	// Ta bort befintliga språk
	for (var i=0; i<=Rows; i++){
		document.frmVCT.lstLanguage.options[0] = null;
	}
				 
				 
	// Lägg till de med rätt språk
	for (var i=0; i<=LanguageCount; i++){
		if (iRegion == Language2[i]){
			document.frmVCT.lstLanguage.options[k] = new Option(Language1[i], Language0[i], false, false)
			k = k + 1;
		}
	}
	
	k = 1
	Rows = document.frmVCT.lstDoorType.length;
			
	// Ta bort befintliga portar
	for (var i=1; i<=Rows; i++){
		document.frmVCT.lstDoorType.options[1] = null;
	}
				 
				 
	// Lägg till de med rätt region
	for (var i=0; i<=DoorTypeCount; i++){
		if (iRegion == DoorType12[i]){
			document.frmVCT.lstDoorType.options[k] = new Option(DoorType1[i], DoorType0[i], false, false)
			k = k + 1;
		}
	}
	
	
	k = 1
	Rows = document.frmVCT.lstLocation.length;
			
	// Ta bort befintliga städer
	for (var i=1; i<=Rows; i++){
		document.frmVCT.lstLocation.options[1] = null;
	}
				 
	// Ändra text
	document.frmVCT.lstLocation.options[0].text = document.frmVCT.LABEL_SelectCity.value;
				 
	// Lägg till de med rätt region
	for (var i=0; i<=CityCount; i++){
		if (iRegion == City7[i]){
			document.frmVCT.lstLocation.options[k] = new Option(City1[i], City0[i], false, false)
			k = k + 1;
		}
	}
	
	// Ta bort inmatade värden
	frmVCT.INPUT_OpeningWidth.value = ""
	frmVCT.INPUT_OpeningHeight.value = ""

	frmVCT.INPUT_CyclesPerDay.value = cyclesPerDayDefault
	frmVCT.INPUT_WorkingDaysPerYear.value = workingDaysDefault
	
	frmVCT.INPUT_PurchasePrice.value = 0
	frmVCT.INPUT_InstallationCost.value = 0

	frmVCT.INPUT_cdd.value = ""
	frmVCT.INPUT_hdd.value = ""
	frmVCT.INPUT_AverageTemp.value = ""
	frmVCT.INPUT_WindSpeed.value = ""

	frmVCT.INPUT_OpeningSpeedAlbany.value = ""
	frmVCT.INPUT_OpenTimeAlbany.value = ""
	frmVCT.INPUT_ClosingSpeedAlbany.value = ""
	frmVCT.INPUT_SideFrameAirGapAlbany.value = ""
	frmVCT.INPUT_TopRollAirGapAlbany.value = ""
	frmVCT.INPUT_RAlbany.value = ""

	// Lägg in rätt defaultvärden
	if (iRegion == 1){
		frmVCT.INPUT_OpeningSpeed.value = openingSpeedDefault
		frmVCT.RESULTS_OpeningSpeed.value = openingSpeedDefault

		frmVCT.INPUT_ClosingSpeed.value = closingSpeedDefault
		frmVCT.RESULTS_ClosingSpeed.value = closingSpeedDefault
		
		frmVCT.INPUT_SideFrameAirGap.value = sideFrameAirGapDefault
		frmVCT.RESULTS_SideFrameAirGap.value = sideFrameAirGapDefault

		frmVCT.INPUT_TopRollAirGap.value = topRollAirGapDefault
		frmVCT.RESULTS_TopRollAirGap.value = topRollAirGapDefault
		
		frmVCT.INPUT_R.value = RDefault
		frmVCT.RESULTS_R.value = RDefault
		frmVCT.RESULTS_RAlbany.value = RDefault
		
		frmVCT.INPUT_ForkliftSpeed.value = forkliftSpeedDefault
		
		frmVCT.INPUT_RUnit.value = "ft²Fºh/Btu"
		frmVCT.INPUT_RAlbanyUnit.value = "ft²Fºh/Btu"
		
		frmVCT.RESULTS_RUnit.value = "ft²Fºh/Btu"
		frmVCT.RESULTS_RAlbanyUnit.value = "ft²Fºh/Btu"
		
	}
	else{
		frmVCT.INPUT_OpeningSpeed.value = Math.round(openingSpeedDefault * 0.254)/10
		frmVCT.RESULTS_OpeningSpeed.value = Math.round(openingSpeedDefault * 0.254)/10

		frmVCT.INPUT_ClosingSpeed.value = Math.round(closingSpeedDefault * 0.254)/10
		frmVCT.RESULTS_ClosingSpeed.value = Math.round(closingSpeedDefault * 0.254)/10
		
		frmVCT.INPUT_SideFrameAirGap.value = Math.round(sideFrameAirGapDefault * 254)/10
		frmVCT.RESULTS_SideFrameAirGap.value = Math.round(sideFrameAirGapDefault * 254)/10
		
		frmVCT.INPUT_TopRollAirGap.value = Math.round(topRollAirGapDefault * 254)/10
		frmVCT.RESULTS_TopRollAirGap.value = Math.round(topRollAirGapDefault * 254)/10

		frmVCT.INPUT_R.value = Math.round(10 / (0.176 * RDefault))/10
		frmVCT.RESULTS_R.value = Math.round(10 / (0.176 * RDefault))/10
		
		frmVCT.INPUT_ForkliftSpeed.value = Math.round(forkliftSpeedDefault * 1.609344)
		
		frmVCT.INPUT_RUnit.value = "W/(m²K)"
		frmVCT.INPUT_RAlbanyUnit.value = "W/(m²K)"
		frmVCT.RESULTS_RUnit.value = "W/(m²K)"
		frmVCT.RESULTS_RAlbanyUnit.value = "W/(m²K)"
	}
	
	changeLanguage()
	changeCurrency()
}

function changeLanguage(){
	iLanguage_Id = document.frmVCT.lstLanguage[document.frmVCT.lstLanguage.selectedIndex].value
	var Label
	
	// Ändra text
	document.frmVCT.lstLocation.options[0].text = document.frmVCT.LABEL_SelectCity.value;
	
	// Ändra lablar
	for (var i=0; i<PhraseCount; i++){
		//document.frmVCT.RESULTS_Error.value = Phrase0[i]
	
		if (Phrase4[i] == "0"){
			if (iLanguage_Id == Phrase1[i]){
				if (Phrase3[i] == "1"){
					Label = eval("document.frmVCT." + Phrase0[i])
			
					Label.value = Phrase2[i]
				}
				else{
					for (var j=0; j<Phrase3[i]; j++){
						Label = eval("document.frmVCT." + Phrase0[i] + "[" + j + "]")
						Label.value = Phrase2[i]
					}
				}
			}
		}
	}
	
	var iCurrency = document.frmVCT.lstCurrency[document.frmVCT.lstCurrency.selectedIndex].value
	var sCurrencyCode
	
	if (iCurrency == 1){
		sCurrencyCode = "$"
	}
	if (iCurrency == 2){
		sCurrencyCode = "EUR"
	}
	if (iCurrency == 3){
		sCurrencyCode = "SEK"
	}
	if (iCurrency == 4){
		sCurrencyCode = "NRK"
	}
	if (iCurrency == 5){
		sCurrencyCode = "£"
	}
	if (iCurrency == 6){
		sCurrencyCode = "DKK"
	}
	if (iCurrency == 7){
		sCurrencyCode = "CAD"
	}
	
	var LABEL_Unit_mm = getMessage("LABEL_Unit_mm")
	var LABEL_Unit_ft = getMessage("LABEL_Unit_ft")
	var LABEL_Unit_inch_s = getMessage("LABEL_Unit_inch_s")
	var LABEL_Unit_m_s = getMessage("LABEL_Unit_m_s")
	var LABEL_Unit_inch = getMessage("LABEL_Unit_inch")
	var LABEL_Unit_m = getMessage("LABEL_Unit_m")
	var LABEL_Unit_s = getMessage("LABEL_Unit_s")
	var LABEL_Unit_Fahrenheit = getMessage("LABEL_Unit_Fahrenheit")
	var LABEL_Unit_Celsius = getMessage("LABEL_Unit_Celsius")
	var LABEL_Unit_mile_hour = getMessage("LABEL_Unit_mile_hour")
	var LABEL_Unit_km_h = getMessage("LABEL_Unit_km_h")
	var LABEL_Unit_days = getMessage("LABEL_Unit_days")
	var LABEL_Unit_year = getMessage("LABEL_Unit_year")
	
	frmVCT.INPUT_WorkingDaysPerYearUnit.value=LABEL_Unit_days;
	frmVCT.RESULTS_WorkingDaysPerYearUnit.value=LABEL_Unit_days;
	
	frmVCT.INPUT_NumberOfCoolingDaysPerYearUnit.value=LABEL_Unit_days;
	frmVCT.INPUT_NumberOfHeatingDaysPerYearUnit.value=LABEL_Unit_days;
	
	frmVCT.INPUT_InspectionCostAlbanyUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
	frmVCT.INPUT_DamageCostAlbanyUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
	frmVCT.INPUT_WearingPartCostAlbanyUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
	frmVCT.INPUT_MaintenanceCostAlbanyUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
	
	if (frmVCT.optRegion[0].checked==true){
		frmVCT.INPUT_OpeningWidthUnit.value=LABEL_Unit_ft;
		frmVCT.RESULTS_OpeningWidthUnit.value=LABEL_Unit_ft;
		
		frmVCT.INPUT_OpeningHeightUnit.value=LABEL_Unit_ft;
		frmVCT.RESULTS_OpeningHeightUnit.value=LABEL_Unit_ft;
		
		frmVCT.INPUT_OpeningSpeedUnit.value=LABEL_Unit_inch_s
		frmVCT.RESULTS_OpeningSpeedUnit.value=LABEL_Unit_inch_s
		
		frmVCT.RESULTS_TimeOfDoorToOpenUnit.value=LABEL_Unit_s
		
		frmVCT.INPUT_OpenTimeUnit.value=LABEL_Unit_s
		frmVCT.RESULTS_OpenTimeUnit.value=LABEL_Unit_s
		
		frmVCT.INPUT_ClosingSpeedUnit.value=LABEL_Unit_inch_s
		frmVCT.RESULTS_ClosingSpeedUnit.value=LABEL_Unit_inch_s
		
		frmVCT.INPUT_SideFrameAirGapUnit.value=LABEL_Unit_inch
		frmVCT.RESULTS_SideFrameAirGapUnit.value=LABEL_Unit_inch
		
		frmVCT.INPUT_TopRollAirGapUnit.value=LABEL_Unit_inch
		frmVCT.RESULTS_TopRollAirGapUnit.value=LABEL_Unit_inch
		
		frmVCT.INPUT_OpeningSpeedAlbanyUnit.value=LABEL_Unit_inch_s
		frmVCT.RESULTS_OpeningSpeedAlbanyUnit.value=LABEL_Unit_inch_s
		
		frmVCT.INPUT_OpenTimeAlbanyUnit.value=LABEL_Unit_s
		frmVCT.RESULTS_OpenTimeAlbanyUnit.value=LABEL_Unit_s
		
		frmVCT.INPUT_ClosingSpeedAlbanyUnit.value=LABEL_Unit_inch_s
		frmVCT.RESULTS_ClosingSpeedAlbanyUnit.value=LABEL_Unit_inch_s
		
		frmVCT.INPUT_SideFrameAirGapAlbanyUnit.value=LABEL_Unit_inch
		frmVCT.RESULTS_SideFrameAirGapAlbanyUnit.value=LABEL_Unit_inch
		
		frmVCT.INPUT_TopRollAirGapAlbanyUnit.value=LABEL_Unit_inch
		frmVCT.RESULTS_TopRollAirGapAlbanyUnit.value=LABEL_Unit_inch
		
		frmVCT.INPUT_TemperatureDifferentialUnit.value=LABEL_Unit_Fahrenheit
		
		frmVCT.INPUT_ForkliftSpeedUnit.value = LABEL_Unit_mile_hour
		frmVCT.RESULTS_ForkliftDistanceUnit.value = LABEL_Unit_ft
		frmVCT.RESULTS_ForkliftDistanceAlbanyUnit.value = LABEL_Unit_ft
		
		frmVCT.INPUT_AverageTempUnit.value=LABEL_Unit_Fahrenheit
		
		frmVCT.INPUT_AverageTemperatureDifferenceForCoolingUnit.value=LABEL_Unit_Fahrenheit
		frmVCT.INPUT_AverageTemperatureDifferenceForHeatingUnit.value=LABEL_Unit_Fahrenheit
		
		frmVCT.INPUT_WindSpeed2Unit.value=LABEL_Unit_mile_hour
		frmVCT.INPUT_WindSpeedUnit.value=LABEL_Unit_mile_hour
	}
	else{
		frmVCT.INPUT_OpeningWidthUnit.value = LABEL_Unit_mm;
		frmVCT.RESULTS_OpeningWidthUnit.value = LABEL_Unit_mm;
		
		frmVCT.INPUT_OpeningHeightUnit.value = LABEL_Unit_mm;
		frmVCT.RESULTS_OpeningHeightUnit.value = LABEL_Unit_mm;
		
		frmVCT.INPUT_OpeningSpeedUnit.value=LABEL_Unit_m_s
		frmVCT.RESULTS_OpeningSpeedUnit.value=LABEL_Unit_m_s
		
		frmVCT.RESULTS_TimeOfDoorToOpenUnit.value=LABEL_Unit_s
		
		frmVCT.INPUT_OpenTimeUnit.value=LABEL_Unit_s
		frmVCT.RESULTS_OpenTimeUnit.value=LABEL_Unit_s
		
		frmVCT.INPUT_ClosingSpeedUnit.value=LABEL_Unit_m_s
		frmVCT.RESULTS_ClosingSpeedUnit.value=LABEL_Unit_m_s
		
		frmVCT.INPUT_SideFrameAirGapUnit.value = LABEL_Unit_mm;
		frmVCT.RESULTS_SideFrameAirGapUnit.value = LABEL_Unit_mm;
		
		frmVCT.INPUT_TopRollAirGapUnit.value = LABEL_Unit_mm;
		frmVCT.RESULTS_TopRollAirGapUnit.value = LABEL_Unit_mm;
		
		frmVCT.INPUT_OpeningSpeedAlbanyUnit.value=LABEL_Unit_m_s
		frmVCT.RESULTS_OpeningSpeedAlbanyUnit.value=LABEL_Unit_m_s
		
		frmVCT.INPUT_OpenTimeAlbanyUnit.value=LABEL_Unit_s
		frmVCT.RESULTS_OpenTimeAlbanyUnit.value=LABEL_Unit_s
		
		frmVCT.INPUT_ClosingSpeedAlbanyUnit.value=LABEL_Unit_m_s
		frmVCT.RESULTS_ClosingSpeedAlbanyUnit.value=LABEL_Unit_m_s
		
		frmVCT.INPUT_SideFrameAirGapAlbanyUnit.value = LABEL_Unit_mm
		frmVCT.RESULTS_SideFrameAirGapAlbanyUnit.value = LABEL_Unit_mm
		
		frmVCT.INPUT_TopRollAirGapAlbanyUnit.value = LABEL_Unit_mm
		frmVCT.RESULTS_TopRollAirGapAlbanyUnit.value = LABEL_Unit_mm
		
		frmVCT.INPUT_TemperatureDifferentialUnit.value = LABEL_Unit_Celsius
		
		frmVCT.INPUT_ForkliftSpeedUnit.value = LABEL_Unit_km_h
		frmVCT.RESULTS_ForkliftDistanceUnit.value = LABEL_Unit_m
		frmVCT.RESULTS_ForkliftDistanceAlbanyUnit.value = LABEL_Unit_m
		
		frmVCT.INPUT_AverageTempUnit.value=LABEL_Unit_Celsius
		frmVCT.INPUT_AverageTemperatureDifferenceForCoolingUnit.value=LABEL_Unit_Celsius
		frmVCT.INPUT_AverageTemperatureDifferenceForHeatingUnit.value=LABEL_Unit_Celsius
		
		frmVCT.INPUT_WindSpeed2Unit.value=LABEL_Unit_m_s
		frmVCT.INPUT_WindSpeedUnit.value=LABEL_Unit_m_s
	}
	
	// Ändra topbilden
	/*var LanguageID
	
	for (var i=0; i<LanguageCount; i++){
		if (iLanguage_Id == Language0[i]){
			LanguageID = Language3[i]
		}
	}
	
	frmVCT.topImage.src="images/top" + LanguageID + ".jpg"*/
}

function changeCurrency(){
	var iCurrency = document.frmVCT.lstCurrency[document.frmVCT.lstCurrency.selectedIndex].value
	var sCurrencyCode
	var Rate
	var LABEL_Unit_year = getMessage("LABEL_Unit_year")
	
	if (iCurrency == 1){
		sCurrencyCode = "$"
	}
	if (iCurrency == 2){
		sCurrencyCode = "EUR"
	}
	if (iCurrency == 3){
		sCurrencyCode = "SEK"
	}
	if (iCurrency == 4){
		sCurrencyCode = "NRK"
	}
	if (iCurrency == 5){
		sCurrencyCode = "£"
	}
	if (iCurrency == 6){
		sCurrencyCode = "DKK"
	}
	if (iCurrency == 7){
		sCurrencyCode = "CAD"
	}

	frmVCT.INPUT_PurchasePriceUnit.value = sCurrencyCode
	frmVCT.INPUT_InstallationCostUnit.value = sCurrencyCode
	
	frmVCT.INPUT_LaborRateUnit.value = sCurrencyCode + "/h"
	frmVCT.RESULTS_LaborRateUnit.value = sCurrencyCode + "/h"
		
	frmVCT.INPUT_InspectionCostUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
	frmVCT.INPUT_DamageCostUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
	frmVCT.INPUT_WearingPartCostUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
		
	frmVCT.INPUT_MaintenanceCostUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
		
	frmVCT.INPUT_PurchasePriceAlbanyUnit.value = sCurrencyCode
	frmVCT.INPUT_InstallationCostAlbanyUnit.value = sCurrencyCode
		
	frmVCT.INPUT_InspectionCostAlbanyUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
	frmVCT.INPUT_DamageCostAlbanyUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
	frmVCT.INPUT_WearingPartCostAlbanyUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
	frmVCT.INPUT_MaintenanceCostAlbanyUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
		
	//frmVCT.RESULTS_MaintenanceCostUnit.value = sCurrencyCode + "/" + LABEL_Unit_year
	
	frmVCT.INPUT_CoolingCostUnit.value = sCurrencyCode + "/kwh"
		
	frmVCT.RESULTS_CoolingCostUnit.value = sCurrencyCode + "/kwh"
	frmVCT.RESULTS_HeatingCostUnit.value = sCurrencyCode + "/therms"

	frmVCT.RESULTS_MassAirFlowUnit.value = sCurrencyCode
	frmVCT.RESULTS_MassAirFlowAlbanyUnit.value = sCurrencyCode
		
	frmVCT.RESULTS_AirInfiltrationCostUnit.value = sCurrencyCode
	frmVCT.RESULTS_AirInfiltrationCostAlbanyUnit.value = sCurrencyCode
		
	frmVCT.RESULTS_EnergyLossUnit.value = sCurrencyCode
	frmVCT.RESULTS_EnergyLossAlbanyUnit.value = sCurrencyCode
		
	frmVCT.RESULTS_LaborCostUnit.value = sCurrencyCode
	frmVCT.RESULTS_LaborCostAlbanyUnit.value = sCurrencyCode
		
	frmVCT.RESULTS_AnnualMaintenanceCostUnit.value = sCurrencyCode
	frmVCT.RESULTS_AnnualMaintenanceCostAlbanyUnit.value = sCurrencyCode
		
	frmVCT.RESULTS_SumUnit.value = sCurrencyCode
	frmVCT.RESULTS_SumAlbanyUnit.value = sCurrencyCode
		
	frmVCT.RESULTS_SavingUnit.value = sCurrencyCode
		
	frmVCT.RESULTS_SavingPerCycleUnit.value = sCurrencyCode
		
	frmVCT.RESULTS_PurchasePriceUnit.value = sCurrencyCode
	frmVCT.RESULTS_PurchasePriceAlbanyUnit.value = sCurrencyCode
		
	frmVCT.RESULTS_InstallationCostUnit.value = sCurrencyCode
	frmVCT.RESULTS_InstallationCostAlbanyUnit.value = sCurrencyCode
	
	// Lägg in rätt defaultvärden
	Rate = Currency1[frmVCT.lstCurrency.selectedIndex]
	
	frmVCT.INPUT_InspectionCost.value = Currency2[frmVCT.lstCurrency.selectedIndex]
	frmVCT.INPUT_DamageCost.value = Currency3[frmVCT.lstCurrency.selectedIndex]
	frmVCT.INPUT_WearingPartCost.value = Currency4[frmVCT.lstCurrency.selectedIndex]
	
	frmVCT.INPUT_MaintenanceCost.value = parseFloat(frmVCT.INPUT_InspectionCost.value) + parseFloat(frmVCT.INPUT_DamageCost.value) + parseFloat(frmVCT.INPUT_WearingPartCost.value)
	
	frmVCT.INPUT_LaborRate.value = Math.round(laborRateDefault/Rate)
	frmVCT.RESULTS_LaborRate.value = Math.round(laborRateDefault/Rate)
	
	frmVCT.INPUT_CoolingCost.value = Math.round(coolingCostDefault * 100/Rate)/100
	frmVCT.RESULTS_CoolingCost.value = frmVCT.INPUT_CoolingCost.value
	
	frmVCT.INPUT_HeatingCostValue.value = Math.round(heatingCostDefault * 100/Rate)/100
	frmVCT.INPUT_HeatingCost.value = Math.round(heatingCostDefault * 100/Rate)/100
	frmVCT.RESULTS_HeatingCost.value=document.frmVCT.INPUT_HeatingCostValue.value;

	frmVCT.LABEL_HeatingCostUnit.value = sCurrencyCode + "/"
	
	var iDoorType_Id = frmVCT.lstDoorType[frmVCT.lstDoorType.selectedIndex].value
	var Index = 0
		
	for (var i=1; i<=DoorTypeCount; i++){
		if (DoorType0[i] == iDoorType_Id){
			Index = i
			break;
		}
	}

	frmVCT.INPUT_InspectionCostAlbany.value = Math.round(DoorType9[Index]/Rate)
	frmVCT.INPUT_DamageCostAlbany.value = Math.round(DoorType10[Index]/Rate)
	frmVCT.INPUT_WearingPartCostAlbany.value = Math.round(DoorType11[Index]/Rate)
	
	frmVCT.INPUT_MaintenanceCostAlbany.value = parseFloat(frmVCT.INPUT_InspectionCostAlbany.value) + parseFloat(frmVCT.INPUT_DamageCostAlbany.value) + parseFloat(frmVCT.INPUT_WearingPartCostAlbany.value)
	
	if (maxStep > 2){
		calculate(false)
	}
}

function changeCustomerName(){
	frmVCT.RESULTS_CustomerName.value=frmVCT.INPUT_CustomerName.value;
}

function changeContactName(){
	frmVCT.RESULTS_ContactName.value=frmVCT.INPUT_ContactName.value;
}

function checkContactName(evt){
	if (evt.keyCode == 9){
		if (checkStep1(true)==true){
			tabClick(2)
		}
	}
}

function changeCyclesPerDay(){
	frmVCT.RESULTS_CyclesPerDay.value=frmVCT.INPUT_CyclesPerDay.value;
	
	calculate(false)
}

function changeWorkingDaysPerYear(){
	frmVCT.RESULTS_WorkingDaysPerYear.value=frmVCT.INPUT_WorkingDaysPerYear.value;
	
	calculate(false)
}

function changeOpeningWidth(){
	frmVCT.RESULTS_OpeningWidth.value=frmVCT.INPUT_OpeningWidth.value;
	
	calculate(false)
}

function changeOpeningHeight(){
	frmVCT.RESULTS_OpeningHeight.value=frmVCT.INPUT_OpeningHeight.value;
		
	calculate(false)
}

function changeOpeningSpeed(){
	frmVCT.RESULTS_OpeningSpeed.value=frmVCT.INPUT_OpeningSpeed.value;
	
	calculate(false)
}

function changeOpenTime(){
	frmVCT.RESULTS_OpenTime.value=frmVCT.INPUT_OpenTime.value;
	
	calculate(false)
}

function changeClosingSpeed(){
	frmVCT.RESULTS_ClosingSpeed.value=frmVCT.INPUT_ClosingSpeed.value;
	
	calculate(false)
}

function changeSideFrameAirGap(){
	frmVCT.RESULTS_SideFrameAirGap.value=frmVCT.INPUT_SideFrameAirGap.value;
	
	calculate(false)
}

function changeTopRollAirGap(){
	frmVCT.RESULTS_TopRollAirGap.value=frmVCT.INPUT_TopRollAirGap.value;
	
	calculate(false)
}

function changeRValue(evt){
	frmVCT.RESULTS_R.value=frmVCT.INPUT_R.value;
	
	calculate(false)
}

function checkRValue(evt){
	if (evt.keyCode == 9){
		if (checkStep2(true)==true){
			tabClick(3)
		}
	}
}

function changePurchasePrice(){
	frmVCT.RESULTS_PurchasePrice.value=frmVCT.INPUT_PurchasePrice.value;
	
	calculate(false)
}

function changeInstallationCost(){
	frmVCT.RESULTS_InstallationCost.value=frmVCT.INPUT_InstallationCost.value;
	
	calculate(false)
}

function changeLaborRate(){
	frmVCT.RESULTS_LaborRate.value=frmVCT.INPUT_LaborRate.value;
	
	calculate(false)
}

function changeForkliftSpeed(){
	calculate(false)
}

function checkForkliftSpeed(evt){
	if (evt.keyCode == 9){
		if (checkStep3(true)==true){
			tabClick(4)
		}
	}
}

function changeInspectionCost(){
	calculateMaintenance()
	
	changeMaintenanceCost()
}

function changeDamageCost(){
	calculateMaintenance()
	
	changeMaintenanceCost()
}

function changeWearingPartCost(){
	calculateMaintenance()
	
	changeMaintenanceCost()
}

function changeMaintenanceCost(){
	frmVCT.RESULTS_AnnualMaintenanceCost.value=frmVCT.INPUT_MaintenanceCost.value;
	
	calculate(false)
}

function changeTemperature(){
	if (frmVCT.optTemperature[0].checked==true){
		document.frmVCT.optExterior[0].disabled=true
		document.frmVCT.optExterior[0].checked=false
		
		document.frmVCT.optExterior[1].disabled=true
	
		//document.getElementById("divInterior").style.visibility = 'visible'
		//document.getElementById("divExterior1").style.visibility = 'hidden'
		//document.getElementById("divExterior2").style.visibility = 'hidden'
		
		//document.getElementById("divCooling").style.top = 100
		
		document.getElementById("divInterior").style.display = 'block'
		document.getElementById("divExterior1").style.display = 'none'
		document.getElementById("divExterior2").style.display = 'none'
	
	}
	else{
		document.frmVCT.optExterior[0].disabled=false
		document.frmVCT.optExterior[0].checked=true
		
		document.frmVCT.optExterior[1].disabled=false
		
		//document.getElementById("divInterior").style.visibility = 'hidden'
		//document.getElementById("divExterior1").style.visibility = 'visible'
		//document.getElementById("divExterior2").style.visibility = 'hidden'
		
		//document.getElementById("divCooling").style.top = 200
		
		document.getElementById("divInterior").style.display = 'none'
		document.getElementById("divExterior1").style.display = 'block'
		document.getElementById("divExterior2").style.display = 'none'

	}
	
	calculate(false)
}

function changeTemperatureExterior(){
	if (frmVCT.optExterior[0].checked==true){
		//document.getElementById("divExterior1").style.visibility = 'visible'
		//document.getElementById("divExterior2").style.visibility = 'hidden'
		
		//document.getElementById("divCooling").style.top = 200
		
		document.getElementById("divExterior1").style.display = 'block'
		document.getElementById("divExterior2").style.display = 'none'
	}
	else{
		//document.getElementById("divExterior1").style.visibility = 'hidden'
		//document.getElementById("divExterior2").style.visibility = 'visible'
		
		//document.getElementById("divCooling").style.top = 200
		
		document.getElementById("divExterior1").style.display = 'none'
		document.getElementById("divExterior2").style.display = 'block'
	}
	
	calculate(false)
}

function changeTemeratureDifferential(){
	calculate(false)
}

function changeLocation(){
	if (frmVCT.lstLocation.selectedIndex == 0){
		frmVCT.INPUT_cdd.value = 0
		frmVCT.INPUT_hdd.value = 0
		frmVCT.INPUT_AverageTemp.value = 0
		frmVCT.INPUT_WindSpeed.value = 0
		
		frmVCT.RESULTS_City.value = ""
	}
	else{
		var iCity_Id = frmVCT.lstLocation[frmVCT.lstLocation.selectedIndex].value
		var Index = 0
		
		for (var i=1; i<=CityCount; i++){
			if (City0[i] == iCity_Id){
				Index = i
				break;
			}
		}
		
		frmVCT.INPUT_cdd.value = City2[Index]
		frmVCT.INPUT_hdd.value = City3[Index]
		
		if (frmVCT.optRegion[0].checked==false){
			//frmVCT.INPUT_AverageTemp.value = Math.round(City4[Index] * (5/9))
			
			frmVCT.INPUT_AverageTemp.value = Math.round(FahrenheitToCelsius(City4[Index]))
		}
		else{
			frmVCT.INPUT_AverageTemp.value = City4[Index]
		}
		
		if (frmVCT.optRegion[0].checked==false){
			frmVCT.INPUT_WindSpeed.value = Math.round(City5[Index] * 0.44704)
		}
		else{
			frmVCT.INPUT_WindSpeed.value = City5[Index]
		}
		
		frmVCT.RESULTS_City.value = frmVCT.lstLocation[frmVCT.lstLocation.selectedIndex].text
	}
	
	calculate(false)
}

function changecdd(){
	calculate(false)
}

function changehdd(){
	calculate(false)
}

function changeAverageTemp(){
	calculate(false)
}

function changeWindSpeed(){
	calculate(false)
}

function changeAverageTempDifferential(){
	calculate(false)
}

function changeNumberOfCoolingDaysPerYear(){
	calculate(false)
}

function changeAverageTemperatureDifferenceForCooling(){
	calculate(false)
}

function changeNumberOfHeatingDaysPerYear(){
	calculate(false)
}

function changeAverageTemperatureDifferenceForHeating(){
	calculate(false)
}

function changeWindSpeed2(){
	calculate(false)
}

function changeHeatingCost(){
	var sCurrencyCode
	var iCurrency = document.frmVCT.lstCurrency[document.frmVCT.lstCurrency.selectedIndex].value

	if (iCurrency == 1){
		sCurrencyCode = "$"
	}
	if (iCurrency == 2){
		//sCurrencyCode = "€"
		sCurrencyCode = "&#8364;"
	}
	if (iCurrency == 3){
		sCurrencyCode = "SEK"
	}
	if (iCurrency == 4){
		sCurrencyCode = "NRK"
	}
	if (iCurrency == 5){
		sCurrencyCode = "£"
	}
	if (iCurrency == 6){
		sCurrencyCode = "DKK"
	}
	if (iCurrency == 7){
		sCurrencyCode = "CAD"
	}

	var INPUT_HeatingCostValue = document.frmVCT.INPUT_HeatingCostValue.value
	
	if (isNumeric(INPUT_HeatingCostValue)==false){
		INPUT_HeatingCostValue = 0
	}

	if (frmVCT.lstHeatingCostUnit[frmVCT.lstHeatingCostUnit.selectedIndex].value == "BTU"){
		INPUT_HeatingCostValue = INPUT_HeatingCostValue * 100000
	}
	
	if (frmVCT.lstHeatingCostUnit[frmVCT.lstHeatingCostUnit.selectedIndex].value == "kwh"){
		INPUT_HeatingCostValue = INPUT_HeatingCostValue * 29.3
	}
	
	if (frmVCT.lstHeatingCostUnit[frmVCT.lstHeatingCostUnit.selectedIndex].value == "galho"){
		INPUT_HeatingCostValue = INPUT_HeatingCostValue * 0.722
	}
	
	if (frmVCT.lstHeatingCostUnit[frmVCT.lstHeatingCostUnit.selectedIndex].value == "ccf"){
		INPUT_HeatingCostValue = INPUT_HeatingCostValue * 97
	}
	
	INPUT_HeatingCostValue = Math.round(100 * INPUT_HeatingCostValue)/100
	
	frmVCT.INPUT_HeatingCost.value=INPUT_HeatingCostValue
	
	frmVCT.RESULTS_HeatingCost.value=document.frmVCT.INPUT_HeatingCostValue.value;
	frmVCT.RESULTS_HeatingCostUnit.value = sCurrencyCode + "/" + frmVCT.lstHeatingCostUnit.options[frmVCT.lstHeatingCostUnit.selectedIndex].text	

	calculate(false)
}

function changeHeatingCostUnit(){
	var Rate = Rate = Currency1[frmVCT.lstCurrency.selectedIndex]

	if (frmVCT.lstHeatingCostUnit[frmVCT.lstHeatingCostUnit.selectedIndex].value == "therms"){
		INPUT_HeatingCostValue = heatingCostDefault
	}

	if (frmVCT.lstHeatingCostUnit[frmVCT.lstHeatingCostUnit.selectedIndex].value == "BTU"){
		INPUT_HeatingCostValue = heatingCostDefault / 100000
	}
	
	if (frmVCT.lstHeatingCostUnit[frmVCT.lstHeatingCostUnit.selectedIndex].value == "kwh"){
		INPUT_HeatingCostValue = heatingCostDefault / 29.3
	}
	
	if (frmVCT.lstHeatingCostUnit[frmVCT.lstHeatingCostUnit.selectedIndex].value == "galho"){
		INPUT_HeatingCostValue = heatingCostDefault / 0.722
	}
	
	if (frmVCT.lstHeatingCostUnit[frmVCT.lstHeatingCostUnit.selectedIndex].value == "ccf"){
		INPUT_HeatingCostValue = heatingCostDefault / 97
	}
	
	INPUT_HeatingCostValue = Math.round(100000 * (INPUT_HeatingCostValue/Rate))/100000
	
	frmVCT.INPUT_HeatingCostValue.value=INPUT_HeatingCostValue
	
	changeHeatingCost()
	
	calculate(false)
}

function checkHeatingCost(evt){
	if (evt.keyCode == 9){
		if (checkStep4(true)==true){
			tabClick(5)
		}
	}
}

function changeCoolingCost(){
	frmVCT.RESULTS_CoolingCost.value=frmVCT.INPUT_CoolingCost.value;

	calculate(false)
}

function changeDoorType(){
	var Rate = Currency1[frmVCT.lstCurrency.selectedIndex]
	
	if (frmVCT.lstDoorType.selectedIndex == 0){
		frmVCT.INPUT_OpeningSpeedAlbany.value = ""
		frmVCT.INPUT_OpenTimeAlbany.value = ""
		frmVCT.INPUT_ClosingSpeedAlbany.value = ""
		frmVCT.INPUT_SideFrameAirGapAlbany.value = ""
		frmVCT.INPUT_TopRollAirGapAlbany.value = ""
		frmVCT.INPUT_RAlbany.value = ""
	}
	else{
		var iDoorType_Id = frmVCT.lstDoorType[frmVCT.lstDoorType.selectedIndex].value
		var Index = 0
		
		for (var i=1; i<=DoorTypeCount; i++){
			if (DoorType0[i] == iDoorType_Id){
				Index = i
				break;
			}
		}
		
		if (frmVCT.optRegion[0].checked==false){
			frmVCT.INPUT_OpeningSpeedAlbany.value = Math.round(DoorType2[Index] * 0.0254 * 100)/100
		}
		else{
			frmVCT.INPUT_OpeningSpeedAlbany.value = DoorType2[Index]
		}
		
		frmVCT.INPUT_OpenTimeAlbany.value = DoorType7[Index]
		
		if (frmVCT.optRegion[0].checked==false){
			frmVCT.INPUT_ClosingSpeedAlbany.value = Math.round(DoorType3[Index] * 0.0254 * 100)/100
		}
		else{
			frmVCT.INPUT_ClosingSpeedAlbany.value = DoorType3[Index]
		}
		
		if (frmVCT.optRegion[0].checked==false){
			frmVCT.INPUT_SideFrameAirGapAlbany.value = Math.round(DoorType4[Index] * 25.4 * 10) / 10
		}
		else{
			frmVCT.INPUT_SideFrameAirGapAlbany.value = DoorType4[Index]
		}
		
		if (frmVCT.optRegion[0].checked==false){
			frmVCT.INPUT_TopRollAirGapAlbany.value = Math.round(DoorType5[Index] * 25.4 * 10) / 10
		}
		else{
			frmVCT.INPUT_TopRollAirGapAlbany.value = DoorType5[Index]
		}
		
		if (frmVCT.optRegion[0].checked==false){
			frmVCT.INPUT_RAlbany.value = Math.round(10 / (0.176 * DoorType6[Index]))/10
		}
		else{
			frmVCT.INPUT_RAlbany.value = DoorType6[Index]
		}
		
		frmVCT.INPUT_InspectionCostAlbany.value = Math.round(DoorType9[Index]/Rate)
		frmVCT.INPUT_DamageCostAlbany.value = Math.round(DoorType10[Index]/Rate)
		frmVCT.INPUT_WearingPartCostAlbany.value = Math.round(DoorType11[Index]/Rate)
	
		frmVCT.INPUT_MaintenanceCostAlbany.value = parseFloat(frmVCT.INPUT_InspectionCostAlbany.value) + parseFloat(frmVCT.INPUT_DamageCostAlbany.value) + parseFloat(frmVCT.INPUT_WearingPartCostAlbany.value)
	
		frmVCT.RESULTS_OpeningSpeedAlbany.value = frmVCT.INPUT_OpeningSpeedAlbany.value
		frmVCT.RESULTS_OpenTimeAlbany.value = frmVCT.INPUT_OpenTimeAlbany.value
		frmVCT.RESULTS_ClosingSpeedAlbany.value = frmVCT.INPUT_ClosingSpeedAlbany.value
		frmVCT.RESULTS_SideFrameAirGapAlbany.value = frmVCT.INPUT_SideFrameAirGapAlbany.value
		frmVCT.RESULTS_TopRollAirGapAlbany.value = frmVCT.INPUT_TopRollAirGapAlbany.value
		frmVCT.RESULTS_RAlbany.value = frmVCT.INPUT_RAlbany.value
	}
	

	calculate(false)
}

function changeOpeningSpeedAlbany(){
	frmVCT.RESULTS_OpeningSpeedAlbany.value=frmVCT.INPUT_OpeningSpeedAlbany.value;
	
	calculate(false)
}

function changeOpenTimeAlbany(){
	frmVCT.RESULTS_OpenTimeAlbany.value=frmVCT.INPUT_OpenTimeAlbany.value;
	
	calculate(false)
}

function changeClosingSpeedAlbany(){
	frmVCT.RESULTS_ClosingSpeedAlbany.value=frmVCT.INPUT_ClosingSpeedAlbany.value;
	
	calculate(false)
}

function changeSideFrameAirGapAlbany(){
	frmVCT.RESULTS_SideFrameAirGapAlbany.value=frmVCT.INPUT_SideFrameAirGapAlbany.value;
	
	calculate(false)
}

function changeTopRollAirGapAlbany(){
	frmVCT.RESULTS_TopRollAirGapAlbany.value=frmVCT.INPUT_TopRollAirGapAlbany.value;
	
	calculate(false)
}

function changeRAlbany(){
	frmVCT.RESULTS_RAlbany.value=frmVCT.INPUT_RAlbany.value;
	
	calculate(false)
}

function changePurchasePriceAlbany(){
	frmVCT.RESULTS_PurchasePriceAlbany.value=frmVCT.INPUT_PurchasePriceAlbany.value;
	
	calculate(false)
}

function changeInstallationCostAlbany(){
	frmVCT.RESULTS_InstallationCostAlbany.value=frmVCT.INPUT_InstallationCostAlbany.value;
	
	calculate(false)
}

function changeInspectionCostAlbany(){
	calculateMaintenanceAlbany()
	
	calculate(false)
}

function changeDamageCostAlbany(){
	calculateMaintenanceAlbany()
	
	calculate(false)
}

function changeWearingPartCostAlbany(){
	calculateMaintenanceAlbany()
	
	calculate(false)
}

function checkWearingPartCostAlbany(evt){
	if (evt.keyCode == 9){
		if (checkStep5(true)==true){
			tabClick(6)
		}
	}
}

function changeMaintenanceCostAlbany(){
	frmVCT.RESULTS_AnnualMaintenanceCostAlbany.value=frmVCT.INPUT_MaintenanceCostAlbany.value;
	
	calculate(false)
}

function validate(showMessage){
	if(currentStep == 1){
		if(checkStep1(showMessage)==false){
			return false
		}
	}
	
	if(currentStep == 2){
		if(checkStep2(showMessage)==false){
			return false
		}
	}
	
	if(currentStep == 3){
		if(checkStep3(showMessage)==false){
			return false
		}
	}
	
	if(currentStep == 4){
		if(checkStep4(showMessage)==false){
			return false
		}
	}
	
	if(currentStep == 5){
		if(checkStep5(showMessage)==false){
			return false
		}
	}
	
	return true;
}

function calculateMaintenance(){
	var INPUT_InspectionCost = document.frmVCT.INPUT_InspectionCost.value
	if (isNumeric(INPUT_InspectionCost)==false){
		document.frmVCT.INPUT_MaintenanceCost.value = 0
		
		return false;
	}
	
	var INPUT_DamageCost = document.frmVCT.INPUT_DamageCost.value
	if (isNumeric(INPUT_DamageCost)==false){
		document.frmVCT.INPUT_MaintenanceCost.value = 0
		
		return false;
	}
	
	var INPUT_WearingPartCost = document.frmVCT.INPUT_WearingPartCost.value
	if (isNumeric(INPUT_WearingPartCost)==false){
		document.frmVCT.INPUT_MaintenanceCost.value = 0
		
		return false;
	}
	
	var INPUT_MaintenanceCost = Math.round(INPUT_InspectionCost) + Math.round(INPUT_DamageCost) + Math.round(INPUT_WearingPartCost)
	
	document.frmVCT.INPUT_MaintenanceCost.value = INPUT_MaintenanceCost
	
	return true;
}

function calculateMaintenanceAlbany(){
	var INPUT_InspectionCostAlbany = document.frmVCT.INPUT_InspectionCostAlbany.value
	if (isNumeric(INPUT_InspectionCostAlbany)==false){
		document.frmVCT.INPUT_MaintenanceCostAlbany.value = 0
		
		return false;
	}
	
	var INPUT_DamageCostAlbany = document.frmVCT.INPUT_DamageCostAlbany.value
	if (isNumeric(INPUT_DamageCostAlbany)==false){
		document.frmVCT.INPUT_MaintenanceCostAlbany.value = 0
		
		return false;
	}
	
	var INPUT_WearingPartCostAlbany = document.frmVCT.INPUT_WearingPartCostAlbany.value
	if (isNumeric(INPUT_WearingPartCostAlbany)==false){
		document.frmVCT.INPUT_MaintenanceCostAlbany.value = 0
		
		return false;
	}
	
	var INPUT_MaintenanceCostAlbany = Math.round(INPUT_InspectionCostAlbany) + Math.round(INPUT_DamageCostAlbany) + Math.round(INPUT_WearingPartCostAlbany)
	
	document.frmVCT.INPUT_MaintenanceCostAlbany.value = INPUT_MaintenanceCostAlbany
	
	frmVCT.RESULTS_AnnualMaintenanceCostAlbany.value=frmVCT.INPUT_MaintenanceCostAlbany.value;
		
	return true;
}

function getMessage(sPhraseIdentifier){
	iLanguage_Id = document.frmVCT.lstLanguage[document.frmVCT.lstLanguage.selectedIndex].value

	for (var i=1; i<=PhraseCount; i++){
		if (Phrase4[i] == "1" || Phrase4[i] == "2"){
			if (iLanguage_Id == Phrase1[i]){
				if (Phrase0[i] == sPhraseIdentifier){
					return Phrase2[i]
				}
			}
		}
	}
	
	return ""
}

function checkStep1(showMessage){
	document.frmVCT.RESULTS_Error.value = ""
	
	var INPUT_CustomerName = document.frmVCT.INPUT_CustomerName.value	
	if (INPUT_CustomerName == ""){
		if (showMessage==true){
			alert(getMessage("MESSAGE_CustomerName") + "!")
		
			document.frmVCT.INPUT_CustomerName.focus()
		}
		
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_CustomerName") + "!"
		
		return false;
	}
	
	var INPUT_ContactName = document.frmVCT.INPUT_ContactName.value	
	if (INPUT_ContactName == ""){
		if (showMessage==true){
			alert(getMessage("MESSAGE_ContactName") + "!")
		
			document.frmVCT.INPUT_ContactName.focus()
		}
		
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_ContactName") + "!"
		
		return false;
	}
	
	if (maxStep < 3){
		maxStep = 3
	}
	
	return true;
}

function checkStep2(showMessage){
	document.frmVCT.RESULTS_Error.value = ""

	var INPUT_CyclesPerDay = document.frmVCT.INPUT_CyclesPerDay.value
	if (isNumeric(INPUT_CyclesPerDay)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_CyclesPerDay") + "!")
		
			document.frmVCT.INPUT_CyclesPerDay.focus()
		}
		
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_CyclesPerDay") + "!"
		
		return false;
	}
	
	var INPUT_WorkingDaysPerYear = document.frmVCT.INPUT_WorkingDaysPerYear.value
	if (isNumeric(INPUT_WorkingDaysPerYear)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_WorkingDaysPerDay") + "!")
		
			document.frmVCT.INPUT_WorkingDaysPerYear.focus()
		}
		
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_WorkingDaysPerDay") + "!"
		
		return false;
	}

	var INPUT_OpeningWidth = document.frmVCT.INPUT_OpeningWidth.value
	if (isNumeric(INPUT_OpeningWidth)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_OpeningWidth") + "!")
		
			document.frmVCT.INPUT_OpeningWidth.focus()
		}
		
		if (maxStep > 3){
			document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_OpeningWidth") + "!"
		}
		
		return false;
	}
	
	var INPUT_OpeningHeight = document.frmVCT.INPUT_OpeningHeight.value
	if (isNumeric(INPUT_OpeningHeight)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_OpeningHeight") + "!")
			
			if (maxStep > 3){
				document.frmVCT.INPUT_OpeningHeight.focus()
			}
		
		}
		
		if (maxStep > 3){
			document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_OpeningHeight") + "!"
		}
		
		return false;
	}
	
	var INPUT_OpeningSpeed = document.frmVCT.INPUT_OpeningSpeed.value
	if (isNumeric(INPUT_OpeningSpeed)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_OpeningSpeed") + "!")
		
			document.frmVCT.INPUT_OpeningSpeed.focus()
		
		}
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_OpeningSpeed") + "!"
		
		return false;
	}
	
	var INPUT_OpenTime = document.frmVCT.INPUT_OpenTime.value
	if (isNumeric(INPUT_OpenTime)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_OpenTime") + "!")
		
			document.frmVCT.INPUT_OpenTime.focus()
		
		}	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_OpenTime") + "!"
		
		return false;
	}
	
	var INPUT_ClosingSpeed = document.frmVCT.INPUT_ClosingSpeed.value
	if (isNumeric(INPUT_ClosingSpeed)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_ClosingSpeed") + "!")
		
			document.frmVCT.INPUT_ClosingSpeed.focus()
		
		}	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_ClosingSpeed") + "!"
		
		return false;
	}
	
	var INPUT_SideFrameAirGap = document.frmVCT.INPUT_SideFrameAirGap.value
	if(isNumeric(INPUT_SideFrameAirGap)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_SideFrameAirGap") + "!")
		
			document.frmVCT.INPUT_SideFrameAirGap.focus()
		
		}	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_SideFrameAirGap") + "!"
		
		return false;
	}
	
	var INPUT_TopRollAirGap = document.frmVCT.INPUT_TopRollAirGap.value
	if(isNumeric(INPUT_TopRollAirGap)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_TopRollAirGap") + "!")
		
			document.frmVCT.INPUT_TopRollAirGap.focus()
		
		}	
	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_TopRollAirGap") + "!"
		
		return false;
	}
	
	var INPUT_R = document.frmVCT.INPUT_R.value
	if(isNumeric(INPUT_R)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_R") + "!")
		
			document.frmVCT.INPUT_R.focus()
		
		}
	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_R") + "!"
		
		return false;
	}
	
	if (maxStep < 3){
		maxStep = 3
	}
	return true;
}

function checkStep3(showMessage){
	document.frmVCT.RESULTS_Error.value = ""

	var INPUT_PurchasePrice = document.frmVCT.INPUT_PurchasePrice.value
	if(isNumeric(INPUT_PurchasePrice)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_PurchasePrice") + "!")
			
			document.frmVCT.INPUT_PurchasePrice.focus()
		
		}
	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_PurchasePrice") + "!"
		
		return false;
	}
	
	var INPUT_InstallationCost = document.frmVCT.INPUT_InstallationCost.value
	if(isNumeric(INPUT_InstallationCost)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_InstallationCost") + "!")
			
			document.frmVCT.INPUT_InstallationCost.focus()
		
		}
	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_InstallationCost") + "!"
		
		return false;
	}

	var INPUT_LaborRate = document.frmVCT.INPUT_LaborRate.value
	if(isNumeric(INPUT_LaborRate)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_LaborRate") + "!")
		
			document.frmVCT.INPUT_LaborRate.focus()
		
		}
	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_LaborRate") + "!"
		
		return false;
	}
	
	var INPUT_MaintenanceCost = document.frmVCT.INPUT_MaintenanceCost.value
	if(isNumeric(INPUT_MaintenanceCost)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_MaintenanceCost") + "!")
			
			document.frmVCT.INPUT_MaintenanceCost.focus()
		
		}
	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_MaintenanceCost") + "!"
		
		return false;
	}
	
	var INPUT_ForkliftSpeed = document.frmVCT.INPUT_ForkliftSpeed.value
	if(isNumeric(INPUT_ForkliftSpeed)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_ForkliftSpeed") + "!")
		
			document.frmVCT.INPUT_ForkliftSpeed.focus()
		
		}
	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_ForkliftSpeed") + "!"
		
		return false;
	}
	
	if (maxStep < 4){
		maxStep = 4
	}
	return true;
}

function checkStep4(showMessage){
	document.frmVCT.RESULTS_Error.value = ""

	if (frmVCT.optTemperature[0].checked==true){
		var INPUT_TemperatureDifferential = document.frmVCT.INPUT_TemperatureDifferential.value
		if (isNumeric(INPUT_TemperatureDifferential)==false){
			document.frmVCT.INPUT_TemperatureDifferential.value = 0
		}
	}
	else{
		if (document.frmVCT.optExterior[0].checked == true){
			var INPUT_cdd = document.frmVCT.INPUT_cdd.value
			if(isNumeric(INPUT_cdd)==false){
				if (showMessage==true){
					alert(getMessage("MESSAGE_cdd") + "!")
				
					document.frmVCT.INPUT_cdd.focus()
				
				}
	
				document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_cdd") + "!"
				
				return false;
			}
	
			var INPUT_hdd = document.frmVCT.INPUT_hdd.value
			if(isNumeric(INPUT_hdd)==false){
				if (showMessage==true){
					alert(getMessage("MESSAGE_hdd") + "!")
					
					document.frmVCT.INPUT_hdd.focus()
				
				}
	
				document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_hdd") + "!"
				
				return false;
			}
			
			var INPUT_AverageTemp = document.frmVCT.INPUT_AverageTemp.value
			if(isNumeric(INPUT_AverageTemp)==false){
				if (showMessage==true){
					alert(getMessage("MESSAGE_AverageTemp") + "!")
				
					document.frmVCT.INPUT_AverageTemp.focus()
				
				}
	
				document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_AverageTemp") + "!"
				
				return false;
			}
	
			var INPUT_WindSpeed = document.frmVCT.INPUT_WindSpeed.value
			if(isNumeric(INPUT_WindSpeed)==false){
				if (showMessage==true){
					alert(getMessage("MESSAGE_WindSpeed") + "!")
					
					document.frmVCT.INPUT_WindSpeed.focus()
				
				}
	
				document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_WindSpeed") + "!"
				
				return false;
			}

		}
		else{
			var INPUT_NumberOfCoolingDaysPerYear = document.frmVCT.INPUT_NumberOfCoolingDaysPerYear.value
			if(isNumeric(INPUT_NumberOfCoolingDaysPerYear)==false){
				if (showMessage==true){
					alert(getMessage("MESSAGE_NumberOfCoolingDaysPerYear") + "!")
					
					document.frmVCT.INPUT_NumberOfCoolingDaysPerYear.focus()
				
				}
	
				document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_NumberOfCoolingDaysPerYear") + "!"
				
				return false;
			}
			
			var INPUT_AverageTemperatureDifferenceForCooling = document.frmVCT.INPUT_AverageTemperatureDifferenceForCooling.value
			if(isNumeric(INPUT_AverageTemperatureDifferenceForCooling)==false){
				if (showMessage==true){
					alert(getMessage("MESSAGE_AverageTemperatureDifferenceForCooling") + "!")
					
					document.frmVCT.INPUT_AverageTemperatureDifferenceForCooling.focus()
				
				}
	
				document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_AverageTemperatureDifferenceForCooling") + "!"
				
				return false;
			}
			
			var INPUT_NumberOfHeatingDaysPerYear = document.frmVCT.INPUT_NumberOfHeatingDaysPerYear.value
			if(isNumeric(INPUT_NumberOfHeatingDaysPerYear)==false){
				if (showMessage==true){
					alert(getMessage("MESSAGE_NumberOfHeatingDaysPerYear") + "!")
					
					document.frmVCT.INPUT_NumberOfHeatingDaysPerYear.focus()
				
				}
	
				document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_NumberOfHeatingDaysPerYear") + "!"
				
				return false;
			}
			
			if (parseFloat(INPUT_NumberOfCoolingDaysPerYear) + parseFloat(INPUT_NumberOfHeatingDaysPerYear) > 365){
				if (showMessage==true){
					alert(getMessage("MESSAGE_Sum_Days") + "!")
					
					document.frmVCT.INPUT_NumberOfCoolingDaysPerYear.focus()
				
				}
	
				document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_Sum_Days") + "!"
				
				return false;
			}
			
			var INPUT_AverageTemperatureDifferenceForHeating = document.frmVCT.INPUT_AverageTemperatureDifferenceForHeating.value
			if(isNumeric(INPUT_AverageTemperatureDifferenceForHeating)==false){
				if (showMessage==true){
					alert(getMessage("MESSAGE_AverageTemperatureDifferenceForHeating") + "!")
					
					document.frmVCT.INPUT_AverageTemperatureDifferenceForHeating.focus()
				
				}
	
				document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_AverageTemperatureDifferenceForHeating") + "!"
				
				return false;
			}
			
			var INPUT_WindSpeed2 = document.frmVCT.INPUT_WindSpeed2.value
			if(isNumeric(INPUT_WindSpeed2)==false){
				if (showMessage==true){
					alert(getMessage("MESSAGE_WindSpeed") + "!")
				
					document.frmVCT.INPUT_WindSpeed2.focus()
				
				}
	
				document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_WindSpeed") + "!"
				
				return false;
			}
		}
	}
	
	INPUT_HeatingCost = document.frmVCT.INPUT_HeatingCost.value
	if (isNumeric(INPUT_HeatingCost)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_HeatingCost") + "!")
				
			document.frmVCT.INPUT_HeatingCost.focus()
				
		}
				
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_HeatingCost") + "!"
		
		return false;
	}
	
	if (maxStep < 5){
		maxStep = 5
	}
	return true
}

function checkStep5(showMessage){
	document.frmVCT.RESULTS_Error.value = ""

	var INPUT_OpeningSpeedAlbany = document.frmVCT.INPUT_OpeningSpeedAlbany.value
	if (isNumeric(INPUT_OpeningSpeedAlbany)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_OpeningSpeedAlbany") + "!")
		
			document.frmVCT.INPUT_OpeningSpeedAlbany.focus()
		
		}
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_OpeningSpeedAlbany") + "!"
		
		return false;
	}
	
	var INPUT_ClosingSpeedAlbany = document.frmVCT.INPUT_ClosingSpeedAlbany.value
	if (isNumeric(INPUT_ClosingSpeedAlbany)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_ClosingSpeedAlbany") + "!")
			
			document.frmVCT.INPUT_ClosingSpeedAlbany.focus()
		
		}	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_ClosingSpeedAlbany") + "!"
		
		return false;
	}
	
	var INPUT_SideFrameAirGapAlbany = document.frmVCT.INPUT_SideFrameAirGapAlbany.value
	if(isNumeric(INPUT_SideFrameAirGapAlbany)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_SideFrameAirGapAlbany") + "!")
			
			document.frmVCT.INPUT_SideFrameAirGapAlbany.focus()
		
		}	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_SideFrameAirGapAlbany") + "!"
		
		return false;
	}
	
	var INPUT_TopRollAirGapAlbany = document.frmVCT.INPUT_TopRollAirGapAlbany.value
	if(isNumeric(INPUT_TopRollAirGapAlbany)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_TopRollAirGapAlbany") + "!")
		
			document.frmVCT.INPUT_TopRollAirGapAlbany.focus()
		
		}	
	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_TopRollAirGapAlbany") + "!"
		
		return false;
	}
	
	var INPUT_RAlbany = document.frmVCT.INPUT_RAlbany.value
	if(isNumeric(INPUT_RAlbany)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_RAlbany") + "!")
			
			document.frmVCT.INPUT_RAlbany.focus()
		
		}
	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_RAlbany") + "!"
		
		return false;
	}
	
	var INPUT_PurchasePriceAlbany = document.frmVCT.INPUT_PurchasePriceAlbany.value
	if(isNumeric(INPUT_PurchasePriceAlbany)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_PurchasePrice") + "!")
		
			document.frmVCT.INPUT_PurchasePriceAlbany.focus()
		
		}
	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_PurchasePrice") + "!"
		
		return false;
	}
	
	var INPUT_InstallationCostAlbany = document.frmVCT.INPUT_InstallationCostAlbany.value
	if(isNumeric(INPUT_InstallationCostAlbany)==false){
		if (showMessage==true){
			alert(getMessage("MESSAGE_InstallationCost") + "!")
		
			document.frmVCT.INPUT_InstallationCostAlbany.focus()
		
		}
	
		document.frmVCT.RESULTS_Error.value=getMessage("MESSAGE_InstallationCost") + "!"
		
		return false;
	}
	
	if (maxStep < 6){
		maxStep = 6
	}
	return true
}

function calculate(showMessage){
	var INPUT_CyclesPerDay
	var INPUT_WorkingDaysPerYear
	var INPUT_OpeningWidth
	var INPUT_OpeningHeight
	var INPUT_OpeningSpeed
	var INPUT_OpenTime
	var INPUT_ClosingSpeed
	var INPUT_R
	
	var INPUT_TemperatureDifferential
	var INPUT_HeatingCost
	
	var INPUT_ClosingSpeedAlbany
	var INPUT_OpenTimeAlbany
	var INPUT_OpeningSpeedAlbany
	var INPUT_TopRollAirGap
	var INPUT_SideFrameAirGap
	var INPUT_TopRollAirGapAlbany
	var INPUT_SideFrameAirGapAlbany
	
	var INPUT_CoolingCost
	var INPUT_LaborRate
	var INPUT_ForkliftSpeed
	
	var INPUT_cdd
	var INPUT_hdd
	var INPUT_AverageTemp
	var INPUT_WindSpeed
	
	var INPUT_NumberOfCoolingDaysPerYear
	var INPUT_AverageTemperatureDifferenceForCooling
	var INPUT_NumberOfHeatingDaysPerYear
	var INPUT_AverageTemperatureDifferenceForHeating
	//var INPUT_WindSpeed2
	
	var INPUT_RAlbany
	
	var INPUT_MaintenanceCost
	var INPUT_MaintenanceCostAlbany
	
	var INPUT_PurchasePrice
	var INPUT_PurchasePriceAlbany
	var INPUT_InstallationCost
	var INPUT_InstallationCostAlbany
	
	var CALC_ForkliftDistance
	var CALC_albForkliftDistance
	
	var CALC_timeofdoortoopen
	var CALC_albtimeofdoortoopen
	var CALC_timeofdoortoclose
	var CALC_albtimeofdoortoclose
	var CALC_totaltimedoorisopen
	var CALC_albtotaltimedoorisopen
	
	var CALC_CC //Ny 2005-06-21
	var CALC_ls
	var CALC_As
	var CALC_cosec
	var CALC_ccsec
	var CALC_cttime
	var CALC_ctotime
	var CALC_ccalccfm
	var CALC_costhg
	var CALC_cosths
	var CALC_cdd
	var CALC_costce
	var CALC_costt
	var CALC_ccostoc
	var CALC_CoolingCost
	
	var CALC_albosec
	var CALC_albcsec
	var CALC_albttime
	var CALC_albtotime
	var CALC_albcalccfm
	var CALC_Albcostoc
	
	var CALC_cAvcost
	var CALC_C
	var CALC_clit
	var CALC_clis
	var CALC_cli
	var CALC_cAv
	
	var CALC_alblit
	var CALC_alblis
	var CALC_albli
	var CALC_albAv
	var CALC_albAvcost
	
	var CALC_Ucur
	var CALC_costyearcur
	//var CALC_exTemp
	var CALC_delT
	var CALC_qcur
	var CALC_Kwhcur
	
	var CALC_Ualb
	var CALC_galb
	var CALC_Kwhalb
	var CALC_costyearalb
	
	var CALC_claborwait
	var CALC_alblaborwait
	
	var CALC_TotalCost
	var CALC_TotalCostAlbany
	var CALC_Saving
	var CALC_SavingPerCycle
	
	var CALC_AverageTempDifferential
	
	var CALC_AmmortizationTime
	
	document.frmVCT.RESULTS_Error.value = ""
	
	if (checkStep1(false)==false){
		return false
	}
	
	if (maxStep > 2){
		if (checkStep2(false)==false){
			return false
		}
	}
	else{
		return false;
	}
	
	if (maxStep > 3){
		if (checkStep3(false)==false){
			return false
		}
	}
	else{
		return false
	}
	
	if (maxStep > 4){
		if (checkStep4(false)==false){
			return false
		}
	}
	else{
		return false;
	}
	
	if (maxStep > 5){
		if (checkStep5(false)==false){
			return false
		}
	}
	else{
		return false;
	}

	INPUT_OpeningWidth = document.frmVCT.INPUT_OpeningWidth.value	
	if (frmVCT.optRegion[0].checked==false){
		INPUT_OpeningWidth = INPUT_OpeningWidth/304.8
	}
	
	INPUT_OpeningHeight = document.frmVCT.INPUT_OpeningHeight.value
	if (frmVCT.optRegion[0].checked==false){
		INPUT_OpeningHeight = INPUT_OpeningHeight/304.8
	}
	
	INPUT_CyclesPerDay = document.frmVCT.INPUT_CyclesPerDay.value
	INPUT_WorkingDaysPerYear = document.frmVCT.INPUT_WorkingDaysPerYear.value
	INPUT_OpeningSpeed = document.frmVCT.INPUT_OpeningSpeed.value	
	if (frmVCT.optRegion[0].checked==false){
		INPUT_OpeningSpeed = INPUT_OpeningSpeed/0.0254
	}
	
	INPUT_OpenTime = document.frmVCT.INPUT_OpenTime.value
	INPUT_ClosingSpeed = document.frmVCT.INPUT_ClosingSpeed.value
	if (frmVCT.optRegion[0].checked==false){
		INPUT_ClosingSpeed = INPUT_ClosingSpeed/0.0254
	}
	
	INPUT_SideFrameAirGap = document.frmVCT.INPUT_SideFrameAirGap.value
	if (frmVCT.optRegion[0].checked==false){
		INPUT_SideFrameAirGap = INPUT_SideFrameAirGap / 25.4
	}	
	
	INPUT_TopRollAirGap = document.frmVCT.INPUT_TopRollAirGap.value
	if (frmVCT.optRegion[0].checked==false){
		INPUT_TopRollAirGap = INPUT_TopRollAirGap / 25.4
	}
	
	INPUT_R = document.frmVCT.INPUT_R.value
	
	if (frmVCT.optRegion[0].checked==false){
		INPUT_R = 1 / (INPUT_R * 0.176)
	}

	INPUT_LaborRate = document.frmVCT.INPUT_LaborRate.value
	INPUT_MaintenanceCost = document.frmVCT.INPUT_MaintenanceCost.value
	INPUT_ForkliftSpeed = document.frmVCT.INPUT_ForkliftSpeed.value
	if (frmVCT.optRegion[0].checked==false){
		INPUT_ForkliftSpeed = INPUT_ForkliftSpeed * 0.6213712
	}
	
	INPUT_MaintenanceCostAlbany = document.frmVCT.INPUT_MaintenanceCostAlbany.value
	
	// Interior
	if (frmVCT.optTemperature[0].checked==true){
		INPUT_TemperatureDifferential = document.frmVCT.INPUT_TemperatureDifferential.value
		if (frmVCT.optRegion[0].checked==false){
			INPUT_TemperatureDifferential = INPUT_TemperatureDifferential * (9/5)
		}
		
		INPUT_cdd = 365 * INPUT_TemperatureDifferential
		INPUT_hdd = 0
		
		CALC_AverageTempDifferential = INPUT_TemperatureDifferential
		
		if (frmVCT.optRegion[0].checked==false){
			INPUT_WindSpeed = 0
		}
		else{
			INPUT_WindSpeed = 0		}
		
		INPUT_TemperatureDifferential = 0
	}
	else{
		INPUT_TemperatureDifferential = 0
		
		if (frmVCT.optExterior[0].checked==true){
			INPUT_cdd = document.frmVCT.INPUT_cdd.value
			INPUT_hdd = document.frmVCT.INPUT_hdd.value
			
			INPUT_AverageTemp = document.frmVCT.INPUT_AverageTemp.value
			INPUT_WindSpeed = document.frmVCT.INPUT_WindSpeed.value
			
			CALC_AverageTempDifferential = (parseFloat(INPUT_cdd) + parseFloat(INPUT_hdd)) / 365
			
		}
		else{
			INPUT_NumberOfCoolingDaysPerYear = document.frmVCT.INPUT_NumberOfCoolingDaysPerYear.value
			INPUT_AverageTemperatureDifferenceForCooling = document.frmVCT.INPUT_AverageTemperatureDifferenceForCooling.value
			if (frmVCT.optRegion[0].checked==false){
				INPUT_AverageTemperatureDifferenceForCooling = INPUT_AverageTemperatureDifferenceForCooling * (9/5)
				
				//INPUT_AverageTemperatureDifferenceForCooling = CelsiusToFahrenheit(INPUT_AverageTemperatureDifferenceForCooling)
			}
			
			INPUT_NumberOfHeatingDaysPerYear = document.frmVCT.INPUT_NumberOfHeatingDaysPerYear.value
			INPUT_AverageTemperatureDifferenceForHeating = document.frmVCT.INPUT_AverageTemperatureDifferenceForHeating.value
			if (frmVCT.optRegion[0].checked==false){
				INPUT_AverageTemperatureDifferenceForHeating = INPUT_AverageTemperatureDifferenceForHeating * (9/5)
				//INPUT_AverageTemperatureDifferenceForHeating = CelsiusToFahrenheit(INPUT_AverageTemperatureDifferenceForHeating)
			}
			
			INPUT_WindSpeed = document.frmVCT.INPUT_WindSpeed2.value
			
			if (frmVCT.optRegion[0].checked==false){
				if (INPUT_WindSpeed < 0.4){
					INPUT_WindSpeed = 0.4
				}
			}
			else{
				if (INPUT_WindSpeed < 0.885){
					INPUT_WindSpeed = 0.885
				}
			}
			
			INPUT_cdd = INPUT_NumberOfCoolingDaysPerYear * INPUT_AverageTemperatureDifferenceForCooling
			INPUT_hdd = INPUT_NumberOfHeatingDaysPerYear * INPUT_AverageTemperatureDifferenceForHeating
						
			CALC_AverageTempDifferential = (parseFloat(INPUT_cdd) + parseFloat(INPUT_hdd)) / 365
		}
	}
	
	if (frmVCT.optRegion[0].checked==false){
		INPUT_WindSpeed = INPUT_WindSpeed * 2.2369363
	}
	
	INPUT_HeatingCost = document.frmVCT.INPUT_HeatingCost.value
	INPUT_CoolingCost = document.frmVCT.INPUT_CoolingCost.value
	if (isNumeric(INPUT_CoolingCost)==false){
		INPUT_CoolingCost = 0
	}
	
	INPUT_OpeningSpeedAlbany = document.frmVCT.INPUT_OpeningSpeedAlbany.value
	if (frmVCT.optRegion[0].checked==false){
		INPUT_OpeningSpeedAlbany = INPUT_OpeningSpeedAlbany/0.0254
	}
	
	INPUT_OpenTimeAlbany = document.frmVCT.INPUT_OpenTimeAlbany.value
	INPUT_ClosingSpeedAlbany = document.frmVCT.INPUT_ClosingSpeedAlbany.value
	if (frmVCT.optRegion[0].checked==false){
		INPUT_ClosingSpeedAlbany = INPUT_ClosingSpeedAlbany/0.0254
	}
	
	INPUT_TopRollAirGapAlbany = document.frmVCT.INPUT_TopRollAirGapAlbany.value
	if (frmVCT.optRegion[0].checked==false){
		INPUT_TopRollAirGapAlbany = INPUT_TopRollAirGapAlbany / 25.4
	}
	
	INPUT_SideFrameAirGapAlbany = document.frmVCT.INPUT_SideFrameAirGapAlbany.value
	if (frmVCT.optRegion[0].checked==false){
		INPUT_SideFrameAirGapAlbany = INPUT_SideFrameAirGapAlbany / 25.4
	}
	
	INPUT_RAlbany = document.frmVCT.INPUT_RAlbany.value
	
	if (frmVCT.optRegion[0].checked==false){
		INPUT_RAlbany = 1 / (INPUT_RAlbany * 0.176)
	}
	
	INPUT_PurchasePrice = document.frmVCT.INPUT_PurchasePrice.value
	INPUT_PurchasePriceAlbany = document.frmVCT.INPUT_PurchasePriceAlbany.value
	
	INPUT_InstallationCost = document.frmVCT.INPUT_InstallationCost.value
	INPUT_InstallationCostAlbany = document.frmVCT.INPUT_InstallationCostAlbany.value
	
	CALC_timeofdoortoopen = (INPUT_OpeningHeight * 12) / INPUT_OpeningSpeed
	document.frmVCT.RESULTS_TimeOfDoorToOpen.value = Math.round(CALC_timeofdoortoopen * 10) / 10
	
	CALC_albtimeofdoortoopen = (INPUT_OpeningHeight * 12) / INPUT_OpeningSpeedAlbany
	document.frmVCT.RESULTS_TimeOfDoorToOpenAlbany.value = Math.round(CALC_albtimeofdoortoopen * 10) / 10
	
	CALC_timeofdoortoclose = (INPUT_OpeningHeight * 12) / INPUT_ClosingSpeed
	document.frmVCT.RESULTS_TimeOfDoorToClose.value = Math.round(CALC_timeofdoortoclose * 10) / 10
	
	CALC_albtimeofdoortoclose = (INPUT_OpeningHeight * 12) / INPUT_ClosingSpeedAlbany
	document.frmVCT.RESULTS_TimeOfDoorToCloseAlbany.value = Math.round(CALC_albtimeofdoortoclose * 10) / 10
	
	CALC_totaltimedoorisopen = parseFloat(CALC_timeofdoortoopen) + parseFloat(CALC_timeofdoortoclose) + parseFloat(INPUT_OpenTime)
	document.frmVCT.RESULTS_TotalTimeDoorIsOpen.value = Math.round(CALC_totaltimedoorisopen * 10) / 10
	
	CALC_albtotaltimedoorisopen = parseFloat(CALC_albtimeofdoortoopen) + parseFloat(CALC_albtimeofdoortoclose) + parseFloat(INPUT_OpenTimeAlbany)
	document.frmVCT.RESULTS_TotalTimeDoorIsOpenAlbany.value = Math.round(CALC_albtotaltimedoorisopen * 10) / 10	
	
	if (frmVCT.optRegion[0].checked==true){
		CALC_ForkliftDistance = (INPUT_ForkliftSpeed * 5280 * CALC_timeofdoortoopen) / 3600
		CALC_albForkliftDistance = (INPUT_ForkliftSpeed * 5280 * CALC_albtimeofdoortoopen) / 3600
	}
	else{
		CALC_ForkliftDistance = (INPUT_ForkliftSpeed * 1609.344 * CALC_timeofdoortoopen) / 3600
		CALC_albForkliftDistance = (INPUT_ForkliftSpeed * 1609.344 * CALC_albtimeofdoortoopen) / 3600
	}
	
	document.frmVCT.RESULTS_ForkliftDistance.value = Math.round(CALC_ForkliftDistance)
	document.frmVCT.RESULTS_ForkliftDistanceAlbany.value = Math.round(CALC_albForkliftDistance)
	
	// Ny 2006-06-21
	CALC_CC = caAdjust + cbAdjust * CALC_AverageTempDifferential
	CALC_ls = INPUT_OpeningWidth * INPUT_OpeningHeight
	
	if (frmVCT.optTemperature[0].checked==true){
		//CALC_As = 60 * CALC_CC * ((INPUT_OpeningHeight * INPUT_OpeningWidth)/stackInlet) * Math.sqrt(64.4 * (INPUT_OpeningHeight / stackInlet) * (INPUT_TemperatureDifferential/524))

		CALC_As = 60 * CALC_CC * ((INPUT_OpeningHeight * INPUT_OpeningWidth)/stackInlet) * Math.sqrt(64.4 * (INPUT_OpeningHeight / stackInlet) * (CALC_AverageTempDifferential/524))

		
	}
	else{
		CALC_As = 60 * CALC_CC * ((INPUT_OpeningHeight * INPUT_OpeningWidth) / stackInlet) * Math.sqrt(64.4 * (INPUT_OpeningHeight / stackInlet) * (CALC_AverageTempDifferential/524))
	}
	
	CALC_cosec = INPUT_OpeningHeight / (INPUT_OpeningSpeed / 12)	
	CALC_ccsec = INPUT_OpeningHeight / (INPUT_ClosingSpeed / 12)
	
	//CALC_cttime = parseFloat(INPUT_OpenTime) + parseFloat(CALC_cosec) + parseFloat(CALC_ccsec)	
	CALC_cttime = parseFloat(openAdjust) * (parseFloat(CALC_cosec) + parseFloat(CALC_ccsec)) + parseFloat(INPUT_OpenTime)	
	CALC_ctotime = (CALC_cttime * INPUT_WorkingDaysPerYear * INPUT_CyclesPerDay)/60
	CALC_ccalccfm = (CALC_As * CALC_ctotime)/525600
	CALC_costhg = INPUT_hdd * INPUT_HeatingCost * 0.000324
	CALC_cosths = INPUT_hdd * 0 * 0.026
	CALC_cdd = parseFloat(INPUT_cdd) + parseFloat((INPUT_TemperatureDifferential * 365))
	CALC_costce = CALC_cdd * INPUT_CoolingCost * 0.0196
	CALC_costt = CALC_costhg + CALC_cosths + CALC_costce
	CALC_ccostoc = CALC_ccalccfm * CALC_costt
	
	document.frmVCT.RESULTS_MassAirFlow.value = Math.round(CALC_ccostoc)
	
	CALC_albosec = INPUT_OpeningHeight / (INPUT_OpeningSpeedAlbany / 12)
	CALC_albcsec = INPUT_OpeningHeight / (INPUT_ClosingSpeedAlbany / 12)
	//CALC_albttime = oTime + CALC_albosec + CALC_albcsec	
	CALC_albttime = openAdjust * (parseFloat(CALC_albosec) + parseFloat(CALC_albcsec)) + parseFloat(oTime)
	CALC_albtotime = (CALC_albttime * INPUT_WorkingDaysPerYear * INPUT_CyclesPerDay)/60
	CALC_albcalccfm = (CALC_As * CALC_albtotime)/525600
	CALC_Albcostoc = CALC_albcalccfm * CALC_costt
	
	document.frmVCT.RESULTS_MassAirFlowAlbany.value = Math.round(CALC_Albcostoc)
	
	if (frmVCT.optTemperature[0].checked==true){
		CALC_C = 0.1
	}
	else{
		CALC_C = 0.2
	}
	
	CALC_clit = INPUT_TopRollAirGap * INPUT_OpeningWidth
	CALC_clis = INPUT_SideFrameAirGap * INPUT_OpeningHeight * 2
	CALC_cli = CALC_clis + CALC_clit
	
	//CALC_cAv = 88 * CALC_cli * CALC_C * INPUT_WindSpeed
	
	CALC_cAv = ((((INPUT_SideFrameAirGap/0.0625) * 2 * INPUT_OpeningHeight) * (INPUT_WindSpeed * 12.88 - 11.4)) + (((INPUT_TopRollAirGap/0.0625) * INPUT_OpeningWidth) * (INPUT_WindSpeed * 12.88 - 11.4)))/60
	CALC_cAvcost = CALC_cAv * CALC_costt

	if (frmVCT.optTemperature[0].checked==true){
		document.frmVCT.RESULTS_AirInfiltrationCost.value = Math.round(0)
	}
	else{
		document.frmVCT.RESULTS_AirInfiltrationCost.value = Math.round(CALC_cAvcost)
	}
	
	CALC_alblis = parseFloat(INPUT_SideFrameAirGapAlbany) * parseFloat(INPUT_OpeningHeight) * 2
	CALC_alblit = parseFloat(INPUT_TopRollAirGapAlbany) * parseFloat(INPUT_OpeningWidth)
	CALC_albli = CALC_alblis + CALC_alblit
	
	//CALC_albAv = 88 * CALC_albli * CALC_C * INPUT_WindSpeed
	
	//CALC_albAv = ((((INPUT_SideFrameAirGapAlbany/0.0625) * 2 * INPUT_OpeningHeight) + ((INPUT_TopRollAirGapAlbany/0.0625) * 2 * INPUT_OpeningWidth)) * (INPUT_WindSpeed * 12.88 - 11.4))/60
		
	CALC_albAv = ((((INPUT_SideFrameAirGapAlbany/0.0625) * 2 * INPUT_OpeningHeight) * (INPUT_WindSpeed * 12.88 - 11.4)) + (((INPUT_TopRollAirGapAlbany/0.0625) * INPUT_OpeningWidth) * (INPUT_WindSpeed * 12.88 - 11.4)))/60
		
	CALC_albAvcost = CALC_albAv * CALC_costt

	if (frmVCT.optTemperature[0].checked==true){
		document.frmVCT.RESULTS_AirInfiltrationCostAlbany.value = Math.round(0)
	}
	else{
		document.frmVCT.RESULTS_AirInfiltrationCostAlbany.value = Math.round(CALC_albAvcost)
	}
	
	CALC_Ucur = 1/(INPUT_R * 0.176)
	
	CALC_delT = (parseFloat(CALC_AverageTempDifferential) + parseFloat(INPUT_TemperatureDifferential))*(5/9)
	
	CALC_qcur = CALC_delT * CALC_Ucur * INPUT_OpeningHeight * INPUT_OpeningWidth * 0.093
	CALC_Kwhcur = CALC_qcur / 1000
	
	if (parseFloat(INPUT_cdd) + parseFloat(INPUT_hdd) == 0){
		CALC_costyearcur = 0
	}
	else{
		CALC_costyearcur = (parseFloat(CALC_Kwhcur) * 8760 * parseFloat(INPUT_CoolingCost) * (INPUT_cdd /(parseFloat(INPUT_cdd) + parseFloat(INPUT_hdd)))) + (0.0341 * CALC_Kwhcur * 8760 * INPUT_HeatingCost * (INPUT_hdd / (parseFloat(INPUT_cdd) + parseFloat(INPUT_hdd))))
	}
	
	document.frmVCT.RESULTS_EnergyLoss.value = Math.round(CALC_costyearcur)
	
	CALC_Ualb = 1/(INPUT_RAlbany * 0.176)
	CALC_galb = CALC_delT * CALC_Ualb * INPUT_OpeningHeight * INPUT_OpeningWidth * 0.093	
	CALC_Kwhalb = CALC_galb / 1000
	if (parseFloat(INPUT_cdd) + parseFloat(INPUT_hdd) == 0){
		CALC_costyearalb = 0
	}
	else{
		CALC_costyearalb = (CALC_Kwhalb * 8760 * INPUT_CoolingCost * (INPUT_cdd /(parseFloat(INPUT_cdd) + parseFloat(INPUT_hdd)))) + (0.0341 * CALC_Kwhalb * 8760 * INPUT_HeatingCost * (INPUT_hdd / (parseFloat(INPUT_cdd) + parseFloat(INPUT_hdd))))
	}

	document.frmVCT.RESULTS_EnergyLossAlbany.value = Math.round(CALC_costyearalb)
	
	CALC_claborwait = CALC_cosec * INPUT_CyclesPerDay * INPUT_WorkingDaysPerYear *  INPUT_LaborRate / 3600
	
	document.frmVCT.RESULTS_LaborCost.value = Math.round(CALC_claborwait)
	
	CALC_alblaborwait = CALC_albosec * INPUT_CyclesPerDay * INPUT_WorkingDaysPerYear *  INPUT_LaborRate / 3600
	
	document.frmVCT.RESULTS_LaborCostAlbany.value = Math.round(CALC_alblaborwait)
	
	document.frmVCT.RESULTS_AnnualMaintenanceCost.value = Math.round(INPUT_MaintenanceCost)
	document.frmVCT.RESULTS_AnnualMaintenanceCostAlbany.value = Math.round(INPUT_MaintenanceCostAlbany)
	
	CALC_TotalCost = Math.round(CALC_ccostoc) + Math.round(CALC_cAvcost) + Math.round(CALC_costyearcur) + Math.round(CALC_claborwait) + Math.round(INPUT_MaintenanceCost)
	
	document.frmVCT.RESULTS_Sum.value = Math.round(CALC_TotalCost)
	
	CALC_TotalCostAlbany = Math.round(CALC_Albcostoc) + Math.round(CALC_albAvcost) + Math.round(CALC_costyearalb) + Math.round(CALC_alblaborwait) + parseFloat(INPUT_MaintenanceCostAlbany)
	
	document.frmVCT.RESULTS_SumAlbany.value = Math.round(CALC_TotalCostAlbany)
	
	CALC_Saving = Math.round(CALC_TotalCost) - Math.round(CALC_TotalCostAlbany)
	
	document.frmVCT.RESULTS_Saving.value = Math.round(CALC_Saving)
	
	CALC_SavingPerCycle = Math.round(CALC_Saving)/(INPUT_CyclesPerDay * INPUT_WorkingDaysPerYear)
	
	document.frmVCT.RESULTS_SavingPerCycle.value = Math.round(CALC_SavingPerCycle * 100) / 100
	
	CALC_AmmortizationTime = ((INPUT_PurchasePriceAlbany - INPUT_PurchasePrice) + (INPUT_InstallationCostAlbany - INPUT_InstallationCost)) / CALC_Saving
	
	//alert(parseFloat(CALC_AmmortizationTime))
	
	//alert(parseFloat(CALC_AmmortizationTime) < 0)
	
	if (parseFloat(CALC_AmmortizationTime) < 0){
		CALC_AmmortizationTime = 0
	}
	
	//alert(CALC_AmmortizationTime)
	
	//document.frmVCT.RESULTS_AmmortizationTime.value = parseFloat(CALC_AmmortizationTime)
	
	document.frmVCT.RESULTS_AmmortizationTime.value = Math.round(parseFloat(CALC_AmmortizationTime)*10)/10
	
	//document.frmVCT.RESULTS_AmmortizationTime.value = CALC_AmmortizationTime

	// Rita graf
	CALC_TotalCost = parseFloat(CALC_TotalCost) + parseFloat(INPUT_PurchasePrice) + parseFloat(INPUT_InstallationCost)
	
	var Graph_Y3 = Math.round(parseFloat(CALC_TotalCost)/100)*100
	var Graph_Y2 = Math.round(parseFloat(CALC_TotalCost)/200)*100
	
		
	document.frmVCT.GRAPH_Y3.value = Graph_Y3;
	document.frmVCT.GRAPH_Y2.value = Graph_Y2;
	
	// Räkna ut värdet för maintenance
	var Graph_Albany_Maintenance = Math.round(parseFloat(INPUT_MaintenanceCostAlbany) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_Albany_Maintenance").height=Graph_Albany_Maintenance
	
	// Räkna ut värdet för labor
	var Graph_Albany_Labor = Math.round(parseFloat(CALC_alblaborwait) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_Albany_Labor").height=Graph_Albany_Labor
	
	// Räkna ut värdet för conduction
	var Graph_Albany_Conduction = Math.round(parseFloat(CALC_costyearalb) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_Albany_Conduction").height=Graph_Albany_Conduction
	
	// Räkna ut värdet för infiltration
	var Graph_Albany_Infiltration = Math.round(parseFloat(CALC_albAvcost) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_Albany_Infiltration").height = Graph_Albany_Infiltration
	
	// Räkna ut värdet för mass Air Flow Cost
	var Graph_Albany_MassAirFlowCost = Math.round(parseFloat(CALC_Albcostoc) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_Albany_MassAirFlowCost").height = Graph_Albany_MassAirFlowCost
	
	// Räkna ut värdet för Door Cost
	var Graph_Albany_DoorCost = Math.round((parseFloat(INPUT_PurchasePriceAlbany) + parseFloat(INPUT_InstallationCostAlbany)) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_Albany_DoorCost").height = Graph_Albany_DoorCost
	
	// Räkna ut värdet för maintenance
	var Graph_Maintenance = Math.round(parseFloat(INPUT_MaintenanceCost) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_Maintenance").height=Graph_Maintenance
	
	// Räkna ut värdet för labor
	var Graph_Labor = Math.round(parseFloat(CALC_claborwait) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_Labor").height=Graph_Labor
	
	// Räkna ut värdet för conduction
	var Graph_Conduction = Math.round(parseFloat(CALC_costyearcur) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_Conduction").height=Graph_Conduction
	
	// Räkna ut värdet för infiltration
	var Graph_Infiltration = Math.round(parseFloat(CALC_cAvcost) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_Infiltration").height = Graph_Infiltration
	
	// Räkna ut värdet för mass Air Flow Cost
	var Graph_MassAirFlowCost = Math.round(parseFloat(CALC_ccostoc) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_MassAirFlowCost").height = Graph_MassAirFlowCost
	
	// Räkna ut värdet för Door Cost
	var Graph_DoorCost = Math.round((parseFloat(INPUT_PurchasePrice) + parseFloat(INPUT_InstallationCost)) / parseFloat(CALC_TotalCost) * 140)
	document.getElementById("IMG_DoorCost").height = Graph_DoorCost
	
}