Lako ali nije naivno

Postovana braco programeri!
Kako napisati kod u Visual Basic-u za program koji ce na jednoj labeli lblDanas ispisati danasnji datum a na drugoj labeli npr lblJuce napisati jucerasnji datum??? Program sme da sadrzi samo 2 labele i jedan Command Buton i na click iventu Command Button-a treba da stoji trazeni kod. Znaci nije dozvoljena upotreba nikakvih pomocnih objekata (kao sto je onaj kalendar u VB-u) nego samo cist kod.
Hvala.

Potpis

77 77 77 2E 65 73 6E 69 70 73 2E 63 6F 6D

ubaci ovaj kod za komandni taster


[quote]
A mozda mercedes. Ne znam stvarno nisam pametan

Datum za juce je:
datJuce = DateSerial(Year(Date), Month(Date), Day(Date) - 1)

Ma sve je to ok sa date - 1 i data serial, medjutim datum mi je zapisan u formatu mm/dd/yy a ja zelim da mi format datuma bude dd/mm/yyyy ili dd/mm/yyyy.
Koliko sam ja skontao to valjda je moguce samo preko date$ a ne sa 'date medjutim verovatno gresim. Znaci kako da napisem datum koji je bio juce u formatu dd/mm/yyyy?
Hvala

Potpis

77 77 77 2E 65 73 6E 69 70 73 2E 63 6F 6D

Po defaultu ti ispisuje datum u onom obliku koji si zadao pod Regional Settings u Control Panelu.
Ako želiš neki dr. format onda piši:
lblNesto=Format(Date-1, "d. M. yyyy.")

Potpis

"I'd take the awe of understanding over the awe of ignorance any day."
- Douglas Adams

pa kao sto ti je covek rekao formatiraj datum sa format

Pogledaj DateDiff funkciju, a za formatiranje Format.

Potpis

Blue Man Group

Sve je OK. Ovo savrseno radi. Ja sam to isto pokusavao ali bez navodnika (") pa verovatno zato nije datum hteo da mi prebaci u zeljeni format. Jos jednom hvala svima.
Poz.

Potpis

77 77 77 2E 65 73 6E 69 70 73 2E 63 6F 6D

Da bi pokazao o cemu pricam, evo cim sam nasao malo vremenao otisao sam na google i u polje za pretragu ukucao 'vb datediff', podesio pretragu na srpski jezik i voila ! Evo
http://66.102.9.104/search?q=c...sr&lr=lang_sr&ie=UTF-8
I to oanko iz prve ruke !!! Ovde imas gotovo sve vaznije operacije sa DATE data tipom koji ti mogu zatrebati, cak i u ozbiljnijim aplikacijama, fino objasnjeno, sa primerima i to na SRPSKOM.Na stranim sajtovima verovatno postoji i bolje, i zasto bi sad neko to ovde prepricavao ???

Poz.

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Ja sam jednom, ne znajuci da postoje gotove biblioteke u Delphiju isprogramirao takvu funkciju, ali sam znas koliko mora dugo da se radi. Najbolje ti je da sve citas sa kalendara a kalendare jednostavno sakrijes :)

Momci,

poruke koje nemaju veze sa temom sam izbrisao i tako će biti i ubuduće.

Dalje, Željko je dao imena funkcija koje rešavaju problem kao kec na 10: primera istih ima i u samom MSDN-u i na sajtovima, kao što je neko drugi već napisao. Ako će neko da napiše nešto više, uvek je dobrodošao, ali i ovo je sasvim dovoljno: nije teško da se otkuca ime funkcije pa pritisne F1.

Pozdrav

Potpis

Commercial-Free !!!