| |
VB.NET - Ein- und Umsteigerautomatisch buchen | | | Autor: ERBRU | Datum: 22.10.21 13:39 |
| ich versuche mich gerade an einer "Schleife" komm da nicht klar, verstehe nicht warum es nicht funktioniert.
Dim FirstDate As Date
Dim IntervalType As String
Dim Number As Integer
'##########
FirstDate = CDate(BuchungsdatumTextBox.Text).ToShortDateString
Number = nud_Buchungswiederholung.Value 'Buchung monatlich
' wiederholen
IntervalType = "m"
For i As Integer = 0 To Number
Dim D As date FirstDate.Add(IntervalType, i, FirstDate)
'und dann der Datatable hinzufügen
Next also ich möchte mir zBsp. die monatliche Miete für mehrere Monate (laufendes Jahr) eintragen
ähnliches habe ich schon, aber für monatlich passt das so nicht
Dim DateFrom As Date = New Date(2019, 1, 1)
Dim DateTo As Date = New Date(2019, 12, 31)
Dim n As Integer = CInt((DateTo.Date - DateFrom.Date).TotalDays)
For i As Integer = 0 To n
Dim D As Date = DateFrom.Date.AddDays(i)
Dim DR As DataRow = mDT.NewRow
'DR.Item(0) = Nothing
DR.Item(1) = D.ToString("ddd")
DR.Item(2) = D
If D.DayOfWeek = DayOfWeek.Saturday Or D.DayOfWeek = _
DayOfWeek.Sunday _
Then
DR.Item(3) = D
DR.Item(4) = D
DR.Item(5) = New TimeSpan(0, 0, 0).TotalMinutes
DR.Item(6) = New TimeSpan(0, 0, 0).TotalMinutes
DR.Item(7) = "WE"
Else
DR.Item(3) = D.Add(New TimeSpan(7, 30, 0))
DR.Item(4) = D.Add(New TimeSpan(16, 0, 0))
DR.Item(5) = New TimeSpan(0, 45, 0).TotalMinutes
DR.Item(6) = New TimeSpan(6, 48, 0).TotalMinutes
DR.Item(7) = "Anwesend "
End If
mDT.Rows.Add(DR)
Next | |
Re: automatisch buchen | | | Autor: ERBRU | Datum: 22.10.21 19:05 |
| Guten Abend,
habe mal was probiert "Ist aber Verbesserungs bedürftig" was das prüfen des Datums betrifft und er soll ja nur aktuelles Jahr eintragen, dann habe ich noch keine Lösung für den Betrag negativer Betrag bei der Buchungsart Ausgabe
wer hat noch Ideen ? und hilft mir da einen funktionierenden Code zu erstellen ?
Dim FirstDate As Date
Dim nextdate As Date
Dim IntervalType As String
Dim Number As Integer
Dim Msg As String = Nothing
Dim dt As DataTable = HB.Details
'##########
FirstDate = CDate(BuchungsdatumTextBox.Text).ToString
Number = nud_Buchungswiederholung.Value 'Buchung
' monatlich wiederholen
IntervalType = "m"
For i As Integer = 1 To Number
nextdate = DateAdd(IntervalType, i, FirstDate)
' Neue DRV
Dim DRV As HB.DetailsRow = Nothing
If dt.Select("Buchungsdatum = '" & nextdate & "'").Count = 0 Then
'Datarow
DRV = HB.Details.NewDetailsRow
DRV("Buchungsdatum") = nextdate.ToShortDateString
DRV("Buchungsart") = BuchungsartTextBox1.Text.ToString
DRV("Kategorie") = KategorieTextBox1.Text.ToString
DRV("Kommentar") = KommentarTextBox.Text.ToString
DRV("Betrag") = CDbl(BetragTextBox.Text).ToString
End If
HB.Details.AddDetailsRow(DRV)
Me.Validate()
BS_Details.EndEdit()
'speichern
saveDB()
Next | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevEingabe 3.0
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|