'Option Strict On
਍✀⼀⼀ ⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀ഀഀ
'//	Copyright (C) Mowast Engineering 2011. All rights reserved.
਍✀⼀⨀  刀攀挀栀琀氀椀挀栀攀爀 䠀椀渀眀攀椀猀㨀ഀഀ
'	Diese Software wurde mit besonderer Sorgfalt entwickelt; 
਍✀ऀ琀爀漀琀稀搀攀洀 欀漀攀渀渀攀渀 甀渀攀爀欀愀渀渀琀攀 䘀攀栀氀攀爀 瘀漀爀栀愀渀搀攀渀 猀攀椀渀⸀ഀഀ
'	Mowast Engineering kann keine Gewaehrleistung uebernehmen.
਍✀ऀ䐀攀爀 䄀渀眀攀渀搀攀爀 搀椀攀猀攀爀 匀漀昀琀眀愀爀攀 攀爀欀攀渀渀琀 搀椀攀猀攀 吀愀琀猀愀挀栀攀渀 ഀഀ
'	stillschweigend an.
਍ഀഀ
'	A legal statement:
਍✀ऀ吀栀椀猀 猀漀昀琀眀愀爀攀 眀愀猀 搀攀瘀攀氀漀瀀攀搀 眀椀琀栀 攀砀琀爀愀漀爀搀椀渀愀爀礀 搀椀氀椀最攀渀挀攀㬀ഀഀ
'	nevertheless it may include some unknown errors.
਍✀ऀ䴀漀眀愀猀琀 䔀渀最椀渀攀攀爀椀渀最 挀愀渀 渀漀琀 戀攀 栀攀氀搀 氀椀愀戀氀攀 昀漀爀 愀渀礀 搀愀洀愀最攀猀 ഀഀ
'	caused by these errors.
਍✀ऀ吀栀攀 甀猀攀爀 漀昀 琀栀椀猀 猀漀昀琀眀愀爀攀 愀挀挀攀瀀琀猀 琀栀攀猀攀 昀愀挀琀猀 愀渀搀 愀最爀攀攀猀ഀഀ
'	tacitly.
਍✀⨀⼀ഀഀ
'// ########################################################## 
਍✀ഀഀ
Public Class Berechnung
਍    䐀椀洀 搀愀琀攀刀攀猀甀氀琀 䄀猀 䐀愀琀攀ഀഀ
    Dim strTodaysFileName As String
਍    䐀椀洀 猀琀爀䘀椀氀攀一愀洀攀䈀攀最椀渀渀椀渀最 䄀猀 匀琀爀椀渀最 㴀 ∀匀漀氀倀漀猀开∀ഀഀ
    Dim strFileNameEnding As String = ".txt"
਍    䐀椀洀 猀琀爀䘀椀氀攀倀愀琀栀一愀洀攀 䄀猀 匀琀爀椀渀最ഀഀ
    Dim strTodaysFilePathName As String
਍    䐀椀洀 猀琀爀䐀愀琀愀䘀漀氀搀攀爀一愀洀攀 䄀猀 匀琀爀椀渀最 㴀 ∀匀漀氀愀爀䐀愀琀愀∀ഀഀ

਍    䐀椀洀 䤀开䴀漀渀琀栀开䰀攀渀最琀栀⠀㄀㌀⤀ 䄀猀 䤀渀琀攀最攀爀ഀഀ
    Dim strMonth(13) As String
਍ഀഀ
    Dim i_Test_Counter As Integer
਍ഀഀ
    Dim str_Todays_Date As String
਍    ✀⼀⼀ ⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀ഀഀ
    '//	Konstanten	für Sonnenstandberechnung
਍    ✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ
    Dim sgl_C11 As Single = 15.0    '	// Grad(°) pro Stunde
਍    䐀椀洀 猀最氀开䌀㄀㈀ 䄀猀 匀椀渀最氀攀 㴀 ㈀㐀⸀　    ✀   ⼀⼀ 匀琀甀渀搀攀渀 瀀爀漀 吀愀最ഀഀ
    Dim sgl_C13 As Single = 60.0    '   Minutes per hour/degree
਍    䐀椀洀 猀最氀开䌀㄀㐀 䄀猀 匀椀渀最氀攀 㴀 ㄀㠀　⸀　ഀഀ
    Dim sgl_C15 As Single = 360.0
਍    ✀⼀⼀ऀ⌀搀攀昀椀渀攀ऀ䌀㄀㘀ऀऀ㈀㐀㔀㄀㔀㐀㔀⸀　ഀഀ
    Dim sgl_C17 As Single = 280.46
਍    䐀椀洀 猀最氀开䌀㄀㠀 䄀猀 匀椀渀最氀攀 㴀 　⸀㤀㠀㔀㘀㐀㜀㐀ഀഀ
    Dim sgl_C19 As Single = 357.528
਍    䐀椀洀 猀最氀开䌀㈀　 䄀猀 匀椀渀最氀攀 㴀 　⸀㤀㠀㔀㘀　　㌀ഀഀ
    Dim sgl_C21 As Single = 1.915
਍    䐀椀洀 猀最氀开䌀㈀㈀ 䄀猀 匀椀渀最氀攀 㴀 　⸀　㈀ഀഀ
    Dim sgl_C23 As Single = 23.439
਍    䐀椀洀 猀最氀开䌀㈀㐀 䄀猀 匀椀渀最氀攀 㴀 　⸀　　　　　　㐀ഀഀ
    Dim sgl_C25 As Single = 3.14159265 ' Pi()				
਍    䐀椀洀 猀最氀开䌀㈀㘀 䄀猀 匀椀渀最氀攀 㴀 ㌀㘀㔀㈀㔀⸀　ഀഀ
    Dim sgl_C27 As Single = 6.697376
਍    䐀椀洀 猀最氀开䌀㈀㠀 䄀猀 匀椀渀最氀攀 㴀 ㈀㐀　　⸀　㔀㄀㌀㐀ഀഀ
    Dim sgl_C29 As Single = 1.002738
਍    䐀椀洀 猀最氀开䌀㌀　 䄀猀 匀椀渀最氀攀 㴀 ⠀猀最氀开䌀㄀㐀 ⼀ 猀最氀开䌀㈀㔀⤀      ✀ ㄀㠀　⼀倀椀⠀⤀ഀഀ
    Dim sgl_C31 As Single = (sgl_C25 / sgl_C14)  ' Pi()/180
਍ഀഀ
    Dim str_TEST_TIME As String = ":08:00:00"     ' MEZ Middle European Time
਍    ✀䐀椀洀 猀琀爀开吀䔀匀吀开吀䤀䴀䔀 䄀猀 匀琀爀椀渀最 㴀 ∀㨀㄀㈀㨀㄀㈀㨀㌀㐀∀ऀऀ⼀⼀ 䴀䔀娀 䴀椀搀搀氀攀 䔀甀爀漀瀀攀愀渀 吀椀洀攀ഀഀ

਍    䐀椀洀 猀琀爀开匀吀䄀刀吀开䐀䄀吀䔀 䄀猀 匀琀爀椀渀最 㴀 ∀　㄀⸀　㄀⸀㈀　　　∀    ✀ 䘀椀砀 ℀℀℀ഀഀ

਍    ✀䐀椀洀 猀琀爀开吀䔀匀吀开䐀䄀吀䔀 䄀猀 匀琀爀椀渀最 㴀 ∀　㘀⸀　㠀⸀㈀　　㘀∀ ✀ 吀攀猀琀 礀攀愀爀  ㈀㐀　㤀 搀愀礀猀 ⨀⨀⨀ഀഀ
    '                                          used in sample of  '	http://de.wikipedia.org/wiki/sonnenstand
਍    䐀椀洀 猀琀爀开吀䔀匀吀开䐀䄀吀䔀 䄀猀 匀琀爀椀渀最 㴀 ∀㈀㄀⸀　㘀⸀㈀　　㘀∀ ✀ 匀甀洀洀攀爀 猀漀氀猀琀椀挀攀ഀഀ
    'Dim str_TEST_DATE As String = "21.12.2006" ' Winter solstice
਍ഀഀ
    'Dim str_TEST_DATE As String = "01.08.2007"   ' Test year  2769 days
਍ഀഀ
    'Dim str_TEST_DATE As String = "01.02.2008"   ' Test year  2953 days
਍ഀഀ
    'Dim str_TEST_DATE As String = "01.08.2008"   ' Test year  3135 days
਍ഀഀ
    '//							// Büchlweg 42,  82041 Oberhaching
਍    䐀椀洀 猀琀爀开刀䔀䘀开䰀䄀吀䤀吀唀䐀䔀 䄀猀 匀琀爀椀渀最 㴀 ∀㐀㠀─　㄀✀㈀㠀⸀㈀㜀⌀ 一∀    ✀ 䜀攀漀最爀愀瀀栀椀猀挀栀攀 䈀爀攀椀琀攀  倀栀椀  ഀഀ
    '//												// "N" is plus; "S" is minus
਍    䐀椀洀 猀琀爀开刀䔀䘀开䰀伀一䜀䤀吀唀䐀䔀 䄀猀 匀琀爀椀渀最 㴀 ∀㄀㄀─㌀㘀✀　㐀⸀㌀　⌀ 䔀∀   ✀ 䜀攀漀最爀愀瀀栀椀猀挀栀攀 䰀渀最攀ऀ䰀愀洀搀愀 ഀഀ
    '//												// "E" is plus; "W" is minus
਍    ✀⼀⼀ऀऀऀऀऀऀऀऀऀऀऀऀ⼀⼀ 䜀攀漀最爀愀瀀栀椀猀挀栀攀 䠀栀攀 㴀 㔀㠀㄀洀ഀഀ

਍    ✀ऀऀऀऀऀऀऀ⼀⼀ 䴀ﰀ渀挀栀攀渀ഀഀ
    'Dim str_REF_LATITUDE As String = "48%06'00.00# N"    ' Geographische Breite  Phi  
਍    ✀ऀऀऀऀऀऀऀऀऀऀऀऀ⼀⼀ ∀一∀ 椀猀 瀀氀甀猀㬀 ∀匀∀ 椀猀 洀椀渀甀猀ഀഀ
    'Dim str_REF_LONGITUDE As String = "11%36'00.00# E"    ' Geographische Länge	Lamda 
਍    ✀ऀऀऀऀऀऀऀऀऀऀऀऀ⼀⼀ ∀䔀∀ 椀猀 瀀氀甀猀㬀 ∀圀∀ 椀猀 洀椀渀甀猀ഀഀ
    '												// Geographische Höhe = 581m
਍ഀഀ
    '// ########################################################## 
਍    ✀⼀⼀ ⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀ഀഀ
    '//	Variablen	für Sonnenstandberechnung
਍    ✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ

਍    䐀椀洀 猀最氀开䘀㠀 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F9 As Single
਍    䐀椀洀 猀最氀开䘀㄀㄀ 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F12 As Single
਍    䐀椀洀 猀最氀开䘀㄀㌀ 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F14 As Single
਍    䐀椀洀 猀最氀开䘀㄀㘀 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F17 As Single
਍    䐀椀洀 猀最氀开䘀㄀㤀 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F21 As Single
਍    䐀椀洀 猀最氀开䘀㈀㈀ 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F23 As Single
਍    䐀椀洀 猀最氀开䘀㈀㐀 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F26 As Single
਍    䐀椀洀 猀最氀开䘀㈀㠀 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F30 As Single
਍    䐀椀洀 猀最氀开䘀㌀㄀ 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F33 As Single
਍    䐀椀洀 猀最氀开䘀㌀㔀 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F39 As Single
਍    䐀椀洀 猀最氀开䘀㐀㌀ 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F47 As Single
਍    䐀椀洀 猀最氀开䘀㐀㤀 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F51 As Single
਍    䐀椀洀 猀最氀开䘀㔀㈀ 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F53 As Single
਍    䐀椀洀 猀最氀开䘀㔀㐀 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F55 As Single
਍    䐀椀洀 猀最氀开䘀㔀㘀 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F57 As Single
਍    䐀椀洀 猀最氀开䘀㔀㠀 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F60 As Single
਍    䐀椀洀 猀最氀开䘀㘀㄀ 䄀猀 匀椀渀最氀攀ഀഀ
    Dim sgl_F65 As Single
਍    ✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ
    Dim C_Start_Date(11) As Char
਍    䐀椀洀 䌀开䄀挀琀甀愀氀开䐀愀琀攀⠀㄀㄀⤀ 䄀猀 䌀栀愀爀ഀഀ
    Dim C_Latitude_Phi(15) As Char
਍    䐀椀洀 䌀开䰀漀渀最椀琀甀搀攀开䰀愀洀搀愀⠀㄀㔀⤀ 䄀猀 䌀栀愀爀ഀഀ
    Dim I_Delta_Day As Integer
਍    䐀椀洀 䤀开䐀攀氀琀愀开䴀漀渀琀栀 䄀猀 䤀渀琀攀最攀爀ഀഀ

਍    䐀椀洀 䤀开䐀攀氀琀愀开夀攀愀爀 䄀猀 䤀渀琀攀最攀爀ഀഀ
    Dim I_Num_Leap_Year As Integer
਍    䐀椀洀 䤀开一甀洀开䐀愀礀猀 䄀猀 䤀渀琀攀最攀爀ഀഀ

਍    倀甀戀氀椀挀 猀最氀开䘀开䄀稀椀洀甀琀开刀攀猀甀氀琀 䄀猀 匀椀渀最氀攀ഀഀ
    Public sgl_F_ElevationAngle As Single
਍    倀甀戀氀椀挀 猀最氀开吀䠀䔀刀䴀伀匀吀䄀刀吀 䄀猀 匀椀渀最氀攀 㴀 ⴀ㈀㘀⸀　    ✀ 昀漀爀 㸀琀砀琀开匀最渀䄀稀椀䔀氀攀瘀⸀吀攀砀琀㰀ഀഀ
    Public sgl_THERMOEND As Single = 20.0    ' for >txt_SgnAziElev.Text<
਍ഀഀ
    Dim I_MESZ_Flag As Integer ' Middle European Sommer Time Flag
਍    䐀椀洀 䈀漀漀氀开䄀䴀开䘀氀愀最 䄀猀 䈀漀漀氀攀愀渀 ✀ 䌀漀爀爀攀挀琀攀搀 ㈀㄀⸀ 䨀愀渀⸀ ㈀　㄀㈀ഀഀ

਍    䐀椀洀 猀琀爀开䘀甀渀挀琀椀漀渀刀攀瀀氀礀 䄀猀 匀琀爀椀渀最ഀഀ

਍    ✀䐀椀洀 猀琀爀开嘀攀爀猀椀漀渀 䄀猀 匀琀爀椀渀最 㴀 ∀嘀攀爀猀⸀ ㄀㈀㐀㈀㠀愀∀ഀഀ
    'Dim str_Version As String = "Vers. 12917a"   ' if sgl_F_ElevationAngle > 0 then)
਍    ✀䐀椀洀 猀琀爀开嘀攀爀猀椀漀渀 䄀猀 匀琀爀椀渀最 㴀 ∀嘀攀爀猀⸀ ㄀㈀㤀㄀㤀愀∀   ✀ 挀栀愀渀最攀搀 嘀攀爀猀椀漀渀 椀渀搀椀挀愀琀椀漀渀ഀഀ
    'Dim str_Version As String = "Vers. 13a07a"   ' changed >Sub< to >str_fctn<
਍    ✀䐀椀洀 猀琀爀开嘀攀爀猀椀漀渀 䄀猀 匀琀爀椀渀最 㴀 ∀嘀攀爀猀⸀ ㄀㐀㐀　㄀愀∀   ✀  匀眀椀琀挀栀 琀漀 嘀椀猀甀愀氀 匀琀甀搀椀漀 䔀砀瀀爀攀猀猀 ㈀　㄀㌀ഀഀ
    Dim str_Version As String = "Vers. 14429a"   '  removed >My.Application.DoEvents()<
਍ഀഀ
    '// ##########################################################
਍    ✀⼀⼀ ⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀ഀഀ

਍ഀഀ
    Public Sub New()
਍ഀഀ
        ' Dieser Aufruf ist für den Designer erforderlich.
਍        䤀渀椀琀椀愀氀椀稀攀䌀漀洀瀀漀渀攀渀琀⠀⤀ഀഀ

਍        ✀ 䘀ﰀ最攀渀 匀椀攀 䤀渀椀琀椀愀氀椀猀椀攀爀甀渀最攀渀 渀愀挀栀 搀攀洀 䤀渀椀琀椀愀氀椀稀攀䌀漀洀瀀漀渀攀渀琀⠀⤀ⴀ䄀甀昀爀甀昀 栀椀渀稀甀⸀ഀഀ

਍    䔀渀搀 匀甀戀ഀഀ

਍    倀爀椀瘀愀琀攀 匀甀戀 䘀漀爀洀㄀开䰀漀愀搀⠀䈀礀嘀愀氀 猀攀渀搀攀爀 䄀猀 伀戀樀攀挀琀Ⰰ 䈀礀嘀愀氀 攀 䄀猀 匀礀猀琀攀洀⸀䔀瘀攀渀琀䄀爀最猀⤀ 䠀愀渀搀氀攀猀 䴀攀⸀䰀漀愀搀ഀഀ

਍        ✀ ⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀ 甀猀攀搀 椀渀 㸀䴀愀椀渀䌀氀漀挀欀㰀 ⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀ഀഀ

਍        猀琀爀䴀漀渀琀栀⠀㄀⤀ 㴀 ∀⸀ 䨀愀渀⸀ ∀ഀഀ
        strMonth(2) = ". Feb. "
਍        猀琀爀䴀漀渀琀栀⠀㌀⤀ 㴀 ∀⸀ 䴀爀⸀ ∀ഀഀ
        strMonth(4) = ". Apr. "
਍        猀琀爀䴀漀渀琀栀⠀㔀⤀ 㴀 ∀⸀ 䴀愀椀 ∀ഀഀ
        strMonth(6) = ". Jun. "
਍        猀琀爀䴀漀渀琀栀⠀㜀⤀ 㴀 ∀⸀ 䨀甀氀⸀ ∀ഀഀ
        strMonth(8) = ". Aug. "
਍        猀琀爀䴀漀渀琀栀⠀㤀⤀ 㴀 ∀⸀ 匀攀瀀⸀ ∀ഀഀ
        strMonth(10) = ". Okt. "
਍        猀琀爀䴀漀渀琀栀⠀㄀㄀⤀ 㴀 ∀⸀ 一漀瘀⸀ ∀ഀഀ
        strMonth(12) = ". Dez. "
਍ഀഀ
        I_Month_Length(0) = 0
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀⠀㄀⤀ 㴀 ㌀㄀ഀഀ
        I_Month_Length(2) = 28
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀⠀㌀⤀ 㴀 ㌀㄀ഀഀ
        I_Month_Length(4) = 30
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀⠀㔀⤀ 㴀 ㌀㄀ഀഀ
        I_Month_Length(6) = 30
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀⠀㜀⤀ 㴀 ㌀㄀ഀഀ
        I_Month_Length(8) = 31
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀⠀㤀⤀ 㴀 ㌀　ഀഀ
        I_Month_Length(10) = 31
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀⠀㄀㄀⤀ 㴀 ㌀　ഀഀ
        I_Month_Length(12) = 31
਍ഀഀ
        ' ######################################################
਍ഀഀ
        'txt_Version.Text = "Vers. 12428a"
਍        ✀琀砀琀开嘀攀爀猀椀漀渀⸀吀攀砀琀 㴀 ∀嘀攀爀猀⸀ ㄀㈀㤀㄀㜀愀∀   ✀ 椀昀 猀最氀开䘀开䔀氀攀瘀愀琀椀漀渀䄀渀最氀攀 㸀 　 琀栀攀渀⤀ഀഀ
        txt_Version.Text = str_Version   ' changed Version indication
਍        䴀攀⸀吀攀砀琀 ☀㴀 ∀   ∀ ☀ 猀琀爀开嘀攀爀猀椀漀渀ഀഀ

਍        ✀ ⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀⌀ഀഀ

਍        ✀䴀愀椀渀吀愀欀琀⸀䔀渀愀戀氀攀搀 㴀 吀爀甀攀ഀഀ
        MainTakt.Enabled = False        ' deaktivated to avoid stack-overflow
਍        䴀愀椀渀吀愀欀琀⸀䤀渀琀攀爀瘀愀氀 㴀 ㄀　　　  ✀ 䴀椀氀氀椀猀攀挀漀渀搀猀ഀഀ
        i_Test_Counter = 0
਍ഀഀ
        dateResult = Now
਍ഀഀ
        Dim strFillHour As String = ""
਍        䐀椀洀 猀琀爀䘀椀氀氀䴀椀渀甀琀攀 䄀猀 匀琀爀椀渀最 㴀 ∀∀ഀഀ
        Dim strFillSecond As String = ""
਍ഀഀ
        If (Len(dateResult.Hour.ToString) = 1) Then strFillHour = "0"
਍        䤀昀 ⠀䰀攀渀⠀搀愀琀攀刀攀猀甀氀琀⸀䴀椀渀甀琀攀⸀吀漀匀琀爀椀渀最⤀ 㴀 ㄀⤀ 吀栀攀渀 猀琀爀䘀椀氀氀䴀椀渀甀琀攀 㴀 ∀　∀ഀഀ
        If (Len(dateResult.Second.ToString) = 1) Then strFillSecond = "0"
਍ഀഀ
        txt_Zeitpunkt.Text = strFillHour & dateResult.Hour.ToString & _
਍                                ∀㨀∀ ☀ 猀琀爀䘀椀氀氀䴀椀渀甀琀攀 ☀ 搀愀琀攀刀攀猀甀氀琀⸀䴀椀渀甀琀攀⸀吀漀匀琀爀椀渀最 ☀ 开ഀഀ
                                        ":" & strFillSecond & dateResult.Second.ToString
਍ഀഀ
        txt_Daytime.Text = Mid(str_TEST_TIME, 2)
਍ഀഀ
        Dim strFillDay As String = ""
਍        䐀椀洀 猀琀爀䘀椀氀氀䴀漀渀琀栀 䄀猀 匀琀爀椀渀最 㴀 ∀∀ഀഀ
        If (Len(dateResult.Day.ToString) = 1) Then strFillDay = "0"
਍        䤀昀 ⠀䰀攀渀⠀搀愀琀攀刀攀猀甀氀琀⸀䴀漀渀琀栀⸀吀漀匀琀爀椀渀最⤀ 㴀 ㄀⤀ 吀栀攀渀 猀琀爀䘀椀氀氀䴀漀渀琀栀 㴀 ∀　∀ഀഀ

਍        猀琀爀开吀漀搀愀礀猀开䐀愀琀攀 㴀 猀琀爀䘀椀氀氀䐀愀礀 ☀ 搀愀琀攀刀攀猀甀氀琀⸀䐀愀礀⸀吀漀匀琀爀椀渀最 ☀ ∀㨀∀ ☀ 开ഀഀ
                                strFillMonth & dateResult.Month.ToString & ":" & _
਍                                    搀愀琀攀刀攀猀甀氀琀⸀夀攀愀爀⸀吀漀匀琀爀椀渀最ഀഀ

਍        䤀开䴀䔀匀娀开䘀氀愀最 㴀 䌀䤀渀琀⠀搀愀琀攀刀攀猀甀氀琀⸀䤀猀䐀愀礀氀椀最栀琀匀愀瘀椀渀最吀椀洀攀⠀⤀⤀ഀഀ

਍        琀砀琀开䐀愀琀攀漀昀䤀渀琀攀爀攀猀琀⸀吀攀砀琀 㴀 猀琀爀开吀䔀匀吀开䐀䄀吀䔀ഀഀ

਍        琀砀琀开䰀愀琀椀琀甀搀攀⸀吀攀砀琀 㴀 猀琀爀开刀䔀䘀开䰀䄀吀䤀吀唀䐀䔀ഀഀ
        txt_Longitude.Text = str_REF_LONGITUDE
਍        琀砀琀开匀漀洀洀攀爀娀攀椀琀⸀吀攀砀琀 㴀 䤀开䴀䔀匀娀开䘀氀愀最⸀吀漀匀琀爀椀渀最ഀഀ

਍        ✀䌀愀氀氀 匀漀渀渀攀渀猀琀愀渀搀开䈀攀爀攀挀栀渀甀渀最⠀琀砀琀开䐀愀礀琀椀洀攀⸀吀攀砀琀Ⰰ 琀砀琀开䐀愀琀攀漀昀䤀渀琀攀爀攀猀琀⸀吀攀砀琀Ⰰ 开ഀഀ
        str_FunctionReply = str_fctn_Sonnenstand_Berechnung(txt_Daytime.Text, txt_DateofInterest.Text, _
਍                                    琀砀琀开匀漀洀洀攀爀娀攀椀琀⸀吀攀砀琀Ⰰ 琀砀琀开䰀愀琀椀琀甀搀攀⸀吀攀砀琀Ⰰ 琀砀琀开䰀漀渀最椀琀甀搀攀⸀吀攀砀琀Ⰰ 猀最氀开吀䠀䔀刀䴀伀匀吀䄀刀吀Ⰰ 猀最氀开吀䠀䔀刀䴀伀䔀一䐀⤀ഀഀ

਍        ✀✀ 䘀漀爀 琀攀猀琀椀渀最 椀渀搀椀瘀椀搀甀愀氀 猀甀戀爀漀甀琀椀渀攀猀㨀ഀഀ
        ''// ********************************************************
਍        ✀猀最氀开䘀㤀 㴀 猀最氀开一甀洀戀攀爀开漀昀开䐀愀礀猀⠀猀琀爀开吀䔀匀吀开䐀䄀吀䔀⤀ഀഀ

਍        ✀✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ
        ''sgl_F39 = sgl_Angle_to_Float("48%08'12.34# S")
਍        ✀猀最氀开䘀㌀㤀 㴀 猀最氀开䄀渀最氀攀开琀漀开䘀氀漀愀琀⠀∀㄀㈀㌀─　㠀✀㄀㈀⸀㌀㐀⌀ 匀∀⤀ഀഀ

਍        ✀✀猀最氀开䘀㠀 㴀 猀最氀开吀椀洀攀开琀漀开䘀氀漀愀琀⠀∀㨀㄀㈀㨀㄀㌀㨀㄀㐀∀Ⰰ 琀砀琀开匀漀洀洀攀爀娀攀椀琀⸀吀攀砀琀⤀    ✀ऀ∀㨀㄀㈀㨀　　㨀　　∀ഀഀ
        'sgl_F8 = sgl_Time_to_Float(str_TEST_TIME, txt_SommerZeit.Text)    '	Greenwich mean time
਍ഀഀ

਍    䔀渀搀 匀甀戀ഀഀ

਍    倀爀椀瘀愀琀攀 匀甀戀 吀椀洀攀爀㄀开吀椀挀欀⠀䈀礀嘀愀氀 猀攀渀搀攀爀 䄀猀 匀礀猀琀攀洀⸀伀戀樀攀挀琀Ⰰ 䈀礀嘀愀氀 攀 䄀猀 匀礀猀琀攀洀⸀䔀瘀攀渀琀䄀爀最猀⤀ 䠀愀渀搀氀攀猀 䴀愀椀渀吀愀欀琀⸀吀椀挀欀ഀഀ

਍        䐀椀洀 椀䌀漀甀渀琀攀爀 䄀猀 䤀渀琀攀最攀爀ഀഀ

਍        䐀椀洀 䤀开䐀愀礀开匀甀洀 䄀猀 䤀渀琀攀最攀爀ഀഀ
        Dim strJahr As String = String.Empty
਍        䐀椀洀 猀琀爀䴀漀渀愀琀 䄀猀 匀琀爀椀渀最 㴀 匀琀爀椀渀最⸀䔀洀瀀琀礀ഀഀ
        Dim strTag As String = String.Empty
਍ഀഀ
        Try
਍            䤀昀 琀砀琀开嘀攀爀猀椀漀渀⸀䈀愀挀欀䌀漀氀漀爀 㴀 䌀漀氀漀爀⸀刀攀搀 吀栀攀渀ഀഀ
                txt_Version.BackColor = Color.White
਍                琀砀琀开嘀攀爀猀椀漀渀⸀䘀漀爀攀䌀漀氀漀爀 㴀 䌀漀氀漀爀⸀䈀氀愀挀欀ഀഀ
            Else
਍                琀砀琀开嘀攀爀猀椀漀渀⸀䈀愀挀欀䌀漀氀漀爀 㴀 䌀漀氀漀爀⸀刀攀搀ഀഀ
                txt_Version.ForeColor = Color.Yellow
਍            䔀渀搀 䤀昀ഀഀ
        Catch ex As Exception
਍            䴀攀猀猀愀最攀䈀漀砀⸀匀栀漀眀⠀攀砀⸀䴀攀猀猀愀最攀⤀ഀഀ
        End Try
਍ഀഀ
        dateResult = Now
਍ഀഀ
        strJahr = dateResult.Year.ToString
਍        䤀昀 搀愀琀攀刀攀猀甀氀琀⸀䴀漀渀琀栀 㰀 ㄀　 吀栀攀渀ഀഀ
            strMonat = "0" & dateResult.Month.ToString
਍        䔀氀猀攀ഀഀ
            strMonat = dateResult.Month.ToString
਍        䔀渀搀 䤀昀ഀഀ
        strTag = dateResult.Day.ToString
਍ഀഀ
        If dateResult.Day < 10 Then
਍            猀琀爀吀愀最 㴀 ∀　∀ ☀ 搀愀琀攀刀攀猀甀氀琀⸀䐀愀礀⸀吀漀匀琀爀椀渀最ഀഀ
        Else
਍            猀琀爀吀愀最 㴀 搀愀琀攀刀攀猀甀氀琀⸀䐀愀礀⸀吀漀匀琀爀椀渀最ഀഀ
        End If
਍ഀഀ
        strTodaysFileName = strFileNameBeginning & strJahr & strMonat & strTag & strFileNameEnding
਍ഀഀ
        Dim strFillHour As String = ""
਍        䐀椀洀 猀琀爀䘀椀氀氀䴀椀渀甀琀攀 䄀猀 匀琀爀椀渀最 㴀 ∀∀ഀഀ
        Dim strFillSecond As String = ""
਍ഀഀ
        If (Len(dateResult.Hour.ToString) = 1) Then strFillHour = "0"
਍        䤀昀 ⠀䰀攀渀⠀搀愀琀攀刀攀猀甀氀琀⸀䴀椀渀甀琀攀⸀吀漀匀琀爀椀渀最⤀ 㴀 ㄀⤀ 吀栀攀渀 猀琀爀䘀椀氀氀䴀椀渀甀琀攀 㴀 ∀　∀ഀഀ
        If (Len(dateResult.Second.ToString) = 1) Then strFillSecond = "0"
਍ഀഀ
        txt_Zeitpunkt.Text = strFillHour & dateResult.Hour.ToString & _
਍                                ∀㨀∀ ☀ 猀琀爀䘀椀氀氀䴀椀渀甀琀攀 ☀ 搀愀琀攀刀攀猀甀氀琀⸀䴀椀渀甀琀攀⸀吀漀匀琀爀椀渀最 ☀ 开ഀഀ
                                        ":" & strFillSecond & dateResult.Second.ToString
਍ഀഀ

਍        琀砀琀开䐀愀礀䤀渀搀攀砀⸀吀攀砀琀 㴀 ⠀⠀搀愀琀攀刀攀猀甀氀琀⸀䠀漀甀爀 ⨀ 㘀　⤀ ⬀ 搀愀琀攀刀攀猀甀氀琀⸀䴀椀渀甀琀攀⤀⸀吀漀匀琀爀椀渀最ഀഀ
        'I_Second_Count = dateResult.Second
਍ഀഀ
        txt_Datum.Text = dateResult.Day.ToString & strMonth(dateResult.Month) & dateResult.Year.ToString
਍ഀഀ
        Dim strFillDay As String = ""
਍        䐀椀洀 猀琀爀䘀椀氀氀䴀漀渀琀栀 䄀猀 匀琀爀椀渀最 㴀 ∀∀ഀഀ
        If (Len(dateResult.Day.ToString) = 1) Then strFillDay = "0"
਍        䤀昀 ⠀䰀攀渀⠀搀愀琀攀刀攀猀甀氀琀⸀䴀漀渀琀栀⸀吀漀匀琀爀椀渀最⤀ 㴀 ㄀⤀ 吀栀攀渀 猀琀爀䘀椀氀氀䴀漀渀琀栀 㴀 ∀　∀ഀഀ

਍        猀琀爀开吀漀搀愀礀猀开䐀愀琀攀 㴀 猀琀爀䘀椀氀氀䐀愀礀 ☀ 搀愀琀攀刀攀猀甀氀琀⸀䐀愀礀⸀吀漀匀琀爀椀渀最 ☀ ∀㨀∀ ☀ 猀琀爀䘀椀氀氀䴀漀渀琀栀 ☀ 搀愀琀攀刀攀猀甀氀琀⸀䴀漀渀琀栀⸀吀漀匀琀爀椀渀最 ☀ ∀㨀∀ ☀ 搀愀琀攀刀攀猀甀氀琀⸀夀攀愀爀⸀吀漀匀琀爀椀渀最ഀഀ

਍        䤀开䐀愀礀开匀甀洀 㴀 　ഀഀ
        For iCounter = 1 To (dateResult.Month) Step 1
਍            䤀开䐀愀礀开匀甀洀 㴀 䤀开䐀愀礀开匀甀洀 ⬀ 䤀开䴀漀渀琀栀开䰀攀渀最琀栀⠀椀䌀漀甀渀琀攀爀 ⴀ ㄀⤀ഀഀ
        Next iCounter
਍        䤀开䐀愀礀开匀甀洀 㴀 䤀开䐀愀礀开匀甀洀 ⬀ 搀愀琀攀刀攀猀甀氀琀⸀䐀愀礀ഀഀ

਍        䤀昀 ⠀⠀搀愀琀攀刀攀猀甀氀琀⸀夀攀愀爀 䴀漀搀 㐀⤀ 㴀 　⤀ 䄀渀搀 ⠀搀愀琀攀刀攀猀甀氀琀⸀䴀漀渀琀栀 㸀 ㈀⤀ 吀栀攀渀ഀഀ
            I_Day_Sum = I_Day_Sum + 1
਍        䔀渀搀 䤀昀ഀഀ

਍        琀砀琀开䌀愀氀攀渀搀攀爀䤀渀搀攀砀⸀吀攀砀琀 㴀 䤀开䐀愀礀开匀甀洀⸀吀漀匀琀爀椀渀最ഀഀ

਍        吀爀礀ഀഀ
            strFilePathName = My.Computer.FileSystem.CurrentDirectory
਍            䴀礀⸀䌀漀洀瀀甀琀攀爀⸀䘀椀氀攀匀礀猀琀攀洀⸀䌀爀攀愀琀攀䐀椀爀攀挀琀漀爀礀⠀猀琀爀䘀椀氀攀倀愀琀栀一愀洀攀 ☀ ∀尀∀ ☀ 猀琀爀䐀愀琀愀䘀漀氀搀攀爀一愀洀攀⤀ഀഀ
            strFilePathName = My.Computer.FileSystem.CurrentDirectory
਍            猀琀爀䘀椀氀攀倀愀琀栀一愀洀攀 ☀㴀 ∀尀∀ ☀ 猀琀爀䐀愀琀愀䘀漀氀搀攀爀一愀洀攀 ☀ ∀尀∀ ☀ 猀琀爀吀漀搀愀礀猀䘀椀氀攀一愀洀攀ഀഀ
        Catch ex As Exception
਍            䴀攀猀猀愀最攀䈀漀砀⸀匀栀漀眀⠀攀砀⸀䴀攀猀猀愀最攀⤀ഀഀ
        End Try
਍ഀഀ
        strTodaysFilePathName = strFilePathName
਍        琀砀琀䐀愀琀愀䘀椀氀攀⸀吀攀砀琀 㴀 猀琀爀吀漀搀愀礀猀䘀椀氀攀倀愀琀栀一愀洀攀ഀഀ

਍ഀഀ
        If (txt_Zeitpunkt.Text = "00:00:00") Then
਍            ✀ 圀栀愀琀攀瘀攀爀 栀愀瀀瀀攀渀猀 愀琀 洀椀搀渀椀最栀琀℀ഀഀ
        End If
਍ഀഀ
        If (dateResult.Second = 0) Then
਍            椀开吀攀猀琀开䌀漀甀渀琀攀爀 ⬀㴀 ㄀ഀഀ
            txt_TextCounter.Text = i_Test_Counter.ToString
਍ഀഀ
        End If
਍ഀഀ

਍        ✀   䴀礀⸀䄀瀀瀀氀椀挀愀琀椀漀渀⸀䐀漀䔀瘀攀渀琀猀⠀⤀   ✀㄀㐀㐀㈀㤀ഀഀ

਍ഀഀ
    End Sub
਍ഀഀ

਍ഀഀ
    ' ############################################################################################
਍    ✀ऀ愀甀猀 ऀ栀琀琀瀀㨀⼀⼀搀攀⸀眀椀欀椀瀀攀搀椀愀⸀漀爀最⼀眀椀欀椀⼀猀漀渀渀攀渀猀琀愀渀搀ऀഀഀ

਍    ✀倀甀戀氀椀挀 匀甀戀 匀漀渀渀攀渀猀琀愀渀搀开䈀攀爀攀挀栀渀甀渀最⠀䈀礀嘀愀氀 猀琀爀开琀椀洀攀漀昀搀愀礀 䄀猀 匀琀爀椀渀最Ⰰ 䈀礀嘀愀氀 猀琀爀开䐀愀琀攀匀攀氀攀挀琀攀搀 䄀猀 匀琀爀椀渀最Ⰰ 开ഀഀ
    Public Function str_fctn_Sonnenstand_Berechnung(ByVal str_timeofday As String, ByVal str_DateSelected As String, _
਍                                       䈀礀嘀愀氀 猀琀爀开䴀䔀匀娀 䄀猀 匀琀爀椀渀最Ⰰ 䈀礀嘀愀氀 猀琀爀开䰀愀琀椀琀甀搀攀 䄀猀 匀琀爀椀渀最Ⰰ 开ഀഀ
                                       ByVal str_Longitude As String, ByVal sgl_Start As Single, _
਍                                       䈀礀嘀愀氀 猀最氀开匀琀漀瀀 䄀猀 匀椀渀最氀攀⤀ഀഀ
        ' ############################################################################################
਍ഀഀ
        sgl_F8 = sgl_Time_to_Float((":" & str_timeofday), str_MESZ)
਍        猀最氀开䘀㤀 㴀 猀最氀开一甀洀戀攀爀开漀昀开䐀愀礀猀⠀猀琀爀开䐀愀琀攀匀攀氀攀挀琀攀搀⤀ഀഀ
        sgl_F11 = CSng(sgl_F9 - 0.5 + sgl_F8 / sgl_C12)  '	JD	2453948.96
਍        ✀ऀऀऀऀऀ⼀⼀ऀ　⸀㔀 㴀㴀 ㄀⼀㈀ 䐀愀礀㬀 䨀甀氀椀愀渀椀愀渀 䐀愀礀渀甀洀戀攀爀 猀琀愀爀琀猀 愀琀 渀漀漀渀ऀऀऀഀഀ
        sgl_F12 = sgl_F11             '	n	2403.96				
਍        猀最氀开䘀㄀㌀ 㴀 猀最氀开䌀㄀㜀 ⬀ 猀最氀开䌀㄀㠀 ⨀ 猀最氀开䘀㄀㈀ ✀ऀ攀欀氀椀瀀开䰀愀攀渀最攀 ⠀뀀⤀ऀ㈀㘀㐀㤀⸀㤀㄀㔀ऀഀഀ
        sgl_F14 = sgl_F13 Mod sgl_C15  '	eklip_Laenge(Rest) (°)	129.915		
਍        猀最氀开䘀㄀㘀 㴀 猀最氀开䌀㄀㤀 ⬀ 猀最氀开䌀㈀　 ⨀ 猀最氀开䘀㄀㈀  ✀ऀ最开䄀渀漀洀愀氀椀攀 ⠀뀀⤀ऀऀ㈀㜀㈀㘀⸀㠀㜀ऀऀഀഀ
        sgl_F17 = sgl_F16 Mod sgl_C15  '	g_Anomalie(Rest) (°)	206.870		
਍        猀最氀开䘀㄀㤀 㴀 䌀匀渀最⠀猀最氀开䘀㄀㐀 ⬀ 猀最氀开䌀㈀㄀ ⨀ 䴀愀琀栀⸀匀椀渀⠀猀最氀开䌀㌀㄀ ⨀ ⠀猀最氀开䘀㄀㜀⤀⤀ ⬀ 猀最氀开䌀㈀㈀ ⨀ 䴀愀琀栀⸀匀椀渀⠀㈀ ⨀ 猀最氀开䌀㌀㄀ ⨀ ⠀猀最氀开䘀㄀㜀⤀⤀⤀ ✀ऀ鬀 ⠀最愀洀洀愀⤀ ⠀뀀⤀ऀ㄀㈀㤀⸀　㘀㘀ऀऀഀഀ
        sgl_F21 = sgl_C23 - sgl_C24 * sgl_F12  '	ε (epsilon) (°)		23.438	
਍        猀最氀开䘀㈀㈀ 㴀 䌀匀渀最⠀⠀䴀愀琀栀⸀䌀漀猀⠀猀最氀开䌀㌀㄀ ⨀ ⠀猀最氀开䘀㄀㤀⤀⤀⤀⤀     ✀ 䌀漀爀爀攀挀琀椀漀渀 ㈀㄀⸀ 䨀愀渀⸀ ㈀　㄀㈀ഀഀ
        sgl_F23 = CSng(sgl_C30 * Math.Atan(Math.Cos(sgl_C31 * (sgl_F21)) * Math.Sin(sgl_C31 * (sgl_F19)) / (Math.Cos(sgl_C31 * (sgl_F19)))))  '	α (alpha) (°)	-48.50131	
਍ഀഀ
        If (sgl_F22 < 0) Then
਍            猀最氀开䘀㈀㐀 㴀 猀最氀开䘀㈀㌀ ⬀ 猀最氀开䌀㄀㐀  ✀ऀ넀 ⠀愀氀瀀栀愀⤀ ⠀뀀⤀ऀऀ㄀㌀㄀⸀㐀㤀㤀ऀऀഀഀ
        Else
਍            猀最氀开䘀㈀㐀 㴀 猀最氀开䘀㈀㌀     ✀ 䌀漀爀爀攀挀琀椀漀渀ഀഀ
        End If
਍ഀഀ
        sgl_F26 = CSng(sgl_C30 * Math.Asin(Math.Sin(sgl_C31 * (sgl_F21)) * Math.Sin(sgl_C31 * (sgl_F19)))) '	ζ (delta) (°)		17.989		
਍        猀最氀开䘀㈀㠀 㴀 猀最氀开䘀㄀㄀ ⴀ 猀最氀开䘀㠀 ⼀ 猀最氀开䌀㄀㈀ ✀ऀ䨀䐀 漀⠀吀愀最攀⤀ऀऀ㈀㐀㔀㌀㤀㐀㠀⸀㔀　ഀഀ
        sgl_F30 = (sgl_F28) / sgl_C26  '	To			0.06580424
਍        猀最氀开䘀㌀㄀ 㴀 猀最氀开䌀㈀㜀 ⬀ 猀最氀开䌀㈀㠀 ⨀ 猀最氀开䘀㌀　 ⬀ 猀最氀开䌀㈀㤀 ⨀ 猀最氀开䘀㠀 ✀ऀ頀 ⠀吀栀攀琀愀⤀ 栀开䜀ऀऀ㄀㜀㔀⸀㘀㘀㄀　㘀ऀഀഀ
        sgl_F33 = sgl_F31 Mod sgl_C12 '	Θ (Theta) h_G		7.661057	
਍        猀最氀开䘀㌀㔀 㴀 猀最氀开䌀㄀㄀ ⨀ 猀最氀开䘀㌀㌀ ✀ऀ頀 ⠀吀栀攀琀愀⤀ 䜀ऀऀ㄀㄀㐀⸀㤀㄀㔀㤀ऀഀഀ
        sgl_F39 = sgl_Angle_to_Float(str_Latitude)
਍        猀最氀开䘀㐀㌀ 㴀 猀最氀开䄀渀最氀攀开琀漀开䘀氀漀愀琀⠀猀琀爀开䰀漀渀最椀琀甀搀攀⤀ഀഀ
        sgl_F47 = sgl_F35 + sgl_F43 '	Θ (Theta)		126.4825	
਍        猀最氀开䘀㐀㤀 㴀 猀最氀开䘀㐀㜀 ⴀ 猀最氀开䘀㈀㐀 ✀ऀꐀ ⠀琀愀甀⤀ऀऀऀⴀ㔀⸀　㄀㘀㄀㘀㔀ऀഀഀ
        sgl_F51 = CSng(Math.Sin(sgl_C31 * (sgl_F49))) '	sin(Τ(tau))		-0.087437
਍        猀最氀开䘀㔀㈀ 㴀 䌀匀渀最⠀䴀愀琀栀⸀䌀漀猀⠀猀最氀开䌀㌀㄀ ⨀ ⠀猀最氀开䘀㐀㤀⤀⤀⤀     ✀ 挀漀猀⠀ꐀ⠃琀愀甀⤀⤀ऀऀ　⸀㤀㤀㘀㄀㜀　ഀഀ
        sgl_F53 = CSng(Math.Sin(sgl_C31 * (sgl_F39))) '   sin(φ (Phi))		0.743301
਍        猀最氀开䘀㔀㐀 㴀 䌀匀渀最⠀䴀愀琀栀⸀吀愀渀⠀猀最氀开䌀㌀㄀ ⨀ ⠀猀最氀开䘀㈀㘀⤀⤀⤀ ✀   琀愀渀⠀똀 ⠀搀攀氀琀愀⤀⤀ऀऀ　⸀㌀㈀㐀㘀㤀㤀ഀഀ
        sgl_F55 = CSng(Math.Cos(sgl_C31 * (sgl_F39))) '   cos(φ (Phi))		0.668958
਍        猀最氀开䘀㔀㘀 㴀 䌀匀渀最⠀䴀愀琀栀⸀䌀漀猀⠀猀最氀开䌀㌀㄀ ⨀ ⠀猀最氀开䘀㈀㘀⤀⤀⤀ ✀   挀漀猀⠀똀 ⠀搀攀氀琀愀⤀⤀ऀऀ　⸀㤀㔀㄀㄀㄀㠀ഀഀ
        sgl_F57 = CSng(Math.Sin(sgl_C31 * (sgl_F26))) '   sin(ζ (delta))		0.308827
਍        猀最氀开䘀㔀㠀 㴀 猀最氀开䘀㔀㈀ ⨀ 猀最氀开䘀㔀㌀ ⴀ 猀最氀开䘀㔀㐀 ⨀ 猀最氀开䘀㔀㔀 ✀ 䌀漀爀爀攀挀琀攀搀 ㈀㄀⸀ 䨀愀渀⸀ ㈀　㄀㈀ഀഀ
        sgl_F60 = CSng(sgl_C30 * Math.Atan(sgl_F51 / (sgl_F52 * sgl_F53 - sgl_F54 * sgl_F55)))  '   Azimut (°)		-9.4868
਍ഀഀ
        If sgl_F58 < 0 Then
਍            䤀昀 䈀漀漀氀开䄀䴀开䘀氀愀最 㴀 吀爀甀攀 吀栀攀渀     ✀ 椀琀 椀猀 戀攀昀漀爀攀 渀漀漀渀ഀഀ
                sgl_F61 = sgl_F60 - sgl_C14 ' -180
਍            䔀氀猀攀ഀഀ
                sgl_F61 = sgl_C14 + sgl_F60 ' 180 -
਍            䔀渀搀 䤀昀ഀഀ
        Else
਍            猀最氀开䘀㘀㄀ 㴀 猀最氀开䘀㘀　 ✀ 䌀漀爀爀攀挀琀椀漀渀ഀഀ
        End If
਍ഀഀ
        sgl_F_Azimut_Result = sgl_F61
਍        琀砀琀开䄀稀椀洀甀琀䄀渀最氀攀⸀吀攀砀琀 㴀 猀最氀开䘀开䄀稀椀洀甀琀开刀攀猀甀氀琀⸀吀漀匀琀爀椀渀最ഀഀ

਍        猀最氀开䘀㘀㔀 㴀 䌀匀渀最⠀猀最氀开䌀㌀　 ⨀ 䴀愀琀栀⸀䄀猀椀渀⠀猀最氀开䘀㔀㘀 ⨀ 猀最氀开䘀㔀㈀ ⨀ 猀最氀开䘀㔀㔀 ⬀ 猀最氀开䘀㔀㜀 ⨀ 猀最氀开䘀㔀㌀⤀⤀   ✀ ऀ䠀栀攀渀眀椀渀欀攀氀 ⠀뀀⤀ऀऀ㔀㤀⸀㘀㤀㜀ऀऀഀഀ

਍        琀砀琀开䔀氀攀瘀愀琀椀漀渀䄀渀最氀攀⸀吀攀砀琀 㴀 猀最氀开䘀㘀㔀⸀吀漀匀琀爀椀渀最  ✀ 欀攀椀渀攀 䬀漀爀爀攀欀琀甀爀 搀攀爀 䠀栀攀 眀攀最攀渀 刀攀昀爀愀欀琀椀漀渀 ഀഀ

਍        猀最氀开䘀开䔀氀攀瘀愀琀椀漀渀䄀渀最氀攀 㴀 猀最氀开䘀㘀㔀ഀഀ

਍        琀砀琀开匀最渀䄀稀椀䔀氀攀瘀⸀吀攀砀琀 㴀 ⠀䴀愀琀栀⸀匀椀最渀⠀猀最氀开䘀开䄀稀椀洀甀琀开刀攀猀甀氀琀⤀ ⨀ 猀最氀开䘀开䔀氀攀瘀愀琀椀漀渀䄀渀最氀攀⤀⸀吀漀匀琀爀椀渀最ഀഀ

਍        䤀昀 猀最氀开䘀开䔀氀攀瘀愀琀椀漀渀䄀渀最氀攀 㸀 　 吀栀攀渀ഀഀ
            If ((CDbl(txt_SgnAziElev.Text) < sgl_Start) Or (CDbl(txt_SgnAziElev.Text) > sgl_Stop)) Then
਍                琀砀琀开匀最渀䄀稀椀䔀氀攀瘀⸀䈀愀挀欀䌀漀氀漀爀 㴀 䌀漀氀漀爀⸀伀爀愀渀最攀     ✀ 椀洀瀀漀爀琀愀渀琀㨀 琀栀攀 戀愀挀欀挀漀氀漀爀 漀昀 琀砀琀开匀最渀䄀稀椀䔀氀攀瘀ഀഀ
            Else                                            ' carries the info whether or not the sun is up!
਍                琀砀琀开匀最渀䄀稀椀䔀氀攀瘀⸀䈀愀挀欀䌀漀氀漀爀 㴀 䌀漀氀漀爀⸀圀栀椀琀攀      ✀ 伀爀愀渀最攀 洀攀愀渀猀 琀栀攀 猀甀渀 椀猀 甀瀀 ℀℀℀℀℀ഀഀ
            End If
਍        䔀氀猀攀ഀഀ
            txt_SgnAziElev.BackColor = Color.White
਍        䔀渀搀 䤀昀ഀഀ

਍ഀഀ
        '   Refer to sample calculation on 6. Aug. 2006 at 8 Uhr MESZ (T = 6 Uhr UT) in München (φ = 48,1° N, λ = 11,6° O):
਍        ✀ऀ栀琀琀瀀㨀⼀⼀搀攀⸀眀椀欀椀瀀攀搀椀愀⸀漀爀最⼀眀椀欀椀⼀猀漀渀渀攀渀猀琀愀渀搀ऀഀഀ
        '   also >Sonnen_Berechnung_12118.ods<
਍ഀഀ
        str_fctn_Sonnenstand_Berechnung = "str_fctn_Sonnenstand_Berechnung is Done"
਍    䔀渀搀 䘀甀渀挀琀椀漀渀ഀഀ

਍    ✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ
    '  Format: "06.08.2006"  dd.mm.yyyy
਍    ✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ
    Private Function sgl_Number_of_Days(ByVal str_Date_Extended As String) As Single
਍ഀഀ
        Dim C_New_Day(3) As Char
਍        䐀椀洀 䌀开一攀眀开䴀漀渀琀栀⠀㌀⤀ 䄀猀 䌀栀愀爀ഀഀ
        Dim C_New_Year(5) As Char
਍ഀഀ
        Dim C_Ref_Day(3) As Char
਍        䐀椀洀 䌀开刀攀昀开䴀漀渀琀栀⠀㌀⤀ 䄀猀 䌀栀愀爀ഀഀ
        Dim C_Ref_Year(5) As Char
਍ഀഀ
        Dim I_i As Integer
਍        䐀椀洀 䤀开刀攀洀愀椀渀搀攀爀 䄀猀 䤀渀琀攀最攀爀ഀഀ
        Dim I_Month_Length_Local(13) As Integer
਍ഀഀ
        I_Month_Length_Local(0) = 0
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀开䰀漀挀愀氀⠀㄀⤀ 㴀 ㌀㄀ഀഀ
        I_Month_Length_Local(2) = 28
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀开䰀漀挀愀氀⠀㌀⤀ 㴀 ㌀㄀ഀഀ
        I_Month_Length_Local(4) = 30
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀开䰀漀挀愀氀⠀㔀⤀ 㴀 ㌀㄀ഀഀ
        I_Month_Length_Local(6) = 30
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀开䰀漀挀愀氀⠀㜀⤀ 㴀 ㌀㄀ഀഀ
        I_Month_Length_Local(8) = 31
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀开䰀漀挀愀氀⠀㤀⤀ 㴀 ㌀　ഀഀ
        I_Month_Length_Local(10) = 31
਍        䤀开䴀漀渀琀栀开䰀攀渀最琀栀开䰀漀挀愀氀⠀㄀㄀⤀ 㴀 ㌀　ഀഀ
        I_Month_Length_Local(12) = 31
਍ഀഀ

਍        䌀开一攀眀开䐀愀礀 㴀 䌀吀礀瀀攀⠀䴀椀搀⠀猀琀爀开䐀愀琀攀开䔀砀琀攀渀搀攀搀Ⰰ ㄀Ⰰ ㈀⤀Ⰰ 䌀栀愀爀⠀⤀⤀ഀഀ
        C_New_Month = CType(Mid(str_Date_Extended, 4, 2), Char())
਍        䌀开一攀眀开夀攀愀爀 㴀 䌀吀礀瀀攀⠀䴀椀搀⠀猀琀爀开䐀愀琀攀开䔀砀琀攀渀搀攀搀Ⰰ 㜀Ⰰ 㐀⤀Ⰰ 䌀栀愀爀⠀⤀⤀ഀഀ

਍        䌀开刀攀昀开䐀愀礀 㴀 䌀吀礀瀀攀⠀䴀椀搀⠀猀琀爀开匀吀䄀刀吀开䐀䄀吀䔀Ⰰ ㄀Ⰰ ㈀⤀Ⰰ 䌀栀愀爀⠀⤀⤀ഀഀ
        C_Ref_Month = CType(Mid(str_START_DATE, 4, 2), Char())
਍        䌀开刀攀昀开夀攀愀爀 㴀 䌀吀礀瀀攀⠀䴀椀搀⠀猀琀爀开匀吀䄀刀吀开䐀䄀吀䔀Ⰰ 㜀Ⰰ 㐀⤀Ⰰ 䌀栀愀爀⠀⤀⤀ഀഀ

਍        䤀开䐀攀氀琀愀开䐀愀礀 㴀 䌀䤀渀琀⠀嘀愀氀⠀䌀开一攀眀开䐀愀礀⤀⤀ഀഀ

਍        䤀开䐀攀氀琀愀开䴀漀渀琀栀 㴀 䌀䤀渀琀⠀嘀愀氀⠀䌀开一攀眀开䴀漀渀琀栀⤀ ⴀ 嘀愀氀⠀䌀开刀攀昀开䴀漀渀琀栀⤀⤀ഀഀ
        '					' Jan has index "0"; Feb has index "1"; Mar has index "2"
਍ഀഀ
        I_Delta_Year = CInt(Val(C_New_Year) - Val(C_Ref_Year))
਍ഀഀ
        I_Num_Leap_Year = CInt(I_Delta_Year \ CInt(4))  ' Ganzahl-Division
਍        䤀开刀攀洀愀椀渀搀攀爀 㴀 䤀开䐀攀氀琀愀开夀攀愀爀 䴀漀搀 㐀    ✀ 䤀开刀攀洀愀椀渀搀攀爀 㴀 　 昀漀爀 氀攀愀瀀 礀攀愀爀ഀഀ

਍        䤀开一甀洀开䐀愀礀猀 㴀 ㌀㘀㔀 ⨀ 䤀开䐀攀氀琀愀开夀攀愀爀ഀഀ

਍        䘀漀爀 䤀开椀 㴀 　 吀漀 ⠀䤀开䐀攀氀琀愀开䴀漀渀琀栀 ⴀ ㄀⤀ 匀琀攀瀀 ㄀ഀഀ
            I_Num_Days += I_Month_Length_Local(I_i + 1)   ' index of >I_Month_Length< starts with 1
਍        一攀砀琀 䤀开椀ഀഀ

਍ഀഀ
        I_Num_Days += I_Num_Leap_Year   ' adds the number of leap days of February.
਍ഀഀ
        If (I_Remainder = 0 And I_Delta_Month < 2) Then        ' i.e. either Jan or Feb
਍            䤀开一甀洀开䐀愀礀猀 ⴀ㴀 ㄀     ✀   猀甀戀琀爀愀挀琀 漀渀攀 搀愀礀 戀攀挀愀甀猀攀 琀栀攀 洀漀渀琀栀 䘀攀戀爀甀愀爀礀 栀愀猀 渀漀琀 戀攀攀渀ഀഀ
        End If                  '   completed during that leap year
਍ഀഀ
        I_Num_Days += I_Delta_Day
਍ഀഀ
        sgl_Number_of_Days = I_Num_Days
਍ഀഀ
    End Function
਍    ✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ
    '    Format "48%08'12.34# N"
਍    ✀   漀爀 䘀漀爀洀愀琀 ∀㄀㄀㠀─　㠀✀㄀㈀⸀㌀㐀⌀ 一∀ഀഀ
    '  or  Format "8%08'12.34# N"
਍    ✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ
    Private Function sgl_Angle_to_Float(ByVal str_Angle_Extended As String) As Single
਍        䐀椀洀 䌀开䜀爀愀搀⠀㌀⤀ 䄀猀 䌀栀愀爀ഀഀ
        Dim C_Minute(3) As Char
਍        䐀椀洀 䌀开匀攀欀甀渀搀攀⠀㘀⤀ 䄀猀 䌀栀愀爀ഀഀ
        Dim C_Quadrant(2) As Char
਍ഀഀ
        Dim sgl_Angle(3) As Single
਍ഀഀ
        Dim I_Position As Integer
਍ഀഀ
        I_Position = InStr(str_Angle_Extended, "%")
਍ഀഀ
        C_Grad = CType(Mid(str_Angle_Extended, 1, (I_Position - 1)), Char())
਍ഀഀ
        C_Minute = CType(Mid(str_Angle_Extended, (I_Position + 1), 2), Char())
਍ഀഀ
        C_Sekunde = CType(Mid(str_Angle_Extended, (I_Position + 4), 5), Char())
਍ഀഀ
        C_Quadrant = CType(Mid(str_Angle_Extended, (I_Position + 11), 1), Char())
਍ഀഀ
        sgl_Angle(0) = CSng(Val(C_Grad))
਍        猀最氀开䄀渀最氀攀⠀㄀⤀ 㴀 䌀匀渀最⠀嘀愀氀⠀䌀开䴀椀渀甀琀攀⤀⤀ഀഀ
        sgl_Angle(2) = CSng(Val(C_Sekunde))
਍ഀഀ
        sgl_Angle(0) += CSng(((sgl_Angle(1) / 60.0) + (sgl_Angle(2) / 3600.0)))
਍ഀഀ
        Select Case C_Quadrant
਍            䌀愀猀攀 ∀一∀Ⰰ ∀渀∀Ⰰ ∀䔀∀Ⰰ ∀攀∀Ⰰ ∀伀∀Ⰰ ∀漀∀ഀഀ

਍            䌀愀猀攀 ∀匀∀Ⰰ ∀猀∀Ⰰ ∀圀∀Ⰰ ∀眀∀ഀഀ
                sgl_Angle(0) = CSng(sgl_Angle(0) * -1.0)
਍            䌀愀猀攀 䔀氀猀攀ഀഀ
                sgl_Angle(0) = 360.0    ' Error Condition
਍        䔀渀搀 匀攀氀攀挀琀ഀഀ

਍        猀最氀开䄀渀最氀攀开琀漀开䘀氀漀愀琀 㴀 猀最氀开䄀渀最氀攀⠀　⤀ഀഀ
    End Function
਍    ✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ
    '   Format for time string	":12:00:00" Please note leading ":"
਍    ✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ
    Private Function sgl_Time_to_Float(ByVal str_Time_extended As String, ByVal str_MESZ_Flag As String) As Single
਍        䐀椀洀 䌀开䠀漀甀爀 䄀猀 匀琀爀椀渀最ഀഀ
        Dim C_Minute As String
਍        䐀椀洀 䌀开匀攀欀甀渀搀攀 䄀猀 匀琀爀椀渀最ഀഀ

਍        䐀椀洀 䘀开吀椀洀攀⠀㌀⤀ 䄀猀 匀椀渀最氀攀ഀഀ

਍        䌀开䠀漀甀爀 㴀 䌀吀礀瀀攀⠀䴀椀搀⠀猀琀爀开吀椀洀攀开攀砀琀攀渀搀攀搀Ⰰ ㈀Ⰰ ㈀⤀Ⰰ 䌀栀愀爀⠀⤀⤀ഀഀ
        C_Minute = CType(Mid(str_Time_extended, 5, 2), Char())
਍        䌀开匀攀欀甀渀搀攀 㴀 䌀吀礀瀀攀⠀䴀椀搀⠀猀琀爀开吀椀洀攀开攀砀琀攀渀搀攀搀Ⰰ 㠀Ⰰ ㈀⤀Ⰰ 䌀栀愀爀⠀⤀⤀ഀഀ

਍        䘀开吀椀洀攀⠀　⤀ 㴀 䌀匀渀最⠀嘀愀氀⠀䌀开䠀漀甀爀⤀⤀ഀഀ
        F_Time(1) = CSng(Val(C_Minute))
਍        䘀开吀椀洀攀⠀㈀⤀ 㴀 䌀匀渀最⠀嘀愀氀⠀䌀开匀攀欀甀渀搀攀⤀⤀ഀഀ

਍        䤀昀 ⠀䘀开吀椀洀攀⠀　⤀ 㰀 ㄀㈀⸀　⤀ 吀栀攀渀      ✀ 䌀漀爀爀攀挀琀椀漀渀ഀഀ
            Bool_AM_Flag = True
਍        䔀氀猀攀ഀഀ
            Bool_AM_Flag = False
਍        䔀渀搀 䤀昀ഀഀ

਍        䘀开吀椀洀攀⠀　⤀ ⬀㴀 䌀匀渀最⠀⠀⠀䘀开吀椀洀攀⠀㄀⤀ ⼀ 㘀　⸀　⤀ ⬀ ⠀䘀开吀椀洀攀⠀㈀⤀ ⼀ ㌀㘀　　⸀　⤀⤀⤀ഀഀ
        'F_Time(0) -= CSng((1.0 + Val(str_MESZ_Flag))) ' Greenwich Mean Time
਍        䘀开吀椀洀攀⠀　⤀ ⴀ㴀 䌀匀渀最⠀⠀㄀⸀　 ⴀ 嘀愀氀⠀猀琀爀开䴀䔀匀娀开䘀氀愀最⤀⤀⤀ ✀ 䜀爀攀攀渀眀椀挀栀 䴀攀愀渀 吀椀洀攀  ㈀㔀⸀㌀⸀㈀　㄀㈀ഀഀ

਍        猀最氀开吀椀洀攀开琀漀开䘀氀漀愀琀 㴀 䘀开吀椀洀攀⠀　⤀ഀഀ

਍    䔀渀搀 䘀甀渀挀琀椀漀渀ഀഀ
    '// ********************************************************
਍ഀഀ
    Private Sub btn_Calculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Calculate.Click
਍ഀഀ
        'Call Sonnenstand_Berechnung(txt_Daytime.Text, txt_DateofInterest.Text, _
਍        猀琀爀开䘀甀渀挀琀椀漀渀刀攀瀀氀礀 㴀 猀琀爀开昀挀琀渀开匀漀渀渀攀渀猀琀愀渀搀开䈀攀爀攀挀栀渀甀渀最⠀琀砀琀开䐀愀礀琀椀洀攀⸀吀攀砀琀Ⰰ 琀砀琀开䐀愀琀攀漀昀䤀渀琀攀爀攀猀琀⸀吀攀砀琀Ⰰ 开ഀഀ
                                    txt_SommerZeit.Text, txt_Latitude.Text, txt_Longitude.Text, sgl_THERMOSTART, sgl_THERMOEND)
਍ഀഀ
    End Sub
਍    ✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ

਍    ✀倀爀椀瘀愀琀攀 匀甀戀 戀琀渀开䔀砀椀琀开䌀氀椀挀欀⠀䈀礀嘀愀氀 猀攀渀搀攀爀 䄀猀 匀礀猀琀攀洀⸀伀戀樀攀挀琀Ⰰ 䈀礀嘀愀氀 攀 䄀猀 匀礀猀琀攀洀⸀䔀瘀攀渀琀䄀爀最猀⤀ 䠀愀渀搀氀攀猀 戀琀渀开䔀砀椀琀⸀䌀氀椀挀欀ഀഀ
    '    Me.Close()
਍    ✀䔀渀搀 匀甀戀ഀഀ
    '// ********************************************************
਍ഀഀ
    'Private Sub txt_Zeitpunkt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Zeitpunkt.TextChanged
਍ഀഀ
    'End Sub
਍    ✀⼀⼀ ⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀഀ
End Class
਍ഀഀ