Averages/Mean time of day: Difference between revisions

→‎{{header|VBA}}: correct for negative value of angle ...
(→‎{{header|VBA}}: updated version, without storing data onto a worksheet)
(→‎{{header|VBA}}: correct for negative value of angle ...)
Line 2,119:
s(i) = 360 * TimeValue(s(i))
Next i
Debug.Print Format(mean_angle(s) / 360 + 1, "hh:mm:ss")
End Sub</lang>{{out}}
<pre>0023:1247:1743</pre>
 
=={{header|Yabasic}}==
255

edits