Funktionen auf Zeitpunkt, Distanz und Intervall

• IsZP()
• IsZD()
• Sekunde()
• Minute()
• Stunde()
• Tag()
• Monat()
• Jahr()
• WWJ()
• ZPAbrunden()
• Breite()
• Links()
• Rechts()
• LinksReal()
• RechtsReal()
• DistStunden()
• DistStr()
• ZPStr()
• ZIStr()
• MaxFocusZR()
• MaxTextFocusZR()
• GetFocus()
• MAXFOCUS
• SetZPRaster()
• Laufzeit()
• StrToIvl()

• Beispiel zu WWJ, Breite, Links und Rechts
• Beispiel zu ZPAbrunden
• Beispiel zu DistStunden
• Beispiel zu GetFocus, MaxFocusZR und MAXFOCUS

Beispiel zu WWJ, Breite, Links und Rechts

 
# Beispielprogramm zu den Funktionen WWJ, Breite, Links und Rechts

AZUR (Real jahr=1994)
	IF (IsValid (jahr))
		wwjahr := WWJ (jahr)
		Print ("WWJahr\n\t", wwjahr)
		br := Breite (wwjahr)
		Print ("\tBreite des Intervalls : ", br)
Print () HREF="explizit/.html"> 
		# Intervall erweitern
		neuer_bereich := [Links(wwjahr)-~"1 Monat", Rechts(wwjahr)+~"1 Monat"]
		Print ("Intervall an beiden Seiten um 1 Monat erweitert")
		Print ("\t", neuer_bereich)
		br := Breite (neuer_bereich)
		Print ("\tBreite des Intervalls : ", br)
	ELSE
		Print ("Ung\ultiges Jahr!")
	ENDIF
END

 
WWJahr
	[01.11.1993 07:30,01.11.1994 07:30]
	Breite des Intervalls : 365d

Intervall an beiden Seiten um 1 Monat erweitert
	[01.10.1993 07:30,01.12.1994 07:30]
	Breite des Intervalls : 426d

Beispiel zu ZPAbrunden

 
# Beispielprogramm zu der Funktion ZPAbrunden

AZUR (Zeitpunkt zp=@"11.11.1988 11:11")
	Print ("Der Zeitpunkt  ", zp, "  abgerundet auf")
Print () HREF="explizit/.html"> 
	zp_stunde:= ZPAbrunden (zp, ~"1 Stunde")
	zp_tag   := ZPAbrunden (zp, ~"1 Tag")
	zp_woche := ZPAbrunden (zp, ~"1 Woche")
	zp_monat := ZPAbrunden (zp, ~"1 Monat")
	zp_jahr  := ZPAbrunden (zp, ~"1 Jahr")
	Print ("die Stunde   : ", zp_stunde)
	Print ("den Tag      : ", zp_tag)
	Print ("die Woche    : ", zp_woche)
	Print ("den Monat    : ", zp_monat)
	Print ("das Jahr     : ", zp_jahr)
END

 
Der Zeitpunkt  11.11.1988 11:11  abgerundet auf

die Stunde   : 11.11.1988 11:00
den Tag      : 11.11.1988 00:00
die Woche    : 07.11.1988 00:00
den Monat    : 01.11.1988 00:00
das Jahr     : 01.01.1988 00:00

Beispiel zu DistStunden

 
# Beispielprogramm zu der Funktion DistStunden

AZUR () HREF="explizit/.html"> 
	Print ("1 Tag   : ", DistStunden (~"1 Tag"), "   Stunden")
	Print ("1 Woche : ", DistStunden (~"1 Woche"), "  Stunden")
	Print ("1 Monat : ", DistStunden (~"1 Monat"), "  Stunden")
	Print ("1 Jahr  : ", DistStunden (~"1 Jahr"), " Stunden")
Print () HREF="explizit/.html"> 
	Print ("Zu beachten: Monat und Jahr habe keine feste L\ange!")
	zp1 := @"1.1.1992"
	zp2 := zp1 + ~"1 Monat"
	dist := zp2 - zp1
	Print (zp1, " + 1 Monat = ", zp2, " ===> ", DistStunden(dist), " Stunden")
	zp2 := zp1 + ~"1 Jahr"
	dist := zp2 - zp1
	Print (zp1, " + 1 Jahr  = ", zp2, " ===> ", DistStunden(dist), " Stunden")
END

 
1 Tag   : 24   Stunden
1 Woche : 168  Stunden
1 Monat : 720  Stunden
1 Jahr  : 8760 Stunden

Beispiel zu GetFocus, MaxFocusZR und MAXFOCUS

 
# Beispielprogramm zu den Funktionen GetFocus, MaxFocusZR und
# der Konstanten MAXFOCUS

AZUR (ZRList zrl)
	Print ("Die ZRListe :")
	Print (zrl)
Print () HREF="explizit/.html"> 
	bereich := GetFocus (zrl)
	Print ("Focus der ZRListe : ", bereich)
Print () HREF="explizit/.html"> 
	i := 1
	FORALL zr In zrl
		Print ("ZReihe ", i, " : ", zr)
		i := i + 1
		zr_bereich := MaxFocusZR (zr)
		Print ("\t\tMaxFocus: ", zr_bereich)
		br := Breite (zr_bereich)
		dist := DistStunden (br)
		Print ("\t\t", dist, " Stunden")
		maximum := Max (zr, MAXFOCUS)
		Print ("\t\tMaximum : ",maximum)
	ENDFOR
END

 
Die ZRListe :
05.04.1992 12:59:00
01.11.1992 07:00:00
lucky1.lk0
lucky2.lk0
lucky3.lk0
lucky4.lk0

Focus der ZRListe : [05.04.1992 12:59:00,01.11.1992 07:00:00]

ZReihe 1 : (Lucky1,Luke,,,0,,Z)
		MaxFocus: [05.04.1992 12:59:55,01.11.1992 07:30:00]
		5034.5 Stunden
		Maximum : 5
ZReihe 2 : (Lucky2,Luke,,,0,,Z)
		MaxFocus: [05.04.1992 12:59:55,01.11.1992 07:00:00]
		5034 Stunden
		Maximum : 4
ZReihe 3 : (Lucky3,Luke,,,0,,Z)
		MaxFocus: [05.04.1992 12:59:55,01.11.1992 07:00:00]
		5034 Stunden
		Maximum : 2
ZReihe 4 : (Lucky4,Luke,,,0,,Z)
		MaxFocus: [05.04.1992 12:59:55,01.11.1992 07:00:00]
		5034 Stunden
		Maximum : 1