Local StartDate$="1.2.2004"
Local EndDate$="5.3.2004"

Print (Betweendays(StartDate$, EndDate$))
WaitKey
End


Function Betweendays(StartDate$,EndDate$)
	Local Tag = Int(nwort(StartDate$,1))
	Local Monat = Int(nwort(StartDate$,2))
	Local Jahr = Int(nwort(StartDate$,3))
	
	Local TagE = Int(nwort(EndDate$,1))
	Local MonatE = Int(nwort(EndDate$,2))
	Local JahrE = Int(nwort(EndDate$,3))
	
	If ((TagE + MonatE*30 + JahrE*365) - (Tag + Monat*30 + Jahr*365)) < 0 Then Return -1
	
	Local momdate$ = StartDate$
	
	Local Schaltjahr#, JahrR#, zahl
	While momdate$<>EndDate$
		
		If Tag<28 Then
			Tag=Tag+1
		Else
			If Monat<>2 Then
				If Monat=1 Or Monat=3 Or Monat=5 Or Monat=7 Or Monat=8 Or Monat=10 Or Monat=12 Then
					If Tag<31 Then
						Tag=Tag+1
					Else
						Tag=1
						Monat=Monat+1
					EndIf
				Else
					If Tag<30 Then
						Tag=Tag+1
					Else
						Tag=1
						Monat=Monat+1
					EndIf
				EndIf
			Else
				Schaltjahr#=JahrR#/4
				If RSet(Schaltjahr#,1)<>0 Then
					If Tag<28 Then
						Tag=Tag+1
					Else
						Tag=1
						Monat=Monat+1
					EndIf
				Else
					If Tag<29 Then
						Tag=Tag+1
					Else
						Tag=1
						Monat=Monat+1
					EndIf
				EndIf
			EndIf
		EndIf
		If Monat>12 Then
			Monat=1
			Jahr=Jahr+1
			JahrR#=JahrR#+1
		EndIf
		
		momdate$=Tag+"."+Monat+"."+Jahr
		zahl=zahl+1
		
	Wend
	Return zahl
End Function

; SpionAtom:
; satz$ ist der zu untersuchende String wort gibt an, das wievielte Wort gesucht werden soll
; https://www.blitzforum.de/forum/viewtopic.php?t=18819
Function nwort$(satz$, wort, trenn$=".")
	If wort < 1 Then Return ""
	satz$ = satz$ + trenn$
	Local pos = 1, w, x, y
	While w < wort And pos > 0
		While Mid$(satz$, pos, 1) = trenn$
			pos = pos + 1
		Wend
		x = pos
		y = Instr(satz$, trenn$, pos)
		pos = y
		w = w + 1
	Wend
	Return Mid$(satz$, x, y - x)
End Function