Š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.
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 ...
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ū
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.
Geras pavyzdys! Ačiū už info
Ei geras post vyrai, kurie tarnavo man tiesą, padėti fotoaparatą kaip I grax,.
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
Sveiki joseph:
jums tereikia pakeisti nuosavybės Formatdel kontrolę, taip pat:
DateTimePicker1.Format = DateTimePickerFormat.Short
Sėkmė
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ū.
Atsiprašome, komentaras nebuvo matęs, kuris atsako į mano klausimą, dėka.
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?
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ą
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.
BB Ps jei yra funkcija ir naudoti pasirinktinį formatą, ir CustomFormat yyy / MM / DD
Labai ačiū už informaciją. Tai buvo didelė paspirtis.
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ū.
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.
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ą.
Hey Friend Ačiū Labai naudingas
Tai labai lengva lol
Laiko likutis vėliau bando rasti kažką
Ar aš įmečiau didelę malonę!