​
ClearAll["Global`*"]​​QuantityVector[name_String,components_List,unit_]:=Module[{vars},vars=Quantity[Symbol[name<>#<>"M"],unit]&/@components;​​vars]​​rVec=QuantityVector["r",{"x","y","z"},"Meters"]​​vVec=Hold[D[rVec,t]]​​aVec=Hold[D[vVec,t]]​​{rxM,ryM,rzM}={0,0,Sin[2Pithertz]}​​t=Quantity[tM,"Seconds"]​​hertz=Quantity[hertzM,"Seconds^-1"]​​ReleaseHold[vVec]​​ReleaseHold[aVec]​​
Out[]=

rxM
m
,
ryM
m
,
rzM
m

Out[]=
Hold[
∂
t
rVec]
Out[]=
Hold[
∂
t
vVec]
Out[]=
{0,0,Sin[2hertzπt]}
Out[]=
tM
s
Out[]=
hertzM
per second
Out[]=

0
per second
,
0
per second
,
2hertzMπCos[2hertzMπtM]
m/s

Out[]=
0
per second