PDF complete version (5 MB) - ETH - LUE - ETH Zürich
PDF complete version (5 MB) - ETH - LUE - ETH Zürich
PDF complete version (5 MB) - ETH - LUE - ETH Zürich
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Anhang 32<br />
End Function<br />
6.7 Restrikiton Umgebung<br />
Public Sub restriktionen_umgebung()<br />
Dim placebo As Database<br />
Dim stp As Recordset<br />
Dim umgebung As Recordset<br />
Set placebo = DBEngine.Workspaces(0).Databases(0)<br />
Set umgebung = placebo.OpenRecordset("2_relevanz_umgebung", dbOpenDynaset)<br />
Set stp = placebo.OpenRecordset("stp")<br />
stp.Index = "STP_ID"<br />
umgebung.MoveFirst<br />
Do Until umgebung.EOF<br />
stp.Seek "=", umgebung![stp_id]<br />
stp.Edit<br />
stp![relevant_r] = umgebung![relevant_a]<br />
stp.Update<br />
umgebung.MoveNext<br />
Loop<br />
End Sub<br />
6.8 Strukturbewertung 1<br />
Public Function strukturbewertung(Arbricht, ArbRichtU, ArbRichtO, BestockO, einzugsgebiet, relevant_u, bestockU)<br />
Select Case Arbricht<br />
Case 0<br />
strukturbewertung = 0<br />
Case 1<br />
If einzugsgebiet > 0 Then<br />
If ArbRichtO = 2 Or BestockO < 99 Then<br />
strukturbewertung = 1<br />
ElseIf ArbRichtO = 1 Then<br />
strukturbewertung = 2<br />
Else<br />
strukturbewertung = 0<br />
End If<br />
Else<br />
strukturbewertung = 0<br />
End If<br />
Case 2<br />
If einzugsgebiet > 0 Then<br />
If ArbRichtU > 0 Or bestockU < 99 Then<br />
If relevant_u = 1 Then<br />
strukturbewertung = 1<br />
Else<br />
strukturbewertung = 2<br />
End If<br />
Else<br />
strukturbewertung = 3<br />
End If<br />
Else<br />
strukturbewertung = 0<br />
End If<br />
End Select<br />
End Function