Ideensammlung Urlaubsplaner

  • VB.NET
  • .NET (FX) 4.0

Es gibt 44 Antworten in diesem Thema. Der letzte Beitrag () ist von tragl.

    Ideensammlung Urlaubsplaner

    Hallo zusammen.

    Da ich nirgendwo wirklich fündig geworden bin, dachte ich ich starte mal einen Sammelthread für einen Urlaubsplaner.
    Ich hab' dazu ein kleines Projekt gebaut, mit 3 Forms die anzeigen, wie ich mir das in etwa vorstelle.

    Die 3 Forms sind "händisch" mit Daten gefüllt und sollen wirklich nur meine Idee aufzeigen:


    In unserem Unternehmen gibt es etliche Standorte und pro Standort nochmal etliche Mitarbeiter.
    Hier könnte man auch Umdenken in z.B. "Abteilung" -> "Mitarbeiter"

    Meine Ideen zur Ansicht:
    eine Ansicht Gruppierung - Mit Standort und Mitarbeitern angezeigt
    eine Ansicht Mitarbeiter - alle Mitarbeiter untereinander weg (könnte man vorher Filtern)
    eine Ansicht Standort - Summierung Urlaub/Krank für bestimmten Zeitraum auf Standortebene

    Der Datumsbereich soll gefiltert werden können, ansonsten beim Öffnen automatisch das aktuelle Datum + 1 Monat anzeigen.
    Ansonsten könnte man auch die z.B. 3 Varianten (siehe oben) in ein Dropdown packen, dann würde man nur eine Form mit ListView benötigen.

    Die Daten zu Mitarbeiter, Standort und Urlaub liegen in einem DataSet bestehend aus "Standort" "Mitarbeiter" "Urlaubsplan"


    Eingaben würde ich wie folgt vorsehen:
    Urlaub: 1 = ganzer Tag / 0,5 = halber Tag
    Krank: K = ganzer Tag / k = halber Tag | Alternativ auch 1 = ganzer Tag / 0,5 = halber Tag (lässt sich wohl einfacher summieren :D )

    Sichtbarkeit der Daten:
    Ich denke am sinnvollsten wäre hier wohl mit einer ListView zu arbeiten :?: Das DGV hat wohl begrenzte Anzahl an Spalten,
    vorstellbar wäre (Datum vertikal, Mitarbeiter horizontal) oder (Datum horizontal, Mitarbeiter vertikal)

    Alternativ auch ein TabControl mit den einzelnen Monaten als TabPages :?:

    Die Spalten (oder jenachdem Zeilen) mit Datum sollen dann anhand des Auswahlbereichs gefüllt werden und nur Daten an dem Datum anzeigen,
    an dem es auch Einträge im DataSet dazu gibt.

    Ich weiß nicht ob sowas überhaupt lösbar ist,
    würde mich aber freuen, wenn hier viele Ideen (zur Umsetzung und zum Design) dazu zustande kämen, ggf. hat auch jemand Lust
    und Zeit das Ganze mit zu entwickeln. ich hab' in vielen Foren gelesen, dass danach gesucht wird - aber eine richtige Lösung hab ich noch keine gefunden.

    Im angehangenen Projekt können u.a. auch Testdaten erfasst werden (es sind auch schon welche von mir angelegt). Beim Code bitte nicht meckern,
    ich bin noch recht frisch in der Programmierung und hab' das auf die Schnelle mal gemacht.
    Schaut einfach mal rein ;)

    Achso - hier noch 2 Bildchen, wie ich das derzeit über Excel gelöst hab:
    Dateien

    • ListViewTest.zip

      (801,09 kB, 169 mal heruntergeladen, zuletzt: )
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    tragl schrieb:

    Sichtbarkeit der Daten:
    Ich denke am sinnvollsten wäre hier wohl mit einer ListView zu arbeiten Das DGV hat wohl begrenzte Anzahl an Spalten,
    vorstellbar wäre (Datum vertikal, Mitarbeiter horizontal) oder (Datum horizontal, Mitarbeiter vertikal)
    Ich glaub nicht, dasss die Anzahl an ListView-Spalten unbegrenzt ist.
    Ich neige zu MA horizontal, weil die Anzahl der MA ist endlich, die der Tage unendlich - und das kann man horizontal schlecht darstellen.
    Üblicherweise stellt man ja horizontal maximal 31 Tage dar, was für die Übersicht in der Nähe von MonatsWechseln doof ist.
    Da würde ich Tage untereinander soviele anzeigen, wie Platz haben, mit einem beliebigen StartDatum.

    Datenmodellmässig ist ein Kalender eine schwierige Herausforderung.
    Streng genommen sind Pro Mitarbeiter nur die Übergänge von einem zum anderen Zustand abzuspeichern - alles andere wären redundante Daten, und gehören nicht abgespeichert.
    Weil ein MA kann sich zu einem Zeitpunkt nur in einem Zustand befinden: U, K, A. Wobei diese Zustände auch halbiert sein können - puh - allein das wird schon knifflig darzustellen.
    Aber interessant: Im Grunde müsste man die Zeitachse splitten: Also ein Monat hat nicht max 31 Tage, sondern hat max. 62 Halbtage!

    Jo, und so ein Datenmodell kannste garnet anzeigen in einer Kalender-Ansicht, sondern musst dir ein Kalender-Datenmodell basteln, und geeignete Abfragen an das Persistenz-Modell, die dessen Werte übersetzen in ein für deine Präsentation taugliches Datenmodell.
    Mit einer typisierten DataTable geht das nicht, weil da sind die Spalten fest vorgegeben - das kannste ja nicht neu generieren, wenn ein neuer MA eingestellt wird.

    Jaaa - solche Probleme kommen da auf dich zu...

    Vielleicht doch lieber die Monatsweise ansicht mit den Tagen konventionell horizontal - da könnte man eine typisierte Tabelle basteln mit 31 Tagen - die letzten werden dann eben ggfs ausgegraut.

    Sofern es möglich ist, den Text des Columnheaders mit dem Datumseintrag aus der Tabelle zu vergleichen sollte das eigentlich klappen.
    Mitarbeiter links nach unten, Datum oben nach rechts. Das Datum kann man sich via Button als Columns befüllen
    (natürlich fehlen da noch Schönheitsoperationen (z.B. wenn über Monatsende hinaus, dann weglassen) aber wäre so erstmal OK)

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. lvTest.View = View.Details
    3. lvTest.Scrollable = True
    4. lvTest.Items.Clear()
    5. lvTest.Columns.Clear()
    6. lvTest.Columns.Add("Mitarbeiter")
    7. lvTest.Columns.Add("Standort")
    8. Dim d As Date = dtpTest.Value
    9. For i As Integer = 1 To 31
    10. lvTest.Columns.Add(d.AddDays(i - 1).ToShortDateString, 70, HorizontalAlignment.Left)
    11. Next
    12. End Sub


    Bin grad dabei rauszufinden, wie ich Daten aus dem DataSet dareinfüllen kann - dann teste ich weiter.



    Edit: Befüllen von Mitarbeitern und Standort klappt schonmal,
    ich überlege Gerade die Eingabemethode auf Char zu ändern. Dann gibt's ein Feld in der Urlaub-Tabelle ("Art" oder so ähnlich).
    Also nur noch "MitarbeiterID" "Datum" "Art" -> Mitarbeitername und Standort wird aus dem FK_Mitarbeiter_Urlaubsplan geholt.
    Urlaub = U
    0,5 Urlaub = u
    Krank = K
    0,5 krank = k
    Sowas lässt sich sicher auch summieren :?:
    und für viiiieeel später könnte man je nach Eintrag (U,u,K,k) die Zellen noch farblich markieren :)



    Edit2: Weitere Designidee:
    Der EingabeDialog für Urlaub/Krank sollte noch erweitert werden, sodass ein Zeitraum angegeben werden kann -> Datum(s) daraus sollen dann automatisch als Eintrag erstellt werden.
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „tragl“ ()

    So, das Befüllen klappt nun schonmal - angewendet auf die Variante mit Tabs als Monat.
    Beim Öffnen wird alles (für alle Mitarbeiter) geladen, könnte man noch so einstellen, dass das erst beim Anwählen eines Tabs passiert.


    Damit kann man schon arbeiten.
    Was meiner Meinung nach noch fehlt:

    Ansicht:
    - Farbige Markierung (unterschiedlich z.B. blau bei U,u / rot bei K,k) nur auf eine Zelle die Urlaub oder Krank enthält
    - Summierung pro Monat für die Einträge (U,u,K,k)

    Daten:
    - Erfassung von Zeiträumen ermöglichen (2 DateTimePicker) -> ein Zeitraum soll aufgeteilt werden und pro Datum einen Datensatz erstellen
    - Gültigkeitsprüfung auf Char (U,u,K,k)
    - Checkbox für Urlaubsgenehmigung? Könnte über Zugriffsrechte gesteuert werden...

    Ansonsten ist der gesamte Code bestimmt noch optimierfähig, hab' ich nur auf die Schnelle mal zusammengebastelt:
    (das aktuelle Projekt hab' ich angehangen)

    VB.NET-Quellcode

    1. Imports ListViewTest.DataSet1
    2. Public Class frmTabbedMonatsweise
    3. Private Sub tsJahrÄndern_Click(sender As Object, e As EventArgs) Handles tsJahrÄndern.Click
    4. Forms.ShowDataDialog(Of dlgJahrÄndern)()
    5. End Sub
    7. Private Sub frmTabbedMonatsweise_Load(sender As Object, e As EventArgs) Handles Me.Load
    8. 'Voreinstellung, damit "JAHR" nicht Nothing oder "" ist
    9. If My.Settings.TabbedJahr = "" Then My.Settings.TabbedJahr = Date.Now.ToString("yyyy")
    10. 'ListViewHeader
    11. ListViewHeader("1", lvJanuar)
    12. ListViewHeader("2", lvFebruar)
    13. ListViewHeader("3", lvMärz)
    14. ListViewHeader("4", lvApril)
    15. ListViewHeader("5", lvMai)
    16. ListViewHeader("6", lvJuni)
    17. ListViewHeader("7", lvJuli)
    18. ListViewHeader("8", lvAugust)
    19. ListViewHeader("9", lvSeptember)
    20. ListViewHeader("10", lvOktober)
    21. ListViewHeader("11", lvNovember)
    22. ListViewHeader("12", lvDezember)
    23. 'Daten
    24. ListViewData(lvJanuar)
    25. ListViewData(lvFebruar)
    26. ListViewData(lvMärz)
    27. ListViewData(lvApril)
    28. ListViewData(lvMai)
    29. ListViewData(lvJuni)
    30. ListViewData(lvJuli)
    31. ListViewData(lvAugust)
    32. ListViewData(lvSeptember)
    33. ListViewData(lvOktober)
    34. ListViewData(lvNovember)
    35. ListViewData(lvDezember)
    36. End Sub
    37. Private Sub ListViewHeader(Monat As String, lvMonat As Windows.Forms.ListView)
    38. Dim sDate As Date = Date.Parse($"01.{Monat}.{My.Settings.TabbedJahr}")
    39. Dim eDate As Date = Date.Parse($"{MonatsEnde(Monat).ToShortDateString}")
    40. With lvMonat
    41. .View = View.Details
    42. .GridLines = True
    43. .Scrollable = True
    44. .Items.Clear()
    45. .Columns.Clear()
    46. .Columns.Add("Mitarbeiter", 100)
    47. .Columns.Add("Standort", 100)
    48. End With
    49. Dim i As Date = sDate
    50. Do While i < eDate.AddDays(1)
    51. lvMonat.Columns.Add(i.ToShortDateString, 35)
    52. i = i.AddDays(1)
    53. Loop
    54. End Sub
    56. Private Sub ListViewData(lvMonat As Windows.Forms.ListView)
    57. For Each rw In Dts.Mitarbeiter
    58. Dim lvItem As ListViewItem = Nothing
    59. If Not rw.Item(Dts.Mitarbeiter.expFullnameColumn).ToString = "<keine Angabe>, <keine Angabe>" Then
    60. Dim maID = rw.Item(Dts.Mitarbeiter.IDColumn).ToString
    61. lvItem = lvMonat.Items.Add(rw.Item(Dts.Mitarbeiter.expFullnameColumn).ToString)
    62. lvItem.SubItems.Add(rw.Item(Dts.Mitarbeiter.StandortColumn).ToString)
    63. For i As Integer = 2 To lvMonat.Columns.Count - 1
    64. Dim filteredRows = Dts.Urlaubsplan.Select($"MitarbeiterID = {CInt(maID)}").Cast(Of UrlaubsplanRow)
    65. Dim colDate = Date.Parse(lvMonat.Columns(i).Text.ToString).ToShortDateString
    66. Dim dateExists As String = ""
    67. For Each rw2 In filteredRows
    68. Dim dataDate = rw2.Datum.ToShortDateString
    69. If dataDate = colDate Then
    70. dateExists = rw2.Art.ToString
    71. End If
    72. Next
    73. lvItem.SubItems.Add(dateExists)
    74. Next
    75. End If
    76. Next
    78. End Sub
    80. Private Function MonatsEnde(Monat As String) As Date
    81. Dim d As Date = Date.Parse($"01.{Monat}.{My.Settings.TabbedJahr}")
    82. Return d.AddMonths(1).AddDays(-1)
    83. End Function
    84. End Class
    Dateien

    • ListViewTest.zip

      (1,02 MB, 140 mal heruntergeladen, zuletzt: )
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    tragl schrieb:

    Der EingabeDialog für Urlaub/Krank sollte noch erweitert werden, sodass ein Zeitraum angegeben werden kann -> Datum(s) daraus sollen dann automatisch als Eintrag erstellt werden.
    Kannst auch nochmal meine Stechuhr angucken.
    Da kann man U/K/H direkt ins DGV eintragen - das geht auch bei mehreren so flott, dass ich da kein Bedarf sehe, was spezielles mit Multi-Selection zu coden (was duchaus auch möglich wäre).
    Und coloriert ists auch.

    ErfinderDesRades schrieb:

    Kannst auch nochmal meine Stechuhr angucken.
    Da kann man U/K/H direkt ins DGV eintragen - das geht auch bei mehreren so flott, dass ich da kein Bedarf sehe, was spezielles mit Multi-Selection zu coden (was duchaus auch möglich wäre).
    Und coloriert ists auch.

    Hey, das mag sein - aber dann müsstest du jedes Datum für jedes Jahr in der Table für jeden Mitarbeiter bereitstellen, was meiner Meinung nach unnötige Daten wären.
    Daher wäre mir die Methode mit "von Datum bis Datum" und daraus für jedes Datum einen Eintrag erstellen lieber (ginge ja dann wenn von und bis das gleiche Datum wär).
    Dann hast du nur die Datum's in der Tabelle, wo auch Urlaub oder Krank vor kommt - was am Ende wiederum performanter sein sollte.

    Da das ganze Teil für mein Nutzen auf alle Standorte reagieren soll kommen hier mal schnell über 100 Mitarbeiter zusammen.
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    So, ich bin ein ganzen Stück weiter gekommen
    dank der Hilfe von @ErfinderDesRades ;)

    - Urlaube/Krank können nun über einen Zeitraum angelegt werden (über 2 DateTimePicker)
    - In der Eingabe kann über eine Checkbox die Wochenendüberprüfung ein und ausgeschaltet werden
    - Filterfunktionen nach Mitarbeiter und/oder Standort
    - Es gibt ein TabControl mit TabPages pro Monat, darin werden die Urlaube/Krank dargestellt.

    weiter geplant:

    - Feiertage: Feiertagstabelle in Beziehung zu Bundesland, Bundesland in Beziehung zu Mitarbeiter setzen
    - Chars bei Urlaubsanlage erweitern: ? für vorgeplante Urlaube / ggf. noch einige Kürzel für Dienstpläne dann kann der Urlaubsplaner auch als Dienstplaner genutzt werden
    -- Die Chars könnten über eine Settingsform eingestellt werden
    - Anwesende Mitarbeiter anzeigen lassen
    - verschiebung der Checkbox Wochenende/Feiertag in die Settings-Form
    - verbesserte Handhabung bei der Anlage von Urlauben/Krank -> bessere Textboxen(DateTimePicker) um bequemeres Eingeben zu ermöglichen

    Urlaubsdaten:
    - Bei Anlage prüfung auf Feiertag -> über Checkbox in Einstellungen steuerbar
    - Checkbox für Urlaubsgenehmigung durch Vorgesetzen (über Rechtesteuerung) / alternativ Statusfeld zur Auswahl "genehmigt/nicht genehmigt"
    -- hierzu müsste mehrfachauswahl und Editierung eingebaut werden
    - Übersicht über DGV für verbrauchte Urlaubstage / selektierte Zeilen / gesamtzeilen

    Urlaubsplan (ListView):
    - Jahrauswahl oben drüber setzen -> lv's sollen sich nach Auswahl aktualisieren
    - Sortierung / Filterung (Mitarbeiter/Standort)
    - Felder mit Inhalt (Chars) farblich markieren (z.B. blau für Urlaub, rot für krank)
    - Komplette Spalten farblich markieren wenn Samstag, Sonntag
    - Feiertag pro Standort markieren (sind ja ggf. unterschiedlich)
    - Gruppierung nach Standort einbauen (ggf. klappbar machen) -> Gruppierung nach Auswahl erst sichtbar
    - Summierung der Chars pro Mitarbeiter / Standort
    Dateien

    • Urlaubsplaner.zip

      (1,29 MB, 140 mal heruntergeladen, zuletzt: )
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    @ErfinderDesRades:
    Ich habe mich mal an deinem Code aus dem Stechuhr-Projekt bzgl. der Feiertage bedient und den ein wenig angepasst.
    (var's ins Deutsche umgeändert und fehlende Feiertage ergänzt) -> das Ganze soll später mal mit Bundesländern zusammen
    arbeiten :)

    VB.NET-Quellcode

    1. Imports System.Runtime.CompilerServices
    2. Public Module Feiertage
    4. Public Enum Bundesland
    5. 'Quelle Statistisches Bundesamt: https://www.destatis.de/DE/Themen/Laender-Regionen/Regionales/Gemeindeverzeichnis/Glossar/bundeslaender.html
    6. blSH = 1 '01 Schleswig-Holstein (SH)
    7. blHH = 2 '02 Hamburg (HH)
    8. blNI = 3 '03 Niedersachsen (NI)
    9. blHB = 4 '04 Bremen (HB)
    10. blNW = 5 '05 Nordrhein-Westfalen (NW)
    11. blHE = 6 '06 Hessen (HE)
    12. blRP = 7 '07 Rheinland-Pfalz (RP)
    13. blBW = 8 '08 Baden-Württemberg (BW)
    14. blBY = 9 '09 Bayern (BY)
    15. blSL = 10 '10 Saarland (SL)
    16. blBE = 11 '11 Berlin (BE)
    17. blBB = 12 '12 Brandenburg (BB)
    18. blMV = 13 '13 Mecklenburg-Vorpommern (MV)
    19. blSN = 14 '14 Sachsen (SN)
    20. blST = 15 '15 Sachsen-Anhalt (ST)
    21. blTH = 16 '16 Thüringen (TH)
    22. End Enum
    24. Public Enum Feiertag
    25. 'Quelle: https://www.deutschland-feiert.de/feiertage/ und https://www.schulferien.org/deutschland/feiertage/2021/
    26. ftKeinFeiertag = 0
    27. ftNeujahr = 1 + (1 << 16) 'FEST (01.01.) -> alle BL
    28. ftHeiligeDreiKönige = 6 + (1 << 16) 'FEST (06.01.) -> BW,BY,ST
    29. 'ftInternationalerFrauentag ' -> BE
    30. ftKarfreitag = 2 'BEWEGLICH -> alle BL
    31. ftOstersonntag 'BEWEGLICH -> BB
    32. ftOstermontag 'BEWEGLICH -> alle BL
    33. ftTagDerArbeit = 1 + (5 << 16) 'FEST (01.05.) -> alle BL
    34. ftChristiHimmelfahrt 'BEWEGLICH -> alle BL
    35. ftPfingstSonntag 'BEWEGLICH -> BB
    36. ftPfingstMontag 'BEWEGLICH -> alle BL
    37. ftFronleichnam 'BEWEGLICH -> BW,BY,HE,NW,RP,SL
    38. frMariäHimmelfahrt = 15 + (8 << 16) 'FEST (15.08.) -> BY,SL
    39. 'ftWeltkindertag ' -> TH
    40. ftTagDerDeutschenEinheit = 3 + (10 << 16) 'FEST (03.10.) -> alle BL
    41. ftReformationstag = 31 + (10 << 16) 'FEST (31.10.) -> BB,HB,HH,MV,NI,SN,ST,SH,TH
    42. ftAllerheiligen = 1 + (11 << 16) 'FEST (01.11.) -> BW,BY,NW,RP,SL
    43. ftBussUndBettag 'BEWEGLICH -> SN
    44. ftErsterWeihnachtsfeiertag = 25 + (12 << 16) 'FEST (25.12.) -> alle BL
    45. ftZweiterWeihnachtsfeiertag = 26 + (12 << 16) 'FEST (26.12.) -> alle BL
    46. End Enum
    48. Private _Feiertag As New HashSet(Of Integer)(DirectCast([Enum].GetValues(GetType(Feiertag)), Integer()))
    49. <Extension()>
    50. Public Function GetFeiertag(ByVal dtDate As Date) As Feiertag
    51. dtDate = dtDate.Date
    52. Dim n = dtDate.Day + (dtDate.Month << 16)
    53. If _Feiertag.Contains(n) Then Return DirectCast(n, Feiertag)
    54. Dim Ostersonntag = GetOstersonntag(dtDate.Year)
    55. Dim BussUndBettag = GetBussUndBettag(dtDate.Year)
    56. If dtDate = Ostersonntag.AddDays(-2) Then Return Feiertag.ftKarfreitag
    57. If dtDate = Ostersonntag.AddDays(1) Then Return Feiertag.ftOstermontag
    58. If dtDate = Ostersonntag Then Return Feiertag.ftOstersonntag
    59. If dtDate = Ostersonntag.AddDays(39) Then Return Feiertag.ftChristiHimmelfahrt
    60. If dtDate = Ostersonntag.AddDays(49) Then Return Feiertag.ftPfingstSonntag
    61. If dtDate = Ostersonntag.AddDays(50) Then Return Feiertag.ftPfingstMontag
    62. If dtDate = Ostersonntag.AddDays(60) Then Return Feiertag.ftFronleichnam
    63. If dtDate = BussUndBettag Then Return Feiertag.ftBussUndBettag
    64. Return Feiertag.ftKeinFeiertag
    65. End Function
    67. Private Function GetOstersonntag(ByVal year As Integer) As Date
    68. Dim a As Integer = year Mod 19
    69. Dim b As Integer = year \ 100
    70. Dim c As Integer = (8 * b + 13) \ 25 - 2
    71. Dim d As Integer = b - (year \ 400) - 2
    72. Dim e As Integer = (19 * (year Mod 19) + ((15 - c + d) Mod 30)) Mod 30
    73. If e = 28 Then
    74. If a > 10 Then
    75. e = 27
    76. End If
    77. ElseIf e = 29 Then
    78. e = 28
    79. End If
    80. Dim f As Integer = (d + 6 * e + 2 * (year Mod 4) + 4 * (year Mod 7) + 6) Mod 7
    81. Return New DateTime(year, 3, 22).AddDays(e + f)
    82. End Function
    84. Private Function GetBussUndBettag(ByVal year As Integer) As Date
    85. Dim datum = New DateTime(year, 12, 25)
    86. Dim day As Integer = CInt(datum.DayOfWeek)
    87. day = If((day = 0), -11, -day - 4)
    88. datum = datum.AddDays(-4 * 7).AddDays(day)
    89. Return datum
    90. End Function
    91. End Module


    Nun lass' ich im Urlaubsplaner in einer Schleife Testweise den Urlaub vom 01.01.2020 bis 31.12.2020 eintragen,
    dabei fange ich erstmal zum Testen die Feiertage in einer Textbox ab

    VB.NET-Quellcode

    1. Dim loopDatum = startDatum
    2. Do While loopDatum < endDatum.AddDays(1)
    3. Dim ft = GetFeiertag(loopDatum)
    4. If ft <> Feiertag.ftKeinFeiertag Then
    5. msgInformation($"{ft} | {loopDatum.ToShortDateString}")
    6. End If


    Soweit so gut. Nu tritt folgendes Problem auf:
    Bis einschl. 01. Mai läuft das sauber durch, dann meldet er

    Christi Himmelfahrt 02.05. (ist eigentlich am 21.05.)
    Pfingstsonntag 03.05. (ist eigentlich am 31.05.)
    Pfingstmontag 04.05. (ist eigentlich am 01.06.)
    Fronleichnam 05.05. (ist eigentlich am 11.06.)

    Danach richtig:

    Christi Himmelfahrt 21.05.
    Pfingstsonntag 31.05.
    Pfingstmontag 01.06.
    Fronleichnam 11.06.

    Danach falsch:
    BussUndBettag 02.11. / 18.11.

    Direkt danach richtig:
    BussUndBettag 18.11.

    es sieht so aus als würde es nach den festen Feiertagen (Tag der deutschen Einheit (01.05.) und Allerheiligen (01.11.) erstmal murks geben, bis
    er sich wieder fängt :?: :?: :?: . Hast du eine Idee, woran das liegen kann?
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Mach mal die beweglichen Feiertage lieber über Spencers Osterformel. Die ist ohne Ausnahmen.
    Und: Augsburg hat nen Sonderfeiertag - falls relevant

    tragl schrieb:

    var's ins Deutsche umgeändert
    - die sind nicht ohne Grund englisch. Deutsch hat selten was im Code verloren, weil VB auf Englisch ist. Das gäbe dann ein leseunfreundliches Sprachmischmasch.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Danke für den BugReport.
    (Übrigens: Prefixe an Enums sind unnötig und hässlich. Vergleiche Bundesland.SH mit Bundesland.blSH)

    Ich hab folgende Ausgabe gemacht:

    VB.NET-Quellcode

    1. [...]
    2. Case sender Is btTest
    3. Dim startDatum = New Date(2020, 1, 1), endDatum = startDatum.AddYears(1)
    4. Dim loopDatum = startDatum
    5. Do While loopDatum < endDatum.AddDays(1)
    6. Dim ft = loopDatum.GetHoliday
    7. If ft <> Holidays.None Then
    8. Dbg($"{ft} | {loopDatum.ToShortDateString}")
    9. End If
    10. loopDatum += TimeSpan.FromDays(1)
    11. Loop

    Ergebnis:

    Quellcode

    1. 1 Neujahr | 01.01.2020
    2. 2 Karfreitag | 10.04.2020
    3. 3 Ostermontag | 13.04.2020
    4. 4 Maifeiertag | 01.05.2020
    5. 5 ChristiHimmelfahrt | 21.05.2020
    6. 6 Pfingstmontag | 01.06.2020
    7. 7 Fronleichnam | 11.06.2020
    8. 8 TagDerDeutschenEinheit | 03.10.2020
    9. 9 Heiligabend | 24.12.2020
    10. 0 ErsterWeihnachtsfeiertag | 25.12.2020
    11. 1 ZweiterWeihnachtsfeiertag | 26.12.2020
    12. 2 Silvester | 31.12.2020
    13. 3 Neujahr | 01.01.2021
    Sieht mir richtig aus - BussnBetTag hamwa nich.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

    VaporiZed schrieb:

    - die sind nicht ohne Grund englisch. Deutsch hat selten was im Code verloren, weil VB auf Englisch ist. Das gäbe dann ein leseunfreundliches Sprachmischmasch.

    macht auch wieder Sinn - fällt schwer da den korrekten Übergang zu finden oder generell alles was Code betrifft in Englisch?
    Den Augsburger Feiertag würde ich außenvor lassen. Das würde für die Programmlogik einiges an Mehraufwand bedeuten. So wie es jetzt ist, kann man den Mitarbeitern oder den Standorten Bundesländer zuteilen
    und die dann für das Auslesen der Feiertage benutzen. (so zumindest der Plan :) )
    Ansonsten laufen die beweglichen Feiertage über die Gauss-Formel: (GetOstersonntag)
    Ich hatte das mit dem Eintrag in MSDN abgeglichen, entspricht exakt dem was da steht - nur eben für VB.NET umgewandelt
    ohne die hässlichen Microsoft.VisualBasic-Dinger :)

    VB.NET-Quellcode

    1. Private _Feiertag As New HashSet(Of Integer)(DirectCast([Enum].GetValues(GetType(Feiertag)), Integer()))
    2. <Extension()>
    3. Public Function GetFeiertag(ByVal dtDate As Date) As Feiertag
    4. dtDate = dtDate.Date
    5. Dim n = dtDate.Day + (dtDate.Month << 16)
    6. If _Feiertag.Contains(n) Then Return DirectCast(n, Feiertag)
    7. Dim Ostersonntag = GetOstersonntag(dtDate.Year)
    8. Dim BussUndBettag = GetBussUndBettag(dtDate.Year)
    9. If dtDate = Ostersonntag.AddDays(-2) Then Return Feiertag.ftKarfreitag
    10. If dtDate = Ostersonntag.AddDays(1) Then Return Feiertag.ftOstermontag
    11. If dtDate = Ostersonntag Then Return Feiertag.ftOstersonntag
    12. If dtDate = Ostersonntag.AddDays(39) Then Return Feiertag.ftChristiHimmelfahrt
    13. If dtDate = Ostersonntag.AddDays(49) Then Return Feiertag.ftPfingstSonntag
    14. If dtDate = Ostersonntag.AddDays(50) Then Return Feiertag.ftPfingstMontag
    15. If dtDate = Ostersonntag.AddDays(60) Then Return Feiertag.ftFronleichnam
    16. If dtDate = BussUndBettag Then Return Feiertag.ftBussUndBettag
    17. Return Feiertag.ftKeinFeiertag
    18. End Function
    20. Private Function GetOstersonntag(ByVal year As Integer) As Date
    21. Dim a As Integer = year Mod 19
    22. Dim b As Integer = year \ 100
    23. Dim c As Integer = (8 * b + 13) \ 25 - 2
    24. Dim d As Integer = b - (year \ 400) - 2
    25. Dim e As Integer = (19 * (year Mod 19) + ((15 - c + d) Mod 30)) Mod 30
    26. If e = 28 Then
    27. If a > 10 Then
    28. e = 27
    29. End If
    30. ElseIf e = 29 Then
    31. e = 28
    32. End If
    33. Dim f As Integer = (d + 6 * e + 2 * (year Mod 4) + 4 * (year Mod 7) + 6) Mod 7
    34. Return New DateTime(year, 3, 22).AddDays(e + f)
    35. End Function


    ErfinderDesRades schrieb:

    Danke für den BugReport.
    (Übrigens: Prefixe an Enums sind unnötig und hässlich. Vergleiche <code class="inlineCode">Bundesland.SH</code> mit <code class="inlineCode">Bundesland.blSH</code>)

    Stimmt, macht Sinn :thumbup:

    Schaust du nach dem Bug? Oder kann das schon mit der Formel (Gauss zu Spencer) zusammenhängen?
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Hab schon geschaut - ich glaub der Bug ist deiner.

    Ansonsten mitte Sprachen sehe ich locker. Das wichtigste ist, dass die Leser es verstehen - und zuallererst man selbst.
    Klar, generell Englisch bevorzugen.
    Aber viele Dinge sind schon inne Muttersprache schwierig genug begrifflich exakt zu fassen - da mussich mich nicht auch noch mit meinen Englisch-Unkenntnissen lächerlich machen.

    Also Strictly Denglisch!
    Dassis die Sprache der Zukunft!

    ErfinderDesRades schrieb:

    Hab schon geschaut - ich glaub der Bug ist deiner.

    Hmh seltsam - dabei hab' ich nicht wirklich was verändert...
    Ich schau' mir das morgen mal in Ruhe an. Lässt sich vermutlich schnell nachvollziehen, denn das veranstaltet das Programm auch wenn ich beim 01.05. anfange :)
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    ErfinderDesRades schrieb:

    Hab schon geschaut - ich glaub der Bug ist deiner.

    so, ich hab mir das grad mal mit Haltepunkt angeschaut. Er baut definitiv Mist (irgendwo)
    Datumsbereich: 01.05.2020 - 31.08.2020


    Der 01.05.2020 wird richtig erkannt:


    Der 02.05. verweist auf Christi Himmelfahrt, obwohl hinter ChristiHimmelfahrt in Pulbic Enum Feiertag nix steht
    er läuft den DirectCast durch und Returnt Feiertag.ChristiHimmelfahrt als 02.05.2020


    Hast du eine Idee? Ich nämlich nicht... ;(
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    tragl schrieb:

    obwohl hinter ChristiHimmelfahrt in Pulbic Enum Feiertag nix steht
    Das ist der Bug!
    Wenn hinter einem enum nix steht, wird einfach hochgezählt.
    Bei mir siehts so aus:

    VB.NET-Quellcode

    1. Public Enum Holidays
    2. None = 0
    3. Neujahr = 1 + (1 << 16)
    4. Maifeiertag = 1 + (5 << 16)
    5. TagDerDeutschenEinheit = 3 + (10 << 16)
    6. Heiligabend = 24 + (12 << 16)
    7. ErsterWeihnachtsfeiertag = 25 + (12 << 16)
    8. ZweiterWeihnachtsfeiertag = 26 + (12 << 16)
    9. Silvester = 31 + (12 << 16)
    10. Karfreitag = 2
    11. Ostermontag
    12. ChristiHimmelfahrt
    13. Pfingstmontag
    14. Fronleichnam
    15. End Enum
    Dadurch erhält ChristiHimmelfahrt den Wert 4 - und das wird im HashSet nie gefunden, wenn darin realexistierende Datumse gesucht werden.
    Also die beweglichen Feiertage haben sehr niedrige Werte, während die fixen Feiertage den Monat als monat << 16 eincodiert haben, und dadurch immer > 2^16 liegen.
    Ja - ich wollte dich nur mal mit einem Beispiel für schlecht wartbaren Code versorgen :rolleyes: .
    (Es gibt Leute, die hassen es, wenn Enum-Werte nicht explizit zugewiesen sind - wirklich!)

    ErfinderDesRades schrieb:

    Das ist der Bug!
    Wenn hinter einem enum nix steht, wird einfach hochgezählt.

    Da muss man erstmal drauf kommen. Ich dachte halt "komm, räumst das sauber und ordentlich auf und reihst die Feiertage mal in die richtige Reihenfolge... "
    war auch wieder falsch :D
    jetzt läuft das auch durch:

    VB.NET-Quellcode

    1. Public Module Feiertage
    3. Public Enum Bundesland
    4. 'Quelle Statistisches Bundesamt: https://www.destatis.de/DE/Themen/Laender-Regionen/Regionales/Gemeindeverzeichnis/Glossar/bundeslaender.html
    5. SH = 1 '01 Schleswig-Holstein (SH)
    6. HH = 2 '02 Hamburg (HH)
    7. NI = 3 '03 Niedersachsen (NI)
    8. HB = 4 '04 Bremen (HB)
    9. NW = 5 '05 Nordrhein-Westfalen (NW)
    10. HE = 6 '06 Hessen (HE)
    11. RP = 7 '07 Rheinland-Pfalz (RP)
    12. BW = 8 '08 Baden-Württemberg (BW)
    13. BY = 9 '09 Bayern (BY)
    14. SL = 10 '10 Saarland (SL)
    15. BE = 11 '11 Berlin (BE)
    16. BB = 12 '12 Brandenburg (BB)
    17. MV = 13 '13 Mecklenburg-Vorpommern (MV)
    18. SN = 14 '14 Sachsen (SN)
    19. ST = 15 '15 Sachsen-Anhalt (ST)
    20. TH = 16 '16 Thüringen (TH)
    21. End Enum
    23. Public Enum Feiertag
    24. 'Quelle: https://www.deutschland-feiert.de/feiertage/ und https://www.schulferien.org/deutschland/feiertage/2021/
    25. KeinFeiertag = 0
    26. Neujahr = 1 + (1 << 16) 'FEST (01.01.) -> alle BL
    27. HeiligeDreiKönige = 6 + (1 << 16) 'FEST (06.01.) -> BW,BY,ST
    28. 'InternationalerFrauentag ' -> BE
    29. TagDerArbeit = 1 + (5 << 16) 'FEST (01.05.) -> alle BL
    30. MariäHimmelfahrt = 15 + (8 << 16) 'FEST (15.08.) -> BY,SL
    31. 'Weltkindertag ' -> TH
    32. TagDerDeutschenEinheit = 3 + (10 << 16) 'FEST (03.10.) -> alle BL
    33. Reformationstag = 31 + (10 << 16) 'FEST (31.10.) -> BB,HB,HH,MV,NI,SN,ST,SH,TH
    34. Allerheiligen = 1 + (11 << 16) 'FEST (01.11.) -> BW,BY,NW,RP,SL
    35. ErsterWeihnachtsfeiertag = 25 + (12 << 16) 'FEST (25.12.) -> alle BL
    36. ZweiterWeihnachtsfeiertag = 26 + (12 << 16) 'FEST (26.12.) -> alle BL
    37. 'Bewegliche unter die festen wegen der Hochzählung
    38. Karfreitag = 2 'BEWEGLICH -> alle BL
    39. Ostersonntag 'BEWEGLICH -> BB
    40. Ostermontag 'BEWEGLICH -> alle BL
    41. ChristiHimmelfahrt 'BEWEGLICH -> alle BL
    42. PfingstSonntag 'BEWEGLICH -> BB
    43. PfingstMontag 'BEWEGLICH -> alle BL
    44. Fronleichnam 'BEWEGLICH -> BW,BY,HE,NW,RP,SL
    45. BussUndBettag 'BEWEGLICH -> SN
    46. End Enum
    48. Private _Feiertag As New HashSet(Of Integer)(DirectCast([Enum].GetValues(GetType(Feiertag)), Integer()))
    49. <Extension()>
    50. Public Function GetFeiertag(ByVal dtDate As Date) As Feiertag
    51. dtDate = dtDate.Date
    52. Dim n = dtDate.Day + (dtDate.Month << 16)
    53. If _Feiertag.Contains(n) Then Return DirectCast(n, Feiertag)
    54. Dim Ostersonntag = GetOstersonntag(dtDate.Year)
    55. Dim BussUndBettag = GetBussUndBettag(dtDate.Year)
    56. If dtDate = Ostersonntag.AddDays(-2) Then Return Feiertag.Karfreitag
    57. If dtDate = Ostersonntag.AddDays(1) Then Return Feiertag.Ostermontag
    58. If dtDate = Ostersonntag Then Return Feiertag.Ostersonntag
    59. If dtDate = Ostersonntag.AddDays(39) Then Return Feiertag.ChristiHimmelfahrt
    60. If dtDate = Ostersonntag.AddDays(49) Then Return Feiertag.PfingstSonntag
    61. If dtDate = Ostersonntag.AddDays(50) Then Return Feiertag.PfingstMontag
    62. If dtDate = Ostersonntag.AddDays(60) Then Return Feiertag.Fronleichnam
    63. If dtDate = BussUndBettag Then Return Feiertag.BussUndBettag
    64. Return Feiertag.KeinFeiertag
    65. End Function
    67. Private Function GetOstersonntag(ByVal year As Integer) As Date
    68. Dim a As Integer = year Mod 19
    69. Dim b As Integer = year \ 100
    70. Dim c As Integer = (8 * b + 13) \ 25 - 2
    71. Dim d As Integer = b - (year \ 400) - 2
    72. Dim e As Integer = (19 * (year Mod 19) + ((15 - c + d) Mod 30)) Mod 30
    73. If e = 28 Then
    74. If a > 10 Then
    75. e = 27
    76. End If
    77. ElseIf e = 29 Then
    78. e = 28
    79. End If
    80. Dim f As Integer = (d + 6 * e + 2 * (year Mod 4) + 4 * (year Mod 7) + 6) Mod 7
    81. Return New DateTime(year, 3, 22).AddDays(e + f)
    82. End Function
    84. Private Function GetBussUndBettag(ByVal year As Integer) As Date
    85. Dim datum = New DateTime(year, 12, 25)
    86. Dim day As Integer = CInt(datum.DayOfWeek)
    87. day = If((day = 0), -11, -day - 4)
    88. datum = datum.AddDays(-4 * 7).AddDays(day)
    89. Return datum
    90. End Function
    91. End Module


    ErfinderDesRades schrieb:

    Also die beweglichen Feiertage haben sehr niedrige Werte, während die fixen Feiertage den Monat als monat << 16 eincodiert haben, und dadurch immer > 2^16 liegen.
    Ja - ich wollte dich nur mal mit einem Beispiel für schlecht wartbaren Code versorgen .
    (Es gibt Leute, die hassen es, wenn Enum-Werte nicht explizit zugewiesen sind - wirklich!)

    Danke dafür :P aber macht ja auch mal Spaß Probleme zu analysieren. Mit dem <<16 hab' ich mich noch nicht befasst, ich hab mir aber
    gedacht, dass du dafür deine Gründe hattest :D

    Dann kann ich ja jetzt mal zusehen wie ich das mit den Bundesländern verknüpft bekomme
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Quellcode

    1. 'Bewegliche Feiertage müssen in der Reihenfolge NACH den Festen stehen, da ansonsten nach
    2. 'Abfrage eines festen Feiertags die beweglichen nur hochgezählt werden und landen so auf dem
    3. 'falschen Datum

    so besser? ;)

    Da ich das Projekt später als OpenSource bereitstellen will, wäre es nicht sinnvoll hier mit vielen Kommentaren zu arbeiten damit ggf. auch Anfänger verstehen was da vor sich geht?
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    jo, für ein Tut mehr Kommentare auf jeden Fall.
    Aber vor allem müssen Kommentare auch stimmen. Es stimmt nicht, dass Bewegliche nach den Festen stehen müssen.
    Und kurz sein.

    Also heutzutage würde ich so kommentieren:

    VB.NET-Quellcode

    1. Public Enum Holidays
    2. 'Monate sind eincodiert an Bit-Positionen >= 16 ( '<<' Bitshift-Operator)
    3. Neujahr = 1 + (1 << 16)
    4. Maifeiertag = 1 + (5 << 16)
    5. TagDerDeutschenEinheit = 3 + (10 << 16)
    6. Heiligabend = 24 + (12 << 16)
    7. ErsterWeihnachtsfeiertag = 25 + (12 << 16)
    8. ZweiterWeihnachtsfeiertag = 26 + (12 << 16)
    9. Silvester = 31 + (12 << 16)
    10. 'Bewegliche Feiertage (und None) haben keinen Monat eincodiert
    11. 'Beachte, dass Enum-Werte sich fortlaufend erhöhen, wenn nicht explizit gesetzt
    12. None = 0
    13. Karfreitag
    14. Ostermontag
    15. ChristiHimmelfahrt
    16. Pfingstmontag
    17. Fronleichnam
    18. End Enum

    Aber Verständlichkeit ist sone Sache. Letztendlich kannst du besser entscheiden als ich, ob mein Code verständlich ist.
    Kommentare sind auch Code.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „ErfinderDesRades“ ()

    @ErfinderDesRades:
    Ich hab ein neues DataSet für den "Planer" gebaut:


    soweit so gut, Beziehungen sind alle hinzugefügt - allerdings kann ich nur noch im DGV selbst Einträge editieren oder hinzufügen.
    Die Funktionen (bs.EditNew und bs.EditCurrent) landen alle in folgendem Fehler:


    Ich hab dir das Projekt mal angehangen, würdest du dir das mal anschauen, bevor ich einer der Helpers zerschieße?
    Dateien

    • Planer.zip

      (1,12 MB, 118 mal heruntergeladen, zuletzt: )
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

Facebook
Telefonspende