OpenOffice.info

Code: Alles auswählen

sub Alter_nach_Datensatz_wechsel
dim oForm as Object
dim sDatum as String
dim iJahr, iMonat, iTag, iAlter as Integer

oForm = thisComponent.drawpage.forms.getbyindex(0)
sDatum = oForm.getByName("datGebDatum").date

if sDatum = "" then
	oForm.getbyName("Alter").text =""
	exit sub
end if

iJahr = cint(left(sDatum,4))
iMonat = cint(mid(sDatum,5,2))
iTag = cint(right(sDatum,2))

If iMonat < month(date()) then ' in diesem Jahr bereits Geburtstag gehabt
	iAlter = year(date()) - iJahr
end if

If iMonat > month(date()) then ' in diesem Jahr noch nicht Geburtstag gehabt
	iAlter = year(date()) - iJahr - 1
end if

If iMonat = month(date()) then ' in diesem Monat Geburtstag
	if iTag <= day(date()) then ' bereits Geburtstag gehabt
		iAlter = year(date()) - iJahr
	else
		iAlter = year(date()) - iJahr - 1
	end if
end if

oForm.getbyName("Alter").text = cstr(iAlter)

End Sub

Code: Alles auswählen

sub NACH_DatensatzWechsel

	oForm = thisComponent.drawpage.forms.getbyindex(0)

	select case oForm.getByName("datGeburtstag").date
	case null,0,""
		oForm.getByName("Alter_in_Tagen").value = 0
	case else	
		sGebDatum = cstr(oForm.getByName("datGeburtstag").date)
		oForm.getByName("Alter_in_Tagen").value = datevalue(date) - datevalue(left(sGebDatum,4) & "." & mid(sGebDatum,5,2) & "." & right(sGebDatum,2))
	end select	

end sub