Averages/Mean time of day: Difference between revisions
→{{header|VBA}}
(→{{header|C}}: <lang C>) |
|||
Line 2,111:
</pre>
=={{header|VBA}}==
Uses Excel and [[Mean_angle#VBA|mean angle]].
<lang vb>Public Sub mean_time()
Dim angles() As Double
s = [{"23:00:17","23:40:20","00:12:45","00:17:19"}]
[a1].Resize(UBound(s)) = WorksheetFunction.Transpose(s)
'time values are stored in Excel as fraction of the day
ReDim angles(UBound(s))
For i = 1 To UBound(s)
angles(i) = 360 * Cells(i, 1).Value
Next i
Cells(1, 1).Value = mean_angle(angles) / 360
Debug.Print Format(Cells(1, 1), "hh:mm:ss")
End Sub</lang>{{out}}
<pre>00:12:17</pre>
=={{header|Yabasic}}==
{{trans|Phix}}
| |||