HOME 

PRODUCTS       

INFORMATION

CONTACT 


VPD Calculator

<% Dim bValid, ATemp, ARH, result, AAirTemp, AAirRH, ALeafTemp Function IsValid(ANumber) if (len(ANumber) > 0) and (IsNumeric(ANumber) = true) then IsValid = true else IsValid = false end if End Function If request.Form("VpdCalc") = "yes" then ATemp = Request.Form("temp") ARH = Request.Form("RH") AAirTemp = Request.Form("AirTemp") AAirRH = Request.Form("AirRH") ALeafTemp = Request.Form("LeafTemp") response.write "
" & vbCrLf _ & "" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf if (IsValid(ATemp) = false) and (IsValid(ARH) = true) then response.write " " & vbCrLf end if response.write " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf if (IsValid(ARH) = false) and (IsValid(ATemp) = true) then response.write " " & vbCrLf end if response.write " " if (IsValid(ATemp) = true) and (IsValid(ARH) = true) then result = ROUND((0.6108*Exp((17.27*ATemp)/(ATemp+237.3))*(100-ARH)/100),2) response.write " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf end if response.write " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf if (IsValid(AAirTemp) = false) and ((IsValid(AAirRH) = true) or (IsValid(ALeafTemp) = true)) then response.write " " & vbCrLf end if response.write " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf if (IsValid(AAirRH) = false) and ((IsValid(AAirTemp) = true) or (IsValid(ALeafTemp) = true)) then response.write " " & vbCrLf end if response.write " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf if (IsValid(ALeafTemp) = false) and ((IsValid(AAirRH) = true) or (IsValid(AAirTemp) = true)) then response.write " " & vbCrLf end if response.write " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf if (IsValid(AAirTemp) = true) and (IsValid(AAirRH) = true) and (IsValid(ALeafTemp) = true) then result=round((0.6108*EXP((17.27*ALeafTemp)/(ALeafTemp+237.3)))-(0.6108*EXP((17.27*AAirTemp)/(AAirTemp+237.3)))*AAirRH/100,2) response.write " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf end if response.write "
" & vbCrLf _ & " Enter the Temperature and RH to calculate the VPD
Temperature: deg C** Invalid Temperature **
RH: %** Invalid RH **
VPD:" & result & " Kpa

" & vbCrLf _ & " More accurate calculator using leaf temperature
Air Temp: deg C** Invalid Temperature **
Air RH: %** Invalid RH **
Leaf Temp: deg C** Invalid Temperature **
Leaf RH:100 %
VPD:" & result & " Kpa

" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "
" & vbCrLf else response.write "
" & vbCrLf _ & "" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & "
" & vbCrLf _ & " Enter the Temperature and RH to calculate the VPD
Temperature: deg C
RH: %

" & vbCrLf _ & " More accurate calculator using leaf temperature
Air Temp: deg C
Air RH: %
Leaf Temp: deg C
Leaf RH:100 %

" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "
" & vbCrLf end if %>