hab mal versucht hier was kleines zu machen, ein bissl laut deinem Code
(ist ungetestet, und wie gesagt nur kleiner teil, musst jetzt noch bissl auf deine bedürfnisse anpassen)
und du hast was von einem Überlauffehler und falsche Eingabeformat geschrieben.
bei sowas immer die richtige/komplette Fehlermeldugn/Exception angeben,
ansonsten kann man so erstmal nixs mit dieser Aussage anfangen.
(ist ungetestet, und wie gesagt nur kleiner teil, musst jetzt noch bissl auf deine bedürfnisse anpassen)
Visual Basic:
Dim zeitleisteMaxBereich As Integer = (((DateTime.Today.Year * 10000) + 12) * 100) + 31 ' 100% für die Zeitleiste, erstmal das Jahr laut Heutetag zum 31.12
Dim bildBreite As Integer = pictureBox1.Width ' die Breite des Zeichnungsbereiches (unsere 100% zum zeichnen)
For Each Row As DataRow In dbdt.Rows
Dim Mietbegin As DateTime = CType(Row.Item("Mietbegin"), DateTime) ' Mietbegin als DateTime
Dim MietbeginNum As Integer = (((Mietbegin.Year * 10000) + Mietbegin.Month) * 100) + Mietbegin.Day ' Mietbegin als Zahl umgerechnet
Dim MietbeginProzent As Integer = CInt((MietbeginNum / CDec(zeitleisteMaxBereich))) ' der prozentuale Anteile des Mietbegins in der Zeitleiste
Dim Mietende As Date = CType(Row.Item("Mietende"), DateTime) ' Mietende als DateTime
Dim MietendeNum As Integer = (((Mietende.Year * 10000) + Mietende.Month) * 100) + Mietende.Day ' Mietende als Zahl umgerechnet
Dim MietendeProzent As Integer = CInt((MietendeNum / CDec(zeitleisteMaxBereich))) ' der prozentuale Anteile des Mietendes in der Zeitleiste
If Date.Compare(Mietende, Today) > 0 Then
Dim leftPos1 As Integer = MietbeginProzent * bildBreite ' die X-Positionen berechnen wir anhand der Breite des zeichnugnsbereiches und dem prozentualem Anteil
Dim leftPos2 As Integer = MietendeProzent * bildBreite
g.DrawLine(New Pen(System.Drawing.Color.DarkRed, 10), leftPos1, horizontal, leftPos2, horizontal)
End If
MietzeitIndex += 1 'Zähler für die reihen
TotalSales += Val(Row.Item("TOTAL")) 'Umsatz Berchnung
Next
Label15.Text = TotalSales 'Umsatz Anzeige
und du hast was von einem Überlauffehler und falsche Eingabeformat geschrieben.
bei sowas immer die richtige/komplette Fehlermeldugn/Exception angeben,
ansonsten kann man so erstmal nixs mit dieser Aussage anfangen.
Zuletzt bearbeitet: