title image


Smiley Re: Hilfe! wie rechne ich die Differenz zwischne 2 Datums aus ?
Du brauchst einen Label "Label1" zwei Kalender "Calendar1" und "Calendar2" Formname "f1"Die Formel ist Uralt, war gedacht um die Wochentage auszrechnen (mod 7). Sie errechnet zu jedem Tag einen Wert.Weiß einer von Euch wer sie entwickelt hat ??Ich habe sie vor ca 15 jahren aus einem C-Buch abgetippt.Option ExplicitPrivate Sub Calendar1_Click() rechneEnd SubPrivate Sub Calendar2_Click() rechneEnd SubSub rechne() Dim A1, B1, C1, E1, W1, D1, M1, Y1, X1 As Double Dim A2, B2, C2, E2, W2, D2, M2, Y2, X2 As Double D1 = f1.Calendar1.Day M1 = f1.Calendar1.Month Y1 = f1.Calendar1.Year D2 = f1.Calendar2.Day M2 = f1.Calendar2.Month Y2 = f1.Calendar2.Year If M1 If M1 > 2 Then X1 = (365 * Y1 + D1 + 31 * (M1 - 1) - Int(0.4 * M1 + 2.3) + Int(Y1 / 4) - Int(3 / 4 * (Int(Y1 / 100) + 1))) If M2 If M2 > 2 Then X2 = (365 * Y2 + D2 + 31 * (M2 - 1) - Int(0.4 * M2 + 2.3) + Int(Y2 / 4) - Int(3 / 4 * (Int(Y2 / 100) + 1))) f1.Label1.Caption = "Die Differnz beträgt " & Abs(X1 - X2) & " Tage." End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: