Berekeningen tussen bepaalde data (DateTimePicker - DateDiff)

Vandaag wil ik laten zien hoe je berekeningen tussen de data die comfortabel in visual basic uit te voeren. Net met behulp van de DateDiff functie.

Noodzaak van een vorm, een knop, een aantal label en een DateTimePicker controle zoals in de afbeelding hieronder:

en in de druk op de knop geval zal de volgende code:

 txtAños.Text = DateDiff (DateInterval.Year, DateTimePicker1.Value, Now.Date) & "jaar"
 txtMeses.Text = DateDiff (DateInterval.Month, DateTimePicker1.Value, Now.Date) & "maanden"
 txtSemanas.Text = DateDiff (DateInterval.Day, DateTimePicker1.Value, Now.Date) / 7 & "weken"
 txtDias.Text = DateDiff (DateInterval.Day, DateTimePicker1.Value, Now.Date) & "dagen"

de applicatie, hebben we gekozen voor een datum in het verleden en druk op de knop Berekenen. Het resultaat zal vergelijkbaar zijn met deze afbeelding:

Dit is een heel eenvoudig voorbeeld, kijk maar naar wat code en screenshots, en ik weet zeker dat je geen twijfels hebben, maar als je aan een hebben, laat je reactie.

Hoop dat dit helpt.

18 Responses to "berekeningen tussen bepaalde data (DateTimePicker - DateDiff)"

  1. Informatie Bitacoras.com ...

    Prijs in Bitacoras.com: Vandaag wil ik laten zien hoe je berekeningen tussen bepaalde data in Visual Basic uit te voeren met behulp van de Netto DateDiff functie.. Nodig vorm toets, een aantal label? S DateTimePicker controle, zoals in de vol ...

  2. Peter zegt:

    Hallo eerst en vooral dank u.

    Ik heb een punt van zorg.

    Vandaag is het 29 april 2009
    Ik ben geboren in september 1980

    volgens
    txtAños.Text = DateDiff (DateInterval.Year, DateTimePicker1.Value, Now.Date) & "jaar"

    nu heb ik 29 jaar

    maar dat is niet zo, ik heb 28 voor mijn verjaardag pas in september

    en wijzigen van de code

    nogmaals bedankt

    • Elisa zegt:

      Peter, ik verlengen je een beetje informatie:

      Als interval is ingesteld op DateInterval.Year, wordt de return waarde gewoon berekend op basis van het jaar delen van de twee opgegeven data. Evenzo wordt de return waarde voor DateInterval.Month gewoon berekend op basis van de partijen van het jaar en de maand van de argumenten.

      Bijvoorbeeld, bij het vergelijken van 31 december-1 januari volgend jaar, DateDiff terug 1 voor DateInterval.Year of DateInterval.Month, maar alleen als er veel is geslaagd is voor een enkele dag.

      In die gevallen raad ik aan, bijvoorbeeld, altijd gebruik maken van het bereik en de kloof met 365 DateInterval.Day en zo zou een nauwkeuriger cijfer hebben: 28,65 jaar (bijvoorbeeld) en als je wil gewoon dat het jaar kunt u de int () functie die zal terugkeren gebruiken slechts een deel van het nummer.

  3. Alex zegt:

    Een goed voorbeeld! Bedankt voor de info

  4. jimmy zegt:

    Hey goede post mannen die gediend me de waarheid tot nu toe is het helpen van de camera als ik Grax.

  5. Ignacio jose zegt:

    uw post zeer goede vriend als u de DateTimePicker formaat DD / MM / YYYY ik door qa MI (donderdag, 12 mei 1999) en echt niet weten hoe

    • Elisa zegt:

      Hallo joseph:

      je hoeft alleen de eigendom Formatdel controle veranderen ook:

      DateTimePicker1.Format = DateTimePickerFormat.Short

      Geluk

  6. John F. zegt:

    Een raadpleging is misschien te makkelijk, maar ik kon de weg van het weergeven van de datum in de datetiempicker, voor mij lijkt te veranderen: vrijdag, november 27, 2009, ik moet gewoon: 27/11/2009.

    dat zou, bedankt.

  7. John F. zegt:

    Sorry, was het commentaar niet eerder gezien, die beantwoordt mijn vraag, bedankt.

  8. mcinpapr zegt:

    Goedemiddag ... Ik heb een probleem ... Ik ben met behulp van twee DateTimePicker in vb.net 2005 en toen ik selecteer een datum in de tweede DateTimePicker zou ik het verschil tussen twee datums ... Deze functie wordt gestart op de "ValueChanged" het tweede ... Als je het runt, maar ik heb altijd aftrekken van een dag dan zou ik geven ... bijvoorbeeld ... Als ik wegga de datum van vandaag om de eerste DateTimePicker (21/12/2009) en geselecteerd in het tweede de volgende dag (22/12 / 2009) geeft mij een waarde van 0 ... als u hem op 23 keert terug mij de waarde van 1. De gebruikte functie is als volgt:

    TextBox1.Text = CStr (DateDiff (DateInterval.Day, DTP_ShipDate.Value, DTP_ETA.Value))

    Iedereen weet wat er kan worden wat er gebeurt dan?

  9. Lilimarlet zegt:

    hallo, hoe gaat het?
    Ik heb een vraag ze, zoals ik kan gewoon de dag van de FEHA te krijgen, kijk ik heb een tekstvak waar ik tonen de feha "01/01/2009" en ik moet een dag.

    Ik heb deze

    dim dag als integer
    dag = dag (tfecha.text)

    Ik wil niet iets meenemen, maar zet

    Dim jaar As Integer
    jaar = jaar (tfecha.text)

    Ik laat het jaar hier, maar ik moet de dag

  10. Carlos H zegt:

    Neem me niet kwalijk als ik de dataTimerPicker ik debuelva jaar-maand-dag bone "yyyy / mm / dd" om een ​​datum te selecteren, ik nodig voor een zoekopdracht in Mysql en data in dit formaat houdt hen ("yyyy / mm / dd" ) .....

    Als ik zou kunnen zijn de agradesco gids ... Dank bij voorbaat.

  11. Jennifer zegt:

    Hartelijk dank voor de informatie. Het was een grote hulp.

  12. Hanner Oviedo zegt:

    Goed management is niet erg goed VB en ik werk dit evenement, maar krijg ik de foutmelding 424 raakte het weinige dat ik heb gedaan, ik hoop dat je hulp

    Range ("I10") = DateDiff (DateInterval.Month, TextBox18.Value, Now.Date)

    Dank u.

  13. DjMiki zegt:

    Good Friend Elisa, bedankt voor je functie mij gediend, maar ik heb een detail, het resultaat geeft mij de DateDiff is een negatieve, volg dan het voorbeeld dat je geven, maar gelijk, probeer door te geven als string, int, CInt, CSTR, en niets wat hulp kunt.

  14. DjMiki zegt:

    Nou Elisa excuus voor de moeite, maar goed en het oplossen van mijn probleem, maar ik denk dat je de bestelling geplaatst heeft parameters zijn het andersom, en dan bedoel ik de datum 1 en datum 2, en dan moet Datum1 datum2.
    Nou gecorrigeerd, nu worstelen met de vergelijking van dit resultaat.

  15. Elkin V zegt:

    Hey vriend Thank You Zeer nuttig
    Het is heel gemakkelijk lol

    Een overblijfsel van de tijd later proberen om iets te vinden

    Moet ik wierp een groot plezier!

Commentaar