,^?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 <- pDat1.gibTag( )^2"TArialArial monat <- pDat1.gibMonat( )^"TArialArial jahr <- pDat1.gibJahr( )^"TArialArial tag2 <- pDat2.gibTag( )^."TArialArial monat2 <- pDat2.gibMonat( )^"TArialArial jahr2 <- pDat2.gibJahr( )^"LArialArial 6solange(tag != tag2 & monat != monat2 & jahr != jahr2)**TArialArial i <- i+1~TArialArial  tag <- tag+1ArialArial tag = dieTageImMonat(monat) ?RR|RRTArialArial tag <- 1R(ArialArial  monat < 12 ?&&ArialArial monat <- monat + 1g&{g&{TArialArial  monat <- 1gz{TArialArial jahr <- jahr +1R|R|ArialArial  tag <- tag +1TArialArial  gib i zurck