Office - Word, Excel und Co. 9.746 Themen, 41.427 Beiträge

Verfolgung starten Optionen

Access - fiktives Datum als Berechnungsgrundlage und Fristen

Thailand62 / 2 Antworten / Flachansicht Nickles

Hallo Leute,

habe leider ein sehr heikles Thema:

Bin Anwender in einer grösseren Firma und habe vom Personalchef eine Personaldatei mit Na´me, Vorname, Geburtsdatum und Eintrittsdatum erhalten.
Diese Datei soll das aktuelle Alter und die Betriebszugehörigkeit der Mitarbeiter berechnen ( was auch klappt dank Hilfe aus dem Netz!). Aber das Bezugsdatum soll nicht der heitige Tag, sondern ein frei wählbares Datum sein! Denn es geht um Kündigungen, daher müssen wir wissen, wie alt z. B. die Mitarbeiter am 1.1.2006 sind und wie lange sie in der Firma sind.
Das ist das eine - das andere ist, wie kann ich aus der Betriebszugehörigkeit den möglichen Kündigungstermin errechnen und gleichzeitig zurückrechnen, wann die Kündigung erfolgen muss?

leider ein heikles Thema, aber es hängt wohl auch mein Arbeitsplatz davon ab.....

Schon mal vielen Dank Thailand 62

bei Antwort benachrichtigen
Uli M Thailand62 „Access - fiktives Datum als Berechnungsgrundlage und Fristen“
Optionen

Verwende in 1. Linie DateDiff, um Zeit-Differenzen zu ermitteln.
Verwende ein Kalender-Steuerelement (oder ein Formular, eine UserForm, eine InputBox - wobei du dann validieren musst (isDate/cDate)), um ein bel. Datum abzufragen.
Die Dinge rund um Kündigung hängen natürlich von euren Gegebenheiten ab ("möglicher Kündigungstermin" etc. = ?).
Bsp.:
Dim dGeburt As Date, S As String, lAlter As Long
dGeburt = CDate("05.10.1968")
S = InputBox("Datum?", "Alter errechnen für Geburtsdatum " & Str(dGeburt), Date)
If IsDate(S) Then
lAlter = DateDiff("yyyy", dGeburt, CDate(S)) ' berücksichtigt nur das Jahr, also nn exakt
MsgBox "Alter: " & lAlter & " Jahre"
End If

bei Antwort benachrichtigen
Liebe Helfer, habe mit eurer Hilfe das Problem wie folgt gelöst: ... Thailand62