Averages/Mean time of day: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,112: / Line 2,112: @@
 =={{header|VBA}}==
-Uses Excel and [[Mean_angle#VBA|mean angle]].
+Uses Excel and [[Averages/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
+        s(i) = 360 * TimeValue(s(i))
     Next i
-    Cells(1, 1).Value = mean_angle(angles) / 360
+    Debug.Print Format(mean_angle(s) / 360, "hh:mm:ss")
-    Debug.Print Format(Cells(1, 1), "hh:mm:ss")
 End Sub</lang>{{out}}
 <pre>00:12:17</pre>
 =={{header|Yabasic}}==
 {{trans|Phix}}