Datum in UF berechnen ...
21.01.2007 13:48:07
proxima05
ich habe in einem UF zwei Textfelder, in die ich Daten eintrage (im Datumformat) und diese dann in einen Tabellenbereich schreibe.
Die Textfelder (die auch allesamt funktionieren) spreche ich an, über
*************************************
Private Sub Ende_AfterUpdate()
Ende = Format(Ende, "DD.MM.YYYY")
End Sub
Private Sub Anfang_AfterUpdate()
Anfang = Format(Anfang, "DD.MM.YYYY")
End Sub
*************************************
Jetzt möchte ich, dass in einem anderen Textfeld im UF die Differenz zwischen "Anfang" und "Ende" berechnet und im UF sofort angezeigt wird. Realisieren wollte ich das über den folgenden Code:
=====================================
Private Sub Diff_Change()
If Anfang.Value = """" And Ende.Value = """" Then
Diff.Value = """"
ElseIf Anfang.Value = """" And Ende.Value <> """" Then
Diff.Value = """"
ElseIf Anfang.Value <> """" And Ende.Value = """" Then
Diff.Value = """"
Else
If Anfang.Value <> """" And Ende.Value <> """" Then
Diff = CDate(Ende) - CDate(Anfang)
End If
End If
End Sub
=====================================
Leider funktioniert das so nicht. Mir ist auch nicht ganz klar, wie ich das neue Textfeld aktivieren kann, damit sofort nach Eingabe von "Anfang" und "Ende" eine Berechnung stattfindet (geht das vielleicht über "Call"); auf jeden fall soll keine Berechnung stattfinden, wenn "Anfang" und "Ende" keine Werte enthalten.
Danke für einen Tipp.
Gruß
Ralph