' This function calculates corner value
' between hour hand and minute hand in
' any time you want in a clock.
' Note: output is in degree.
' written by : >>> amirhossein313
' Free to use ! - WwW.IrAnViG.CoM
a = (360 / 60) / (60 * 100) 'Calculates minute hand corner change, in every 0.01 second
b = ((360 / 12) / (60 * 60)) / 100 'Calculates hour hand corner change, in every 0.01 second
If h > 12 Then h = h - 12
out1 = (ss + (s * 100) + (m * 100 * 60)) * a
out2 = (ss + (s * 100) + (m * 100 * 60) + (h * 60 * 60 * 100)) * b
out3 = Abs(out1 - out2)
If out3 > 180 Then out3 = 360 - out3
CalCHM = out3
End Function
کد:
' Example :
i = Split(Time, ":")
i(2) = Val(i(2))
h = i(0)
m = i(1)
s = i(2)
MsgBox CalCHM(h, m, s, 0)
