Einführung in VBA | ||
---|---|---|
Zurück |
Vergleichen Sie bitte hier die Lösung der Aufgaben aus Kapitel 3. Auch andere Lösungen können richtig sein, wenn die richtigen Ergebnisse berechnet werden.
Beispiel A-1. VBA-Funktionen für ein Doppel-T-Profil (Lösung)
Function dt_profil_flaeche(H, B, t, s As Double) As Double h1 = H - 2 * t dt_profil_flaeche = h1 * s + 2 * B * t End Function Function dt_profil_umfang(H, B, t, s As Double) As Double dt_profil_umfang = 2 * B + 2 * (B - s) + 2 * (H - 2 * t) + 4 * t End Function