,z^?0STG fr berechneTage(pDat1:Datum,pDat2:Datum):GZArialAbi Klausur 2004.11KaiMariSandra______Benni-GZ: tag, monat, jahr, tag2, monat2, jahr2, i;Arial ^,^,TArialArial i <- 0^,TArialArial tag <- datum1.gibTag( )^h,TArialArial monat <- datum1.gibMonat( )^,TArialArial jahr <- datum1.gibJahr( )^,TArialArial tag2 <- datum2.gibTag( )^d,TArialArial monat2 <- datum2.gibMonat( )^,TArialArial jahr2 <- datum2.gibJahr( )^ ,ArialArial 6solange(tag != tag2 & monat != monat2 & jahr != jahr2)`x`xArialArial i < 356TArialArial  tag <- tag+14TArialArial i <- i+1ArialArial tag = dieTageImMonat(monat) ?=|=TArialArial tag <- 1\=(ArialArial  monat < 12 ?ArialArial monat <- monat + 1]p]pTArialArial  monat <- 1]0 pTArialArial jahr <- jahr +1||ArialArial  tag <- tag +1 TArialArial  gib i zurckV4V4ArialArial  gib -1 zurck