|
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>
|