Datum (Wenn älter als 3 Tage)

Malte1990 · 18. Juli 2012, 16:51

Guten Tag,

1. Ich komme gar nicht mehr klar?! (Kopfchaois?!"==§)

Also, ich möchte gern aus einer Datei date.txt das Datum auslesen format (dd.MM.yyyy)
und er soll überprüfen ob das Datum in der Datei älter als 4 Tage ist & dann etwas ausführen....
Und wenn er älter als 10 Tage - unendlich ist wiederum etwas anderes.....

2. Das klingt so einfach... :D. Ich verzweifel.... :cursing:

Leseratte · 18. Juli 2012, 16:56

VB.NET-Quellcode

Dim xyz As String = My.Computer.Filesystem.ReadAllText("Datei.txt")
Dim Arr() As String = xyz.Split("."c)
Dim d As Date = New Date(Arr(2), Arr(1), Arr(0))
If d.AddDays(4) < Date.Now Then
DoSomething()
ElseIf d.AddDays(10) < Date.Now Then
DoSomethingElse()
End If

rotherford · 18. Juli 2012, 17:03

VB.NET-Quellcode

Dim Lines() = File.ReadAllLines("..")
Dim Difference = Now - Date.Parse(Lines(0))
If Difference.Days.Equals(4) Then
'4 Tage alt.
End If

/nicht getestet

picoflop · 18. Juli 2012, 17:03

Malte1990 schrieb:

date.txt

Da steht
01.02.2003
drin, oder wie ist das zu verstehen?

VB.NET-Quellcode

Dim s As String = "01.02.2003"
Dim d As Date
If Date.TryParseExact(s, "dd.MM.yyyy", New Globalization.CultureInfo("de-DE"), Globalization.DateTimeStyles.None, d) Then
' korrekt
If (Now - d).Days >= 4 Then
' alt
MsgBox("uuuuuuuralt")
End If
End If

Malte1990 · 18. Juli 2012, 17:13

Das scheint fast zu klappen =),

aaaaaaaaber er soll ja bis er die 4 Tage nicht erreicht hat nothing machen?

Oder übersehe ich das gerade?

RodFromGermany · 18. Juli 2012, 17:18

Malte1990 schrieb:

aaaaaaaaber er soll ja

Bewege die Maus hinter das Then, klicke da mit der linken Maustaste und drück auf die Enter-Taste.
Gib die Buchstaben "E", "L", "S", "E" ein und drück wieder auf die Enter-Taste.
Und vergiss das Speichern nicht. :thumbsup:

picoflop · 18. Juli 2012, 17:33

RodFromGermany schrieb:

Gib die Buchstaben "E", "L", "S", "E" ein und drück wieder auf die Enter-Taste.

Hä?
Ein leeres Else? Heute morgen keinen Kaffee gehabt?
Wenn "if BEDINGUNG" nicht erfüllt ist, dann macht er ... NIX. Auch ohne leeres "else".

Malte1990 · 18. Juli 2012, 17:37

Ihr seid süß

--> Problem verstanden ;D

Edit, kann man irgendwie Bereiche festetzen? Wenn zwischen 4-10 tagen dann & wenn zwischen 11-unendlich dann das?

ErfinderDesRades · 18. Juli 2012, 22:46

HardCoded kann man das mit einem Select Case machen (informier dich bei MSDN darüber).

Ich habe auch ein Dictionary für Schwellwerte gebastelt - aber ich zweifel, ob du damit klarkommst: ThresholdDictionary

RodFromGermany · 19. Juli 2012, 07:48

Oder ganz einfach so:

VB.NET-Quellcode

Dim d1 As DateTime = DateTime.Parse("10.11.12")
Dim d2 As DateTime = DateTime.Parse("11.12.13")
Dim dt As TimeSpan = d2 - d1
If dt < New TimeSpan(4, 0, 0, 0) Then
' -unendlich bis 4 Tage
ElseIf dt < New TimeSpan(10, 0, 0, 0) Then
' 4 bis 10 Tage
Else
' 11 bis unendlich
End If

Datum (Wenn älter als 3 Tage)

Datum (Wenn älter als 3 Tage)

VB.NET-Quellcode

VB.NET-Quellcode

Malte1990 schrieb:

VB.NET-Quellcode

Malte1990 schrieb:

RodFromGermany schrieb:

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben