| |
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 |
|
|
sevAniGif (VB/VBA)
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere InfosTipp des Monats März 2024 Dieter OtterUTF-8 Konvertierung von Dateien und StringsVB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 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
|
|