Die Mittags-Formel
Mittags sollte so gegen 12 Uhr sein, und um diese Zeit sollte die Sonne in ihrem Zenith stehen, das heißt sie sollte bis zum Mittag immer höher gestiegen sein, und in ihrem höchsten Stand genau im Süden stehen. Am Nachmittag läuft sie gegen Osten und sinkt dabei immer tiefer bis sie schließlich untergeht. Der Mittag teilt das Tageslicht in zwei Hälften. Das lässt sich zur Mittags-Formel zusammenfassen:
Mittag = Sonnenaufgang + (Sonnenuntergang - Sonnenaufgang) / 2
Als VBA-Funktion:
Function Mittag(ByVal Sonnenaufgang As Date, ByVal Sonnenuntergang As Date) As Date
Mittag = Sonnenaufgang + (Sonnenuntergang - Sonnenaufgang) / 2
End Function
Die Berechnung des Mittags geht auch astronomisch genauer: https://de.wikipedia.org/wiki/Mittag
