Office: (Office 2010) Datumsdifferenz Ausgabe in Tage/Monate/Jahre

Hardic · 27. April 2015

Einfacher als gedacht *biggrin.gif*

Vielen Dank läuft alles hervorragend.

Allerdings würde ich zudem noch gerne folgendes Makro hinzufügen, was mir nicht gelingt:

SetzenWert:

Element = EZ
Ausdruck = Wenn(Option36=Wahr;[BDat]-[VDat]+1;[BDat]-[VDat])

*frown.gif*

Maxel · 27. April 2015

Nimm VBA statt ein Makro:
Code:

Me!EZ = Me!BDat - Me!VDat - Me!Option36
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lanz Rudolf · 27. April 2015

Hallo
@maxel
ganz schön Dricki *Smilie
True = -1
False = 0
alse heute am 27.04.215
Date+ True gibt 26.04.2015
Date + False = 27.04.2015
BRAVO *Smilie *top

hoppla da ist schon wider was gekomme (bin nicht so schnell !!*frown.gif*

Ohrkester · 27. April 2015

Servus Hardic,
Makros sind "verführerisch" einfach.
Am Ende stehst Du alleine da, weil am Anfang mal 1 oder 2 einfache Makro-Helferchen Dir unter die Arme greifen und am Ende diese Makros die komplexesten Auswertungen von VBA-Prozeduren NIEMALS ERFÜLLEN können.

Lanz Rudolf · 27. April 2015

Hallo
zu Makros lies in meiner Doc s. Fusszeile
Seite 34 und 37
ab Access 2010 sind Makros nach meinem wissensstand jedoch besser.
Generel empfehle ich Makros auch NICHT

Hardic · 27. April 2015

So nochmal herzlichen Dank.

Trotzdem ist eine Sache fraglich:

vom 01.02.2016 - 29.02.2016 sind es 29 Tage wenn ich den ersten Tag einbeziehe.
Funktioniert bei dem Tage-Zähler top = 29,
bei dem Jahre/Monate/Tage kommt aber nur 28 raus :O

Lanz Rudolf · 27. April 2015

Hallo
habbe gestern ein Fehler gemacht
zu schnell und nicht getestet (es ist zwar im Kommenter aber nicht programiert

du musst diese Funktion in das Modul einbauen:
Code:

Function IstSchaltjahr(ByVal Jahreszahl As Integer) As Boolean
On Error Resume Next
IstSchaltjahr = (Jahreszahl Mod 4 = 0 And (Jahreszahl Mod 100 0 Or Jahreszahl Mod 400 = 0))
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und alle diese (ca. 3x) if Month(datVon) = 2 And Day(datVon) = 29 Then
annpassen ergänzen mit dem If IstSchaltjahr so:
Code:

If Month(datVon) = 2 And Day(datVon) = 29 Then '!Schaltjahr
If IstSchaltjahr(Year(datVon)) Then
Else
datVon = DateSerial(Year(datVon), 2, 28)
End If
End If
If Month(datBis) = 2 And Day(datBis) = 29 Then
If IstSchaltjahr(Year(datBis)) Then
Else
datBis = DateSerial(Year(datBis), 2, 28)
End If
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

geht das ? oder sll ich eine neue Muster MDB hochladen ?

wb_3001 · 28. April 2015

Hallo Hardic!

Anbei meine Variante mit DateAdd und DateDiff.
Ich bin nicht ganz sicher, ob ich a l l e Schaltjahresvarianten getestet habe.

Ob es sich bei den Von-Bis Datum um gültige Datumsangaben handelt,
wird nicht geprüft, da, falls die Daten einer Tabelle entstammen, diese sicher gültige Werte enthalten.

Code:

'
' Datumsdifferenz in Jahren, Monaten, Tagen
'
Sub TageMonateJahre(dtDatumVon As Date, dtDatumBis As Date, Tage As Long, Monate As Long, Jahre As Long)
Dim lTagevon As Long
Dim lTagebis As Long
Dim ldtDatumVon As Date
Dim ldtRFDatum As Date

lTagevon = CLng(dtDatumVon)
lTagebis = CLng(dtDatumBis)

Jahre = DateDiff("yyyy", dtDatumVon, dtDatumBis)
ldtRFDatum = DateAdd("yyyy", Jahre, dtDatumVon)
Monate = DateDiff("m", ldtRFDatum, dtDatumBis)
ldtDatumVon = DateAdd("m", Monate, ldtRFDatum)
lTagevon = CLng(ldtDatumVon)
If ldtDatumVon > dtDatumBis Then
Monate = Monate - 1
ldtDatumVon = DateAdd("m", Monate, ldtRFDatum)
lTagevon = CLng(ldtDatumVon)
End If
Tage = lTagebis - lTagevon + 1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wolfgang

Hardic · 28. April 2015

Soooooo, nochmals vielen Dank an alle *biggrin.gif*

Funktioniert alles. Ihr wart alle sehr hilfreich und extrem flott *Smilie

wb_3001 · 28. April 2015

Hallo!

Und für welche Lösung hast Du Dich entschieden?

Wolfgang

Hardic · 28. April 2015

Erstmal die von Herrn Rudolf, deine werde ich auch noch testen bin nur erstmal bis zum 20.05 in Urlaub.

Trotzdem Danke

Lanz Rudolf · 28. April 2015

Hallo
alles gut :
doch Bitte nenne mich nie mehr
Herrn Rudolf

ich bevorzuge hier im Forum einfach Ruedi *wink.gif*
Danke

Office: (Office 2010) Datumsdifferenz Ausgabe in Tage/Monate/Jahre

Datumsdifferenz Ausgabe in Tage/Monate/Jahre

Datumsdifferenz Ausgabe in Tage/Monate/Jahre

Datumsdifferenz Ausgabe in Tage/Monate/Jahre

Datumsdifferenz Ausgabe in Tage/Monate/Jahre

Datumsdifferenz Ausgabe in Tage/Monate/Jahre - Similar Threads - Datumsdifferenz Ausgabe Tage

MERGEFIELD Ausgabe einer Zahl in unterteilte Tabelle

gezielt Daten aufzählen und zuordnen

Erstellung Angebot mit 6 Zeiträumen und 4 Preiskategorien

Datumsdifferenz in Monaten ausdrücken

Datumsdifferenz Auflisten

Datumsdifferenz in Abfrage

Datumsdifferenz