
Function project(ByVal y As Date) As Integer
Dim y As Date 'dichiaro y come variabile input
y = InputBox("inserisci anno")
If TrovaRiga("1:1", y) = "" Then
Dim m As Double
Dim v As Double
m = media(y.Column)
v = StDev.p(y.Column)
project = conta.se("B1:K29", y > m - 2 * v And y < m + 2 * v)
p = project
Else
p = "-1"
p = project
End If
End Function |
