#!/boot/home/config/bin/yab

jahr=0
schaltjahre=jahr/400

for l=1 to 3000
	
	schaltjahre=jahr/4
	//print schaltjahre
	ergebnis=len(str$(schaltjahre))
	if (ergebnis=1) then
		//print jahr
	endif
	jahr=jahr+1
	//print jahr
next l


monate=12

wochentagen=7

zeitspannen()
sub zeitspannen()

//wert1$="10.03.1926"
//wert2$="01.01.2027"
//dim teil_datum$(1)
//dim teil_datum2$(1)
//for rr=1 to 3
//	zn=split(wert1$, teil_datum$(), ".")
//	nz=split(wert2$, teil_datum2$(), ".")
//	
//next rr
//print teil_datum$(1)
//print teil_datum$(2)
//print teil_datum$(3)
//wert3=val(teil_datum$(3))
//wert4=val(teil_datum2$(3))
//wert5=wert4-wert3
//
//print wert5

end sub
dim alter(32)
auslesen()
while(not instr(msg$,"NextButton"))
	msg$ = message$
	if(instr(msg$, "Quit")) then
		window close "test"
		end
	endif
	sleep 0.1
wend



sub auslesen()	
	
	local x
	local y
	local z
	x=0
	y=0
	z=0
			
	verzeichnis$="/boot/home/config/settings/.MyFamily/Mustermann/"
	fileload$=verzeichnis$+"Persons"
	
	auslesen=open(fileload$, "r")

	while (not EOF(auslesen))
		line input #auslesen b$
		dim elements$(1)
		numElements = split(b$, elements$(),"|")
		for z = 1 to numElements
			x=x+1
			dim d$(x)
			d$(x) = elements$(z)			
		next z
	wend

	close(auslesen)
	anzahlspalten=numElements
	anzahlzeilen=x/anzahlspalten
	
	dim teil_datum$(1)
		dim teil_datum2$(1)
		y=0
		yx=-4
		xx=-3
	
		for rr=1 to anzahlzeilen
		y=y+9
			zn=split(d$(yx+y), teil_datum$(), ".")
			nz=split(d$(xx+y), teil_datum2$(), ".")
			//print "zeile"+d$(yx+y)
			//print "zeile"+d$(xx+y)	
			wert3=val(teil_datum$(3))
		wert4=val(teil_datum2$(3))
		wert5=wert4-wert3	
		print wert5
		
		
		for test=1 to 150
			t=t+0.125
			if(wert5>=test and wert5<test+1) then
				a=a+1
				alter(t)=a
				break			
			endif	
			
		//elseif(wert5>=2 and wert5<4) then
		//	b=b+1
		//	alter(2)=b
		//elseif(wert5>=4 and wert5<6) then
		//	b=b+1
		//	alter(3)=b
		//elseif(wert5>=2 and wert5<4) then
		//	b=b+1
		//	alter(4)=b		
			print "alter zwischen "+str$(t)+"und"+str$(t+1)
			print alter(t)
			print
		next test
		
		next rr
		
		
		print "alter 2-4"
		print alter(2)	
		print	
end sub


window close "MainView"