Hi

Anyone know how to do this?

I have a webpage that has to calculate Degree Days for fuel usage within the home. It has a field called strdegday which is populated from a calculation of min and max temperature divided by 2.

so max 19 + min 13 = 32 / 2 = 16

We work from a normal of 19 for the degrees round here, so 19-16 leaves me 3 as the degree day.

Phew hope that makes sense.

But i need to add a factor for Hot Water usage and that's where im stumped.

With the field stdegday now populated with the figure 3 I need to do an IF calculation on it.

I need to know:

if strdegday= 0 to 6 then write 0
or if strdegday=7 to 10 then write 1
11 to 16=2 and 17 and over write 3

If only it was as easy as above !

It's to build in a hot water factor so if Degreeday was 9 then there would be a plus 1 hot water factor, leaving me finally with a total degree day of 10.

Any pointers in the right direction would be really appreciated.

Regards

Function calcHotWaterFactor(strdegday)
	Dim result
	If strdegday < 10
		Then result = Round(0.0023*strdegday*strdegday + 0.13*strdegday - 0.44,0)
		Else result = Round(0.0023*strdegday*strdegday + 0.13*strdegday - 0.19,0)
	End If
	calcHotWaterFactor = result
End Function

document.write(calcHotWaterFactor(strdegday))

Function calcHotWaterFactorLikeANormalPerson(ByVal strdegday As Integer) as integer
    Dim result as integer
    Select Case strdegday
        Case 0 To 6
            result = 0
        Case 7 To 10
            result = 1
        Case 11 To 16
            result = 2
        Case Else
            result = 3
    End Select
    
    calcHotWaterFactor = result
End Function

Ahahaha, AHAHAHAHAHAHA. VB indeed. Ever heard of JavaScript? SOOoooooo much better, ZZZZZZZzzzzzzzzzzzzzzzzzzz.

Hmm, anything i'm maybe doing wrong?

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/Degday/DegreeDayslist.asp, line 486
Function calcHotWaterFactor(ByVal strdegday As Integer) as integer

Doesnt appear to be?

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/Degday/DegreeDayslist.asp, line 486
Function calcHotWaterFactor (ByVal strdegday As Integer) as Integer

When I run your one you created I get this too

Technical Information (for support personnel)

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/Degday/DegreeDayslist.asp, line 486
Function calcHotWaterFactor(strdegday)

Any ideas ?

Thanks Kenny,

Heres what I get now

Technical Information (for support personnel)

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/Degday/DegreeDayslist.asp, line 486
Function calcHotWaterFactorLikeANormalPerson

Using this,

<% Function calcHotWaterFactorLikeANormalPerson
Dim result
Select Case strdegday
Case 0 To 6
result = 0
Case 7 To 10
result = 1
Case 11 To 16
result = 2
Case Else
result = 3
End Select

calcHotWaterFactor = result
End Function %>

function calcHotWaterFactor(strdegday)
{
	if (strdegday <= 6) return 0
	else if (strdegday <= 10) return 1
	else if (strdegday <= 16) return 2
	else return 3;
}

One stupid to you probably question how do I get it to write the result?

Thanks

Which line is 486? You seem to have lost the parameter - the fuction definition should be:

Function calcHotWaterFactorLikeANormalPerson(strdegday)

I've got a feeling that in ASP, the function definition needs to be above any calls to it. I've not done ASP in years :S.

Your right I was calling it first. On moving it up to the page header I get

Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/Degday/DegreeDayslist.asp, line 190, column 7
Case 0 To 6
------^

186 <%
187 Function calcHotWaterFactorLikeANormalPerson(strdegday)
188 Dim result
189 Select Case strdegday
190 Case 0 To 6
191 result = 0
192 Case 7 To 10
193 result = 1
194 Case 11 To 16
195 result = 2
196 Case Else
197 result = 3
198 End Select
199
200 calcHotWaterFactor = result
201 End Function
202 %>

If your too busy it doesn't matter, as I understand folks have work to do !

Case 0,1,2,3,4,5,6
	result = 0
Case 7,8,9,10
	result = 1