Tage Berechnung bis heute

Vulferin · 5. Juni 2022, 11:45

Hallo Zusammen,

ich habe ein Dataset
Spalte 4 wird ein Datum eingetragen, ich möchte gerne das er in Spalte 6 die Differenz in Tagen vom Datum Spalte 4 bis heute Automatsch beim öffnen der Form berechnet.

Mein Bislang Versuch war im Load Bereich der Form

VB.NET-Quellcode

Dim Date1 As Date = Today
For Each Row In DataGridView1.Rows.Cast(Of DataGridViewRow)
If Row.Index = DataGridView1.RowCount - 0 Then Exit For
Dim Date2 = Row.Cells(4).Value.ToString
Dim days As Long = DateDiff(CStr(days), Date1, Date2)
Row.Cells(6).Value = days.ToString

Leider Ohne Erfolg.
Könntet ihr mir helfen ?

CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed

Dksksm · 5. Juni 2022, 12:04

Was auch immer DateDiff sein soll, VB.Net isses nicht. Benutze Timespan.

Vulferin · 5. Juni 2022, 12:16

Könntest du mir bei der Codeanpassung helfen ?

Ich bin da totaler Anfänger.

Kasi · 5. Juni 2022, 12:21

Timespan ist möglich aber auch "Totaldays"

versuche es mal so

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dStartDate As Date = TextBox1.Text
Dim dEndDate As Date = TextBox2.Text
Dim numdays As Integer = (dEndDate - dStartDate).TotalDays
Me.TextBox3.Text = numdays
End Sub

petaod · 5. Juni 2022, 12:30

Kasi schrieb:

Dim dStartDate As Date = TextBox1.Text

Das ist genauso wenig typsicher wie

Vulferin schrieb:

Dim Date2 = Row.Cells(4).Value.ToString

Für beide gilt: Option Strict On!

VB.NET-Quellcode

Dim Date1 As Date = Today
Dim Date2 As Date
For Each Row In DataGridView1.Rows.Cast(Of DataGridViewRow)
If Row.Index = DataGridView1.RowCount - 0 Then Exit For
If Date.TryParse(Row.Cells(4).Value.ToString, Date2) Then
Dim days = Math.Floor((Date2 - Date1).TotalDays)
Row.Cells(6).Value = days.ToString
End If
Next

Bartosz · 5. Juni 2022, 12:31

1.) Meinst du wirklich WPF?
2.) Mit dem aktuellen Datum geht es so wie Kasi sagt, außer

VB.NET-Quellcode

Dim numdays As Integer = (Date.Now - dStartDate).TotalDays

und dann, um die Jahre zu bekommen, numdays / 365.25
Man sagt ja 4 Jahre und nicht 1460 Tage

Vulferin · 5. Juni 2022, 12:54

Vollzitat eines Vorposts an dieser Stelle entfernt ~VaporiZed

Hallo Generell würde der Code gehen, aber wie bekomme ich es hin das der mir automatische in mein Gridview Spalte 6 die deffernz rein schreibt ?

VaporiZed · 5. Juni 2022, 13:02

Ich wage zu bezweifeln, dass es um WPF geht und schon 3x nicht um MVVM. Daher verschiebe ich das Thema.

Vulferin · 5. Juni 2022, 13:14

@Petod

bei deinem Code bekomme ich einen Fehler.
FehlerSystem.NullReferenceException: "Object reference not set to an instance of an object."System.Windows.Forms.DataGridViewCell.Value.get hat Nothing zurückgegeben.

petaod · 5. Juni 2022, 13:49

Dann steht wohl in der Zelle nichts drin.
Da musst du dir überlegen, was du in solchen Fällen haben möchtest.
Irgend so was:

VB.NET-Quellcode

If Row.Cells(4).Value Is Nothing Then Continue For

Vulferin · 5. Juni 2022, 13:55

Was komisch ist,
wenn ich die zeile richtig verstehe
If Date.TryParse(Row.Cells(4).Value.ToString, Date2) Then

If Date,TryParse sagt mir nicht, daber Wor.Cells(4) also Aktive Zeile Celle 4
den Inhalt soll er als Date2 Varibale setzen oder ?

Wenn ich den Fehler habe, sehe ich das Datum was in der Celle steht und auch das Aktuelle Datum von Date1

Für mich liest er den Wert richtig aus.

petaod · 5. Juni 2022, 13:59

Vulferin schrieb:

den Inhalt soll er als Date2 Varibale setzen oder ?

Ja, aber nur bei Erfolg, wenn da ein konvertierbares Datum drin steht.
docs.microsoft.com/de-de/dotne…m-string-system-datetime@)

Vulferin · 5. Juni 2022, 14:09

Wenn der Debuger Unterbricht,
kann ich ja auf die Variablen gehen und da Zeigt er mir die richtigen Daten an.

Gerrit · 5. Juni 2022, 14:38

Moinsen,

bevor Du weitermachst: Setz in den Projekteinstellungen "OPTION EXPLICIT ON" und "OPTION STRICT ON". Danach korrigierst Du die dann auftretenden Fehler erstmal.

Eine saubere Berechnung der Tagesdifferenz in VB geht so:

VB.NET-Quellcode

Dim Start As Datetime = IrgendeinWert
Dim DiffTage As Int32 = Ctype(DateTime.Nuw.Subtract(Start).TotalDays,Int32)
'Könnte man auch so schreiben:
Dim DiffTage2 As Int32 = CInt(DateTime.Nuw.Subtract(Start).TotalDays)

Für das Auslesen aus den Zellen ist jetzt eigentlich die Frage, welchen Datentyp die Value-Eigenschaft hat (wenn Du alles richtig gemacht hast, steht da nämlich bereits ein Datum drin und keine Zeichenfolge!)

Wenn der Datentyp von Value DateTime ist, dann geht´s so:

VB.NET-Quellcode

Row.Cells(6).Value =CInt(DateTime.Nuw.Subtract(Row.Cells(4).Value).TotalDays)

Wenn da aber nur Zeichenketten stehen, mußt Du vorher konvertieren.

Übrigens: Wie der Wert aus Value für die Anzeige im Datagridview formatiert wird, legst Du über die Spalteneigenschaften fest, da mußt Du keine Zeichenfolgen reinschreiben.

Viele Grüße

Gerrit

Vulferin · 5. Juni 2022, 14:39

@petaod

Habs, habe deinen Hinweis verstandn
If Row.Cells(4).Value Is Nothing Then Continue For
war die Lösung

VB.NET-Quellcode

Dim Date1 As Date = Today
Dim Date2 As Date
For Each Row In DataGridView1.Rows.Cast(Of DataGridViewRow)
If Row.Index = DataGridView1.RowCount - 0 Then Exit For
If Row.Cells(3).Value Is Nothing Then Continue For
If Date.TryParse(Row.Cells(3).Value, Date2) Then
Dim days = Math.Floor((Date1 - Date2).TotalDays)
Row.Cells(5).Value = days.ToString
End If
Next

So klappt es bei mir

CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed

Bartosz · 5. Juni 2022, 16:46

Hallo,
was die anderen Leute hier mit „Option Strict“ auf On schalten meinen:
Du klickst auf Projekt → Eigenschaften → Kompilieren. Hier schaltest du Option Strict auf On und am besten (aber das ist nur meine Meinung) Option Infer auf Off.

Option Strict On bewirkt, dass du auf vorzunehmende Datentypumwandlungen aufmerksam gemacht wirst. Wie in jeder Programmiersprache kannst du nicht zu einem Integer einen String addieren. Logisch! Leider ist diese Option ist VB.NET-Projekten ausgeschaltet. Man muss diese Option wieder aktivieren.

Option Infer sorgt dafür, dass der Compiler die Datentypen selbst erkennt. Zum Beispiel: Dim Test = 3, dann muss Test ein Integer sein. Schalte diese Option gerne auf Off, damit du dich selbst zwingst, den Datentyp hinzuschreiben. Dim Test As Integer = 3. Das ist nur gut für dich.

Und wo wir schon dabei sind: Klick auf Verweise und entferne den VB6-Namespace aus deinem Projekt. Einfach die Checkbox unchecken. Somit werden dir beim Tippen keine alten VB6-Befehle vorgeschlagen, sondern nur noch moderne VB.NET-Befehle. Falls du bereits VB6-Code verwendet hattest, wirst du nun natürlich Fehlermeldungen bekommen. Ersetz die alten durch die neuen Befehle.

VB1963 · 5. Juni 2022, 17:11

@Vulferin
Wenn du ein Dataset verwendest, könntest du ähnlich wie folgt vorgehen:
Datumsberechnungen in der Datacolumn.Expression-Eigenschaft
Und schalte bitte Option Strict auf ON !!!

RodFromGermany · 5. Juni 2022, 18:05

@Vulferin Gugst Du hier:
Visual Studio – Empfohlene Einstellungen

Vulferin · 5. Juni 2022, 21:11

Danke euch für eure Hilfe.

Im Moment scheine ich VB besser vom Syntax zu verstehen wir C#
Wie gesagt mein erstes kleines Projekt, hatte vorher noch nie was mit Programmieren am Hut

Vulferin · 6. Juni 2022, 08:04

So habe das mal Umgestellt.
So viele Fehler waren gar nicht drin

Konnte Sie alle beheben.

Tage Berechnung bis heute

Tage Berechnung bis heute

VB.NET-Quellcode

VB.NET-Quellcode

Kasi schrieb:

Vulferin schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Vulferin schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

9 Benutzer haben hier geschrieben