Komplizierte Wenn-Formel nach VBA (evtl. @ Josef)
25.06.2007 22:04:40
proxima05
ich habe eine etwas verschachtelte Wenn-Formel, die ich nach VBA übersetzen muss. Die Daten stammen alle aus Textboxen in denen Datumwerte eingetragen sind (deswegen die Umwandlung); berechnet werden soll der Inhalt einer weiteren Textbox (iPeriod1), in der das Ergebnis in Tagen steht. Mir macht vor allem der zweite Wenn-Block (fett markiert) in der Subtraktion Probleme.
Hier die Formel
*********************************************************
WENN(JAHR(Value_Date)=JAHR(Issuance_Date);Value_Date-Issuance_Date;
Value_Date-<b>WENN(DATUM(JAHR(Value_Date);MONAT(Interest_Run);TAG(Interest_Run))>Value_Date</b>;
DATUM(JAHR(Value_Date)-1;MONAT(Interest_Run);TAG(Interest_Run));DATUM(JAHR(Value_Date);MONAT(Interest_Run);TAG(Interest_Run)))))
*********************************************************
Ich habe schon mal angefangen, aber irgendwie klappt es nicht. Nachstehend mkein Code:
*********************************************************
If DateSerial(Year(Value_Date)) = DateSerial(Year(Issuance)) Then
iPeriod1.Value = CDate(Value_Date.Value) - CDate(Issuance.Value)
ElseIf
If DateSerial(Year(Value_Date), Month(Interst_Run), Day(Interest_Run) > CDate(Value_Date.Value) Then
iPeriod1.Value = CDate(Value_Date.Value) - DateSerial(Year(Value_Date) - 1, Month(Interest_Run, Day(Interest_Run)))
Else
iPeriod1.Value = CDate(Interest_Run.Value) - DateSerial(Year(Value_Date), Month(Interest_Run), Day(Interest_Run)))
*********************************************************
Kann mir da jemand helfen?
Allerbesten Dank
Ralph