Datediff berechnet 1 Tag zu wenig

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von kwon.

    Datediff berechnet 1 Tag zu wenig

    Hallo,
    ich möchte in meinem Programm die Anzahl von Tagen zwischen 2 Daten berechnen (Datediff()) und bitte um Hilfe...
    Seltsamerweise berechnet Datediff (in Zeile 31) einen Tag zu wenig, woran könnte das liegen?

    Vielen Dank für eure Hilfe im Voraus!!

    Hier der code:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    3. Dim ueberOrdnerPfad As String = "D:\Aufgaben\", datstr As String, vbTage As String, oname As String
    4. Private Sub hinzufügeButton_Click(sender As Object, e As EventArgs) Handles hinzufügeButton.Click
    5. Dim pfadTextdatei As String = ueberOrdnerPfad & Me.TextBox1.Text & "\" & "Enddatum.txt"
    7. If Me.TextBox1.Text = "" Then Exit Sub
    9. 'Unterordner hinzufügen
    10. Directory.CreateDirectory(ueberOrdnerPfad & Me.TextBox1.Text & "\")
    12. 'Textdatei erstellen führt zu Problemen, in writealltext nur pfad angeben, sie wird dann erstellt falls nicht vorhanden (Tipp aus Forum)
    13. If Me.TextBox2.Text <> "" Then
    14. 'Enddatum in Textdatei schreiben
    15. File.WriteAllText(pfadTextdatei, Me.TextBox2.Text)
    16. Else
    17. 'kein Enddatum
    18. File.WriteAllText(pfadTextdatei, "")
    19. End If
    21. 'textdatei verstecken
    22. Dim info As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(pfadTextdatei)
    23. info.Attributes = info.Attributes Or System.IO.FileAttributes.Hidden
    25. oname = getOrdnerName(ueberOrdnerPfad & Me.TextBox1.Text & "\")
    27. datstr = System.IO.File.ReadAllText(pfadTextdatei)
    28. If datstr = "" Then
    29. vbTage = "999"
    30. Else
    31. vbTage = CStr(DateDiff("d", Date.Now, CDate(datstr)))
    32. End If
    34. If Len(vbTage) = 1 Then vbTage = "00" & vbTage
    35. If Len(vbTage) = 2 Then vbTage = "0" & vbTage
    37. oname = vbTage & "_" & oname
    39. 'Listbox aktualisieren
    40. ListBox.Items.Add(oname)
    41. End Sub
    42. Private Sub loeschButton_Click(sender As Object, e As EventArgs) Handles loeschButton.Click
    43. Dim X As Integer
    44. If X <> -1 Then
    45. ListBox.Items.RemoveAt(X)
    46. End If
    47. End Sub
    48. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    49. Dim pfad As String, pfadJeTextdatei As String
    50. Me.ListBox.Sorted = True
    51. For Each pfad In Directory.GetDirectories(ueberOrdnerPfad)
    52. 'Ordnername wird ermittelt
    53. oname = getOrdnerName(pfad)
    54. 'pfad je textdatei
    55. pfadJeTextdatei = pfad & "\Enddatum.txt"
    56. datstr = System.IO.File.ReadAllText(pfadJeTextdatei)
    57. If datstr = "" Then
    58. vbTage = "999"
    59. Else
    60. vbTage = CType(DateDiff("d", Date.Now, CDate(datstr)) + 1, String)
    61. End If
    63. If Len(vbTage) = 1 Then vbTage = "00" & vbTage
    64. If Len(vbTage) = 2 Then vbTage = "0" & vbTage
    65. oname = vbTage & "_" & oname
    66. 'Listbox aktualisieren
    67. ListBox.Items.Add(oname)
    68. Next pfad
    69. End Sub
    70. Function getOrdnerName(fpfad As String) As String
    71. Dim pos As Integer, l As Integer
    72. pos = InStrRev(fpfad, "\")
    73. l = Len(fpfad)
    74. getOrdnerName = Mid(fpfad, pos + 1, l)
    75. End Function
    77. End Class


    Aus VB-Paradise Guide verschoben und Code-Tags korrigiert ~EaranMaleasi

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „EaranMaleasi“ ()

    @kwon Warum verewendest Du nicht .NET?

    VB.NET-Quellcode

    1. Dim dt1 = DateTime.Now
    2. Dim dt2 = new DateTime(2020, 12, 24)
    3. Dim sp = dt2.Date - dt1.Date ' hier die Uhrzeit abschneiden
    4. MessageBox.Show(sp.TotalDays.ToString())

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Weil nur ganze Tage als solche gezählt werden. Fehlt auch nur eine Sekunde zu den ganzen 24 Stunden, ist der angebrochene Tage nicht in der Zählung dabei.
    Bilder

    • Tagesdifferenz.png

      4,22 kB, 584×63, 60 mal angesehen
    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.

Facebook
Telefonspende