Angle of Time Value UDF -- Issue with Hour-Second Angle

Juggler_IN

Active Member
Joined
Nov 19, 2014
Messages
358
Office Version
  1. 2003 or older
Platform
  1. Windows
With the VBA converted code for the code at stackoverflow link Time Angles. I am able to output first two results correctly. But the third result output is not as expected.

For example, for time 11:54:29 the expected results are Hour-minute hands =30.34, Minute-second hands =152.90, and Second-hour hands =176.76.

The current output from udf is:
' Hour-Minute = 30.34166 -- CORRECT
' Minute-Second = 152.90 -- CORRECT
' Second-Hour = 183.24166 -- INCORRECT

VBA Code:
Function AngleOfTime(x As Date, i As Integer) As Double

    Dim h%, m%, s%, u, v, w

    h = Hour(x)
    m = Minute(x)
    s = Second(x)
    
    u = ((6 * m) + ((1 / 60 * 6) * s))    ' Angle of the minute hand.
    v = ((30 * h) + (0.5 * (m + s / 60)))    ' Angle of the hour hand.
    w = (6 * s)    ' Angle of the second hand.

    If i = 1 Then
        AngleOfTime = Abs(v - u)   ' Hour-minute Angle
    ElseIf i = 2 Then
        AngleOfTime = Abs(u - w)   ' Minute-second Angle
    ElseIf i = 3 Then
        AngleOfTime = Abs(w - v)   ' Second-hour Angle
    Else
    AngleOfTime = 0
    End If

End Function

Any possible fix?
 

Excel Facts

Format cells as date
Select range and press Ctrl+Shift+3 to format cells as date. (Shift 3 is the # sign which sort of looks like a small calendar).
I reviewed the link before I posted though. The basis of the expected results is not stated, so how do we know those answers are CORRECT

Maybe I am over-simplifying it though, but to get (Hour/Second), I simply do (Hour-Minute)+(Minute-Second), so i struggle with how the first 2 answers are right and the Third is INCORRECT

I hope you follow my Logic/Thinking
 
Upvote 0
@Momentman; I understand your point ... but the post starts with non-matching results, which after the code edits, as per the author, results in the exactly the same values, so.
 
Upvote 0
... The current output from udf is: ...
' Second-Hour = 183.24166 -- INCORRECT...
The UDF output is correct.

For 11:54:29:
- the angle of the second hand is 29 / 60 * 360° = 174°
- the angle of the hour hand is 11 / 12 * 360° + 54 / 60 * 30° + 29 / 60 / 60 * 30° = 357.24°
- the hour-second handle is 357.24° - 174° = 183.24°
 
Upvote 0

Forum statistics

Threads
1,223,238
Messages
6,170,939
Members
452,368
Latest member
jayp2104

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top