Sub DisplayLight
GetTime stunde, H
   GetTime minute, i
set midtimeakku2, %lightakku% - %nightakku%
set midtimeakku3, %minute% / 60
set midtimeakku4, %midtimeakku3% * %midtimeakku2%
Set Midtimeakku, %lightakku% - %midtimeakku4%
set midtimenorm2, %lightnorm% - %nightnorm%
set midtimenorm3, %minute% / 60
set midtimenorm4, %midtimenorm3% * %midtimenorm2%
Set Midtimenorm, %lightnorm% - %midtimenorm4%
	If expression %stunde% > %nighttime% 
	   Setbacklight %nightakku%, %nightnorm%
                     else
	    If expression %stunde% > %lighttime% 
	      Setbacklight %lightakku%, %lightnorm%  
                     EndIf

	EndIf

	If expression %stunde% < %lighttime% 
	   Setbacklight %nightakku%, %nightnorm%
	EndIf

	If expression %stunde% = %nighttime% 
	   Setbacklight %midtimeakku%, %midtimenorm%
	EndIf

	If expression %stunde% = %lighttime% 
	   Setbacklight %midtimeakku%, %midtimenorm%
	EndIf
endsub