Hi, ich habe folgende Funktionen, die sich auf ein ganzes Jahr beziehen, es wird dabei ein Bericht ausgegeben, der den MA anzeigt, wie im ganzen Jahr die Störungen waren.
Nun soll das ganze immer ab einem bestimmten Dateien anfangen, wobei dann das Vertraglich festgelegte Jahr verwendet wird.
Wie bekomme ich diese Startfunktion in meine bestehende Function hinein?
Public Function Monatsname(Monat_i2 As Integer) As String
Dim Textfeld As Variant
Textfeld = Array(„Keine Daten“, „Januar“, „Februar“, „März“, „April“, „Mai“, „Juni“, „Juli“, _
„August“, „September“, „Oktober“, „November“, „Dezember“)
’
Monatsname = Textfeld(Monat_i2)
’
End Function
Public Function Verfügbarkeit_Mon(Monat_i2 As Integer, Ausfallmin_i2 As Integer) As Double
’
Dim Monatage As Variant
Dim Februar_i2 As Integer
’
Februar_i2 = IIf(DateDiff(„d“, DateValue(„01-01-“ & Jahrgang()), DateValue(„31-12-“ & Jahrgang())) = 365, 28, 29)
’
Monatage = Array(undef_i2ko, 31, Februar_i2, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
’
Verfügbarkeit_Mon = 100 - (Ausfallmin_i2 / (Monatage(Monat_i2) * 24 * 60 * 10 ^ -2))
’
End Function
Public Function Verfügbarkeit(Ausfallmin_i2 As Integer) As Double
’
Verfügbarkeit = 100 - (Ausfallmin_i2 / _
(DateDiff(„n“, DateValue(„01-01-“ & Jahrgang()), DateValue(„31-12-“ & Jahrgang())) * 10 ^ -2))
’
End Function
Ich denke, ich kann mit DateVulue das Startdatum angeben, Oder?
Wer kann mir helfen, oder eine Idee geben?
Grüße
Fredo