Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datums - Berechnung
Autor: HigginS
Datum: 21.09.02 11:14
Habe mittlerweile rausgefunden wie man formatiert.   on glDiffDays60(ByVal vvDateStart As Variant, ByVal vvDateEnd As Variant, ByVal vbTagPlus As Integer) As Long Dim viRestJahre As Integer 'RestJahre Dim viRestMonateStart As Integer 'RestMonate im StartJahr Dim viRestMonateEnd As Integer 'RestMonate im EndJahr Dim viStartJahr As Integer 'Jahr des StartDatums Dim viStartMonat As Integer'Monat des StartDatums Dim viStartTage As Integer 'Tage im StartMonat Dim viEndJahr As Integer 'Jahr des EndDatums Dim viEndMonat As Integer 'Monat des EndDatums Dim viEndTage As Integer 'Tage im EndMonat Dim vlTage As Long 'Initialisierungen glDiffDays60 = 0 viRestJahre = 0 viRestMonateEnd = 0 viStartJahr = Year(vvDateStart) viStartMonat = Month(vvDateStart) viEndJahr = Year(vvDateEnd) viEndMonat = Month(vvDateEnd) 'Tage im StartMonat ermitteln Select Case vbTagPlus Case True 'Starttag zu Datumsdifferenz dazuzählen viStartTage = 30 - Day(vvDateStart) + 1 Case Else viStartTage = 30 - Day(vvDateStart) End Select 'Tage im EndMonat ermittlen viEndTage = Day(vvDateEnd) 'Tage prüfen If viStartTage > 30 Then viStartTage = 30 End If If viEndTage > 30 Then viEndTage = 30 End If 'Februar abfangen If Month(vvDateEnd) = 2 And viEndTage >= 28 Then viEndTage = 30 End If If Month(vvDateStart) = 2 And viStartTage >= 28 Then viStartTage = 30 If Day(vvDateStart) <> 1 Then Select Case vbTagPlus Case True viStartTage = viStartTage - Day(vvDateStart) + 1 Case Else viStartTage = viStartTage - Day(vvDateStart) End Select End If End If If viEndJahr > viStartJahr Then 'Jahresübergreifend 'RestJahre ermitteln viRestJahre = viEndJahr - viStartJahr - 1 'RestMonate im StartJahr ermitteln viRestMonateStart = 12 - viStartMonat 'RestMonate im EndJahr ermitteln viRestMonateEnd = viEndMonat - 1 Else If viEndJahr = viStartJahr Then viRestMonateStart = (viEndMonat - viStartMonat) - 1 viRestMonateStart = gdNegZero(viRestMonateStart) If viEndMonat = viStartMonat Then viStartTage = viEndTage - Day(vvDateStart) + 1 viEndTage = 0 'Innerhalb eines Monats nur StartTage End If End If End If vlTage = gtGlobP.giStJahrTage * viRestJahre 'Tage der Jahre vlTage = vlTage + (30 * viRestMonateStart) 'Tage der RestMonate im StartJahr vlTage = vlTage + (30 * viRestMonateEnd) 'Tage der RestMonate im EndeJahr vlTage = vlTage + viStartTage 'Tage im StartMonat vlTage = vlTage + viEndTage 'Tage im EndMonat glDiffDays60 = vlTage End Function

Datums - Berechnung	137	Wackes	20.09.02 12:57
Re: Datums - Berechnung	93	Michael	20.09.02 15:23
Re: Datums - Berechnung	84	Wackes	21.09.02 08:19
Re: Datums - Berechnung	73	fdsa	21.09.02 10:55
Re: Datums - Berechnung	84	HigginS	21.09.02 10:09
Re: Datums - Berechnung	89	HigginS	21.09.02 11:14
Re: Datums - Berechnung	74	Wackes	21.09.02 14:46
Re: Datums - Berechnung	77	HigginS	21.09.02 15:05
Re: Datums - Berechnung	75	Wackes	21.09.02 16:43

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen