This is a modified part of a complete code that is necessary for evaluation. The full code can be found in the main post above.
In[]:=
moonDiS[t_]:=Norm[simulation[earth,"Position",t]-simulation[asteroid,"Position",t]]/lunarDistance
explo=Style[Column[{"asteroid metrics errors +","gravity perturbations →","2.3% direct impact chance"}],23,FontFamily->"Copperplate"];
In[]:=
ClearAll[aplot];​​aplot[seconds_]:=Graphics3D[{​​pplot[[1]],​​With[{asteroidPos=simulation[asteroid,"Position",seconds]/AU},{Black,Glow[Red],Sphere[asteroidPos,.03],Text[Style[#,17,Red]&@"ASTEROID",asteroidPos,{0,2}]}],​​With[{earthPos=simulation[earth,"Position",seconds]/AU},{Blue,Sphere[earthPos,.03],Text[Style[#,17]&@"EARTH",earthPos,{0,-2}]}],​​With[{venusPos=simulation[Entity["Planet","Venus"],"Position",seconds]/AU,mercuryPos=simulation[Entity["Planet","Mercury"],"Position",seconds]/AU,marsPos=simulation[Entity["Planet","Mars"],"Position",seconds]/AU},​​{Gray,Sphere[venusPos,.02],Sphere[mercuryPos,.02],Sphere[marsPos,.02],Black,Text[Style[#,17]&@"MERCURY",mercuryPos,{-1,-2}],Text[Style[#,17]&@"VENUS",venusPos,{-1,-2}],Text[Style[#,17]&@"MARS",marsPos,{-1,-2}]}​​],​​styledSun​​},​​ImageSize->{920,720},ViewPoint->{-1.42,2.44,2.13},PlotRange->1.7,Boxed->False,ViewAngle->Pi14,Method->{"EdgeDepthOffset"->False},​​Epilog->​​Inset[Style["NASA: 2.3% chance asteroid «2024 YR4» hits Earth in 2032",47,FontFamily->"DIN Condensed",Darker@Brown,Opacity[.9]],Scaled[{.5,.98}],{Center,Top}],​​Inset[Style["n-body gravity numeric simulation: 8 planets + sun + moon",27,FontFamily->"Copperplate",Opacity[.7]],Scaled[{.5,.93}],{Center,Top}],​​Inset[Row[{Style["DATE ",28,FontFamily->"DIN Condensed",Opacity[.7]],Style[#,29,Bold,Red]&@DateString[initialDate+Quantity[seconds,"Seconds"],"ISODate"]}],Scaled[{.94,.87}],{Center,Top}],​​Inset[Style["Earth proximity in Lunar Distance:",30,FontFamily->"DIN Condensed",Opacity[.7]],Scaled[{.88,.83}],{Center,Top}],​​Inset[Style[Style[#,29,Bold,Red]&@Round[moonDiS[seconds],.01],25,Opacity[.9]],Scaled[{1.03,.79}],{Center,Top}],​​Inset[explo,Scaled[{.09,.87}],{Center,Top}],​​Inset[Style["Wolfram STAFF ⭐ PICK Award",23,FontFamily->"Copperplate",Darker@Red],Scaled[{-.1,.02}],{Left,Bottom}],​​Inset[Style["https://wolfr.am/StaffPicks",23,FontFamily->"Copperplate",Darker@Red],Scaled[{1.1,.02}],{Right,Bottom}]​​]
In[]:=
v1=Parallelize@AnimationVideo[aplot[tsimulationTime],{t,.937,.9918},RasterSize->{920,720},DefaultDuration->7];//AbsoluteTiming
Out[]=
{204.409,Null}
In[]:=
v2=Parallelize@AnimationVideo[aplot[tsimulationTime],{t,.9918,.9918+.000000001},RasterSize->{920,720},DefaultDuration->2];//AbsoluteTiming
Out[]=
{85.4739,Null}
In[]:=
v3=Parallelize@AnimationVideo[aplot[tsimulationTime],{t,.9918+.000000001,1},RasterSize->{920,720},DefaultDuration->2];//AbsoluteTiming
Out[]=
{85.9213,Null}
In[]:=
VideoJoin[v1,v2,v3]