This function returns the time of solar noon. This is a read-only property.
None.
Return value: solar
noon time
Type: date
Description: This is a date item representing the time of solar noon, the
period at which the sun appears directly overhead a location.
sub main()
dim t
t=hs.SolarNoon
msgbox "Solar Noon is at " & FormatDateTime(t, vbLongTime)
end sub