Function func32670239(z As Double, t As Double) As Double

Dim h1, h2, h3 As Integer, f1, f2, f3 As Double

f1 = z + t * Abs(z)

f2 = Sin(t * z)

f3 = Exp(-2 * Sin(t + z))

h1 = (1 - Sgn(z + 1.2)) \ 2

h3 = (1 + Sgn(z - 2.4)) \ 2

h2 = (1 - h1) * (1 - h3)

func32670239 = f1 * h1 + f2 * h2 + f3 * h3

End Function

Будут вопросы - пишите.