[pva]

вариант 1: (требуется, чтобы вторая строчка сразу шла за первой)

Код:

Func[x_, y_, t_] := x + y*Sin[t]; (*отложенное присваивание*)
DFun[x_, y_, t_] = D[Func[x, y, t], t]; (*немедленное присваивание*)

второй вариант: (можно менять Func в любом месте, подставится последний вариант)

Код:

DFun[x_, y_, t_] := ReleaseHold[D[Func[x, y, Hold[t]], Hold[t]]];

[0_5Mandarinki]

pva, спасибо большое.
DFun[x_, y_, t_] := ReleaseHold[D[Func[x, y, Hold[t]], Hold[t]]]; очень помогло