calculer la différence entre deux dates pour afficher qu'un certain nombre de jours (VB)

Comment puis-je calculer la différence entre deux dates pour afficher qu'un certain nombre de jours?

J'ai 2 zones de texte (txtHStart_Date & txtHEnd_Date) j'ai utilisé un Calendrier Ajax Extender à saisir les dates de chacune de ces zones de texte.
J'aimerais faire la différence entre ces deux dates pour les afficher dans une autre zone de texte (txtNoOfDays)

J'ai vu la plage de temps de la fonction, mais peut sembler pour obtenir que cela fonctionne.
Je suis pas sûr de la façon de déclarer les boîtes de texte que les dates je voudrais le calcul de

Code:

Dim D1 As Date
Dim D2 As Date
Dim ts As New TimeSpan
D1 = txtHStart_Date.Text
D2 = txtHEnd_Date.Text
ts = D2 - D1

Mais je sais que ce n'est pas le bon. Aussi, je ne sais pas comment les récupérer et les afficher dans la 3ème zone de texte.

  • Qu'avez-vous essayé? Le but d'un TimeSpan est exactement ce que vous décrivez.
  • Dim D1, Date D2 Dim as Date Dim ts Comme New TimeSpan D1 = txtHStart_Date.Texte D2 = txtHEnd_Date.Texte ts = D2 - D1 mais je sais que ce n'est pas droit. J'ai aussi ne sais pas comment les récupérer et les afficher dans la 3ème zone de texte
InformationsquelleAutor user1055487 | 2011-11-20
  1. 2

    La TimeSpan est simple à utiliser.

    Dim dtStart As DateTime = DateTime.Now.AddDays(-100)
Dim dtEnd As DateTime = DateTime.Now

Dim ts As TimeSpan = dtEnd - dtStart
Console.WriteLine(ts.TotalDays)

    Edit:

    Et en passant par le commentaire que vous avez ajouté dans laquelle vous pouvez affecter une chaîne de caractères à une variable de date, vous feriez mieux d'utiliser (et de traitement)

    DateTime.TryParse("some date string", dtStart)

    TryParse retourne un booléen succès/échec de sorte que vous pouvez réagir à savoir si on vous a donné de bonnes/mauvaises données.

    • ts.TotalDays retour d'une fraction. Utilisation ts.Days pour renvoyer un nombre entier.
    InformationsquelleAutor Jim H.
  2. 0

    C'est le meilleur que je connaisse jusqu'à présent. StringToDate fonction vous permet de décider de ce format de date que vous souhaitez utiliser.

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not Page.IsPostBack Then
        txtHStart_Date.Text = "11/20/2011"
        txtHEnd_Date.Text = "11/25/2011"

        Dim dtHStart_Date As DateTime = StringToDate(txtHStart_Date.Text, "MM/dd/yyyy")
        Dim dtHEnd_Date As DateTime = StringToDate(txtHEnd_Date.Text, "MM/dd/yyyy")

        Dim span As TimeSpan = dtHEnd_Date.Subtract(dtHStart_Date)
        txtNoOfDays.Text = span.Days
    End If
End Sub

Public Function StringToDate(ByVal strDate As String, ByVal pattern As String)
    Dim myDTFI As New System.Globalization.DateTimeFormatInfo()
    myDTFI.ShortDatePattern = pattern
    Dim dtDate As DateTime
    Try
        dtDate = DateTime.Parse(strDate, myDTFI)
    Catch ex As Exception
        Return False
    End Try
    Return dtDate
End Function
    InformationsquelleAutor avhinn robles
  3. 0

    Utiliser la fonction DateDiff:

    http://msdn.microsoft.com/en-us/library/b5xbyt6f(v=vs. 80).aspx

    "Renvoie une valeur de type Long en précisant le nombre d'intervalles de temps entre deux valeurs de Date."

    InformationsquelleAutor x0n