Skaičiavimai tarp datų DateTimePicker - DateDiff)

Šiandien aš noriu parodyti, kaip atlikti skaičiavimus tarp datų, patogios Visual Basic. Grynasis DateDiff funkciją.

Reikia formą, sagų, kai etiketės ir DateTimePicker kontrolę, kaip parodyta paveikslėlyje žemiau:

ir mygtuko paspaudimu atveju šis kodas:

 txtAños.Text = DateDiff (DateInterval.Year, DateTimePicker1.Value, Now.Date.) ir "metai"
 txtMeses.Text = DateDiff (DateInterval.Month, DateTimePicker1.Value, Now.Date.) ir "mėn."
 txtSemanas.Text = DateDiff (DateInterval.Day, DateTimePicker1.Value, Now.Date.) / 7 & "savaitės"
 txtDias.Text = DateDiff (DateInterval.Day, DateTimePicker1.Value, Now.Date.) ir "dienos"

paleisti programą, mes išrinkome praeityje datą ir paspauskite mygtuką apskaičiuoti. Rezultatas bus panašus į šį vaizdą:

Tai labai paprastas pavyzdys, tiesiog pažvelgti į tam tikrą kodą ir iliustracijos, ir aš tikiu, kad jums nereikės turėti abejonių, bet jei buvo kokių nors, tiesiog palikite komentarą.

Hope this helps.

18 Atsakymai į "skaičiavimus tarp datų DateTimePicker - DateDiff),"

  1. Informacija Bitacoras.com ...

    Tarifas Bitacoras.com: Šiandien aš noriu parodyti, kaip atlikti skaičiavimus tarp datų Visual Basic Net naudojant DateDiff funkciją. Reikia formą mygtuką, tam tikrą etiketę? S DateTimePicker - kontroliuoti, kaip parodyta sta ...

  2. Petras sako:

    Sveiki, visų pirma ačiū.

    Turiu susirūpinimą.

    Šiandien balandžio 29, 2009
    Gimiau 1980 m. Rugsėjo mėn.

    pagal
    txtAños.Text = DateDiff (DateInterval.Year, DateTimePicker1.Value, Now.Date.) ir "metai"

    dabar turiu 29 metų

    bet kad yra ne taip, aš turiu 28 - mano gimtadienis neseniai rugsėjo mėn.

    ir pakeisti kodą

    Dar kartą ačiū

    • Eliziejus sako:

      Petrai, aš pratęsti jums šiek tiek informacijos:

      Jei intervalas nustatytas į DateInterval.Year, grąžina vertė yra tiesiog apskaičiuojamas nuo metų dalių dviejų datų. Panašiai, grąžinta reikšmė DateInterval.Month tiesiog skaičiuojamas iš šalių argumentų metai ir mėnuo.

      Pavyzdžiui, lyginant gruodžio 31 d. Kitų metų sausio 1, DateDiff grąžina 1 už DateInterval.Year arba DateInterval.Month, bet tik tiek, kiek praėjo per vieną dieną.

      Šių atvejų Mes rekomenduojame visada naudoti, diapazoną ir atotrūkį pagal 365 DateInterval.Day ir todėl turėtų turėti tam tiksliau paveikslą: 28.65 metai (pavyzdžiui) ir jei jūs tiesiog norite metus jūs galite naudoti, int [punktą funkcija, kad bus grąžinti tik numerio dalis.

  3. Aleksas sako:

    Geras pavyzdys! Ačiū už info

  4. Jimmy sako:

    Ei geras post vyrai, kurie tarnavo man tiesą, padėti fotoaparatą kaip I grax,.

  5. Ignacio Jose sako:

    Jūsų pranešimas labai geras draugas, kaip jūs nustatyti DateTimePicker formatą MMMM / MM / MMMM gaunu KA MI (Ketvirtadienis, 12 gegužės 1999), ir tikrai nežinau, kaip

    • Eliziejus sako:

      Sveiki joseph:

      jums tereikia pakeisti nuosavybės Formatdel kontrolę, taip pat:

      DateTimePicker1.Format = DateTimePickerFormat.Short

      Sėkmė

  6. Džonas F. sako:

    Konsultacijos yra galbūt pernelyg lengva, tačiau aš galėtų pakeisti rodyti į datetiempicker datą, man atrodo taip: penktadienis, lapkričio 27, 2009, man reikia tiesiog: 27/11/2009.

    kad būtų, ačiū.

  7. Džonas F. sako:

    Atsiprašome, komentaras nebuvo matęs, kuris atsako į mano klausimą, dėka.

  8. mcinpapr sako:

    Laba diena ... aš turiu problemą ... aš naudoju du DateTimePicker VB.Net 2005 ir kai aš pasirinkite antrojo DateTimePicker datą turėčiau skirtumą tarp dviejų datų ... - ValueChanged "antroji funkcija bus pradėta ... Jei paleisti jį, bet aš visada atimti vieną dieną, nei turėčiau duoti ... pvz ... Jei aš palikti šiandienos datą į pirmą DateTimePicker straipsnio 21/12/2009) ir pasirinktas antrasis kitą dieną (22/12 / 2009) grąžina man 0 ... jei pasirinksite jį 23 grąžos mane vertė 1. Funkcija naudojama taip:

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

    Kiekvienas žino, kas gali būti Kas atsitinka, prašome?

  9. Lilimarlet sako:

    hello, how are you?
    Turiu užklausą jiems, kaip aš galiu gauti tik apie FEHA dieną, atrodo, turiu laukelį, kur aš parodyti feha "01/01/2009" ir man reikia vieną dieną.

    Aš turiu šį tą

    silpnas dieną kaip sveikasis skaičius
    diena = parą (tfecha.text)

    Man neatneša nieko, bet

    Dim metais kaip sveikasis skaičius
    metai = metai (tfecha.text)

    Aš rodo metus, bet man reikia dieną

  10. Carlos val. Sako:

    Atsiprašau, kaip aš darau dataTimerPicker debuelva metai-mėnuo-diena kaulų "yyyy / mm / dd" pasirinkti datą, man reikia MySQL užklausos ir šį formatą datos saugo juos ("yyyy / mm / dd" ) .....

    Jei galėčiau būti agradesco gidas ... Thanks in advance.

  11. Jennifer sako:

    Labai ačiū už informaciją. Tai buvo didelė paspirtis.

  12. Hanner Ovjedas sako:

    Geras valdymas yra labai geras VB ir aš dirbu šį renginį, bet gaunu klaida 424 nukentėjo mažai aš padariau, tikiuosi jūsų pagalbos

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

    Ačiū.

  13. DjMiki sako:

    Geras draugauti Eliziejus, ačiū už jūsų renginiui tarnavo man, bet turiu detales, rezultatas suteikia man DateDiff neigiamas, sekti, pavyzdys jums yra, kurioje bet lygus, bandyti išlaikyti jį kaip eilutė, int, cint, CStr, ir nieko šiek tiek padėti, prašome.

  14. DjMiki sako:

    Na Eliziejus atleisti problemų, bet gerą ir išspręsti savo problemą, bet manau, kad įdėjote tvarkos parametrai yra atvirkščiai, ir aš turiu galvoje datą 1 ir 2 datą, ir tada turėtų būti Date1 Date2.
    Na ištaisyta, dabar kovoja su palyginti šį rezultatą.

  15. Elkin V sako:

    Hey Friend Ačiū Labai naudingas
    Tai labai lengva lol

    Laiko likutis vėliau bando rasti kažką

    Ar aš įmečiau didelę malonę!

Komentuoti