Frage zur Zeit ....

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von jan99.

    Frage zur Zeit ....

    Moin!

    ich brauche immer das Datum vom Tag zuvor und habe
    folgenden Code und dabei wird mir so ein merkwürdiges Ergebnis für die
    Variable Test angezeigt:

    Visual Basic-Quellcode

    1. Dim today As System.DateTime
    2. Dim check_date As System.DateTime
    3. today = System.DateTime.Now
    4. check_date = today.AddDays(k_TageZuvor)
    5. Dim test As String
    6. test = check_date.ToString("yyyymmdd")



    today #6/16/2016 2:20:17 PM# Date
    check_date #6/15/2016 2:20:17 PM# Date
    test "20162015" String


    Kann mir hierzu einer weiterhelfen?

    Schiebe
    gleich noch eine zweite Frage nach - ich brauche von dem gestrigen Tag
    (=check_date) in einer Variablen eine bestimmte Uhrzeit
    (TestZeit="10:00"). Wie führe ich die Uhrzeit mit meinem Tag zusammen?

    Ziel soll es ein ein Datum mit einem anderen zu vergleichen.

    Gruß Jan

    also den gestrigen Tag hol ich mir immer so:

    VB.NET-Quellcode

    1. Today.AddDays(-1)


    Sorry, hab erst falsch gelesen: versuchs mal so: check_date.ToString("yyyyMMdd")

    "Hier könnte Ihre Werbung stehen..."

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

    Moin!

    bis auf die Tatsache das ich

    Visual Basic-Quellcode

    1. Dim k_TageZuvor As Integer = -1


    vergessen habe mit zu dokumentieren sollte ich dasselbe haben.

    Aber warum kommt da plötzlich so ein merkwürdiges Datum zustanden:

    test "20162015" String


    Gruß Jan

    hier diverse weitere datumsfunktionen aus denen die vorgehensweise klar wird. hab ich diesem brillanten meisterwerk :-)



    VB.NET-Quellcode

    1. Public NotInheritable Class DateCalcHelper
    2. ''' <summary>
    3. ''' Errechnet das Datum, das dem 1. des Monats entspricht,
    4. ''' der sich aus dem angegebenen Datum ergibt.
    5. ''' </summary>
    6. ''' <param name="CurrentDate">Datum, dessen Monat für die Berechnung zugrunde gelegt wird.</param>
    7. ''' <returns></returns>
    8. ''' <remarks></remarks>
    9. Public Shared Function FirstDayOfMonth(ByVal CurrentDate As Date) As Date
    10. Return New Date(CurrentDate.Year, CurrentDate.Month, 1)
    11. End Function
    12. ''' <summary>
    13. ''' Errechnet das Datum, das dem Letzen des Monats entspricht,
    14. ''' der sich aus dem angegebenen Datum ergibt.
    15. ''' </summary>
    16. ''' <param name="CurrentDate">Datum, dessen Monat für die Berechnung zugrunde gelegt wird.</param>
    17. ''' <returns></returns>
    18. ''' <remarks></remarks>
    19. Public Shared Function LastDayOfMonth(ByVal CurrentDate As Date) As Date
    20. Return New Date(CurrentDate.Year, CurrentDate.Month, 1).AddMonths(1).AddDays(-1)
    21. End Function
    23. ''' <summary>
    24. ''' Errechnet das Datum, das dem 1. des Jahres entspricht,
    25. ''' das sich aus dem angegebenen Datum ergibt.
    26. ''' </summary>
    27. ''' <param name="CurrentDate">Datum, dessen Jahr für die Berechnung zugrunde gelegt wird.</param>
    28. ''' <returns></returns>
    29. ''' <remarks></remarks>
    30. Public Shared Function FirstOfYear(ByVal CurrentDate As Date) As Date
    31. Return New Date(CurrentDate.Year, 1, 1)
    32. End Function
    33. ''' <summary>
    34. ''' Errechnet das Datum, das dem ersten Montag der ersten Woche des Monats entspricht,
    35. ''' der sich aus dem angegebenen Datum ergibt.
    36. ''' </summary>
    37. ''' <param name="CurrentDate">Datum, dessen Woche für die Berechnung zugrunde gelegt wird.</param>
    38. ''' <returns></returns>
    39. ''' <remarks></remarks>
    40. Public Shared Function MondayOfFirstWeekOfMonth(ByVal CurrentDate As Date) As Date
    41. Dim locDate As Date = FirstDayOfMonth(CurrentDate)
    42. If Weekday(locDate) = DayOfWeek.Monday Then
    43. Return locDate
    44. End If
    45. Return locDate.AddDays(6 - Weekday(CurrentDate))
    46. End Function
    47. ''' <summary>
    48. ''' Errechnet das Datum, das dem Montag der Woche entspricht,
    49. ''' die sich aus dem angegebenen Datum ergibt.
    50. ''' </summary>
    51. ''' <param name="CurrentDate">Datum, dessen Woche für die Berechnung zugrunde gelegt wird.</param>
    52. ''' <returns></returns>
    53. ''' <remarks></remarks>
    54. Public Shared Function MondayOfWeek(ByVal CurrentDate As Date) As Date
    55. If Weekday(CurrentDate) = DayOfWeek.Monday Then
    56. Return CurrentDate
    57. Else
    58. Return CurrentDate.AddDays(-Weekday(CurrentDate) + 1)
    59. End If
    60. End Function
    61. ''' <summary>
    62. ''' Errechnet das Datum, das dem ersten Montag der zweiten Woche des Monats entspricht,
    63. ''' der sich aus dem angegebenen Datum ergibt.
    64. ''' </summary>
    65. ''' <param name="CurrentDate">Datum, dessen Woche für die Berechnung zugrunde gelegt wird.</param>
    66. ''' <returns></returns>
    67. ''' <remarks></remarks>
    68. Public Shared Function MondayOfSecondWeekOfMonth(ByVal currentDate As Date) As Date
    69. Return MondayOfFirstWeekOfMonth(currentDate).AddDays(7)
    70. End Function
    71. ''' <summary>
    72. ''' Errechnet das Datum, das dem ersten Montag der letzten Woche des Monats entspricht,
    73. ''' der sich aus dem angegebenen Datum ergibt.
    Gruß Hannes

    Dies macht das:

    jan99 schrieb:

    VB.NET-Quellcode

    1. test = check_date.ToString("yyyymmdd")
    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!

    test = check_date.ToString("yyyymmdd")
    ' check_date #6/15/2016 2:20:17 PM# Date
    ' test "20162015" String

    yyyy ==> 2015 ' Jahr
    mm ==> 20 ' Minuten
    dd ==> 15 ' Tagesdatum

    Korrekt wäre .ToString("yyyyMMdd")
    weil nur MM den Monat abbildet.
    Ich habs mir auch nicht ausgedacht :)
    An manchen Tagen gibt es zu allem Überfluss auch noch Ärger!