,^?0STG fr berechneTage(pDat1:Datum,pDat2:Datum):GZArial Abi Klausur 2004.11KaiMariSandra______Benni@wenn Rckgabewert = -1, dann ist die Differenz grer als 1 Jahr-GZ: tag, monat, jahr, tag2, monat2, jahr2, i;Arial ^,^,TArialArial i <- 0^J,TArialArial tag <- pDat1.gibTag( )^,TArialArial monat <- pDat1.gibMonat( )^,TArialArial jahr <- pDat1.gibJahr( )^F,TArialArial tag2 <- pDat2.gibTag( )^,TArialArial monat2 <- pDat2.gibMonat( )^,TArialArial jahr2 <- pDat2.gibJahr( )^B,ArialArial 6solange(tag != tag2 & monat != monat2 & jahr != jahr2)xxArialArial i < 356TArialArial  tag <- tag+1jTArialArial i <- i+1ArialArial tag = dieTageImMonat(monat) ?>=|>=TArialArial tag <- 1=(ArialArial  monat < 12 ?  ArialArial monat <- monat + 1] p] pTArialArial  monat <- 1]f pTArialArial jahr <- jahr +1>|>|ArialArial  tag <- tag +1 TArialArial  gib i zurckV4V4ArialArial  gib -1 zurck