Thema Datum  Von Nutzer Rating
Antwort
Rot Datumswerte vergleichen
12.05.2018 10:07:31 Jannik
NotSolved
12.05.2018 10:46:04 Gast7777
NotSolved
12.05.2018 11:25:03 Jannik
NotSolved
12.05.2018 20:47:48 Trägheit
NotSolved

Ansicht des Beitrags:
Von:
Jannik
Datum:
12.05.2018 10:07:31
Views:
252
Rating: Antwort:
  Ja
Thema:
Datumswerte vergleichen
Hallo, 
 
ich möchte gerne 4 unabhängige Datumswerte aus einer Tabelle mit einem Ursprungsdatum vergleichen. Dabei soll überprüft werden, ob das Ursprungsdatum jeweils kleiner als die 4 Datumswerte sind. Zusätzlich muss ich noch wissen, ob die Datumswerte von einander unterschiedlich sind. 
Das Ziel ist es heraus zu finden, wie viele vom Ursprungsdatum abweichende Datumswerte ich habe, wobei ich ausschließlich auf den Monat und das Jahr achte und nicht auf den Tag. 
 
<code>
Public Sub checkreassessmenthowmany()
Dim i As Integer, j As Integer, zaehler As Integer, datum0 As Variant, datum1 As Variant, datum2 As Variant, datum3 As Variant, datum4 As Variant
zaehler = 0
For i = 3 To Worksheets("data").Cells(1, 2) + 2
 
'Übergabe der Datumswerte aus der jeweiligen Zeile an die Variable 
datum0 = DateSerial(Year(Worksheets("data").Cells(i, 9)), Month(Worksheets("data").Cells(i, 9)), 1) 'contract start date
datum1 = DateSerial(Year(Worksheets("data").Cells(i, 25)), Month(Worksheets("data").Cells(i, 25)), 1) 'residual value guarantee
datum2 = DateSerial(Year(Worksheets("data").Cells(i, 31)), Month(Worksheets("data").Cells(i, 31)), 1) 'extension option
datum3 = DateSerial(Year(Worksheets("data").Cells(i, 36)), Month(Worksheets("data").Cells(i, 36)), 1) 'purchase option
datum4 = DateSerial(Year(Worksheets("data").Cells(i, 41)), Month(Worksheets("data").Cells(i, 41)), 1) 'termination option
 
If datum0 < datum1 Then zaehler = zaehler + 1
        
If datum2 <> datum1 Then
     If datum0 < datum2 Then zaehler = zaehler + 1
End If
        
If datum3 <> datum2 And datum3 <> datum1 Then
     If datum0 < datum3 Then zaehler = zaehler + 1
End If
        
If datum4 <> datum1 And datum4 <> datum2 And datum4 <> datum3 Then
     If datum0 < datum2 Then zaehler = zaehler + 1
End If
 
'Ausgabe der Anzahl von unterschiedlichen Datumswerten
Worksheets("data").Cells(i, 2) = zaehler 
 
zaehler = 0
Next i
End Sub
</code>

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Datumswerte vergleichen
12.05.2018 10:07:31 Jannik
NotSolved
12.05.2018 10:46:04 Gast7777
NotSolved
12.05.2018 11:25:03 Jannik
NotSolved
12.05.2018 20:47:48 Trägheit
NotSolved