[es] - Lako ali nije naivno

Pharos
Pančevo

Član broj: 20664
Poruke: 974
*.vdial.verat.net

Profil

^{05.03.2004. u 14:11}

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.

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

^{05.03.2004. u 14:11}

fragolan
Sam svoj majstor ....
Kraljevo

Član broj: 17146
Poruke: 58
*.net.yu

ICQ: 41270492
Sajt: www.escbounty.info

Profil

Re: Lako ali nije naivno

^{05.03.2004. u 14:47}

ubaci ovaj kod za komandni taster

Code:

Private Sub cmdDatumi_Click()
lblDanas.Caption = Date
lblJuce.Caption = Date - 1
End Sub

Citat:

A mozda mercedes. Ne znam stvarno nisam pametan

^{05.03.2004. u 14:47}

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1605
*.dialup.neobee.net.

Sajt: www.clickersoftware.com

Profil

Re: Lako ali nije naivno

^{05.03.2004. u 21:23}

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

vidi GoranVucicevic #28045

www.clickersoftware.com

^{05.03.2004. u 21:23}

Pharos
Pančevo

Član broj: 20664
Poruke: 974
*.vdial.verat.net

Profil

Re: Lako ali nije naivno

^{05.03.2004. u 22:06}

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

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

^{05.03.2004. u 22:06}

Not now, John!

Član broj: 231
Poruke: 1307
*.dialup.blic.net

Profil

Re: Lako ali nije naivno

^{05.03.2004. u 22:30}

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.")

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

^{05.03.2004. u 22:30}

fragolan
Sam svoj majstor ....
Kraljevo

Član broj: 17146
Poruke: 58
*.net.yu

ICQ: 41270492
Sajt: www.escbounty.info

Profil

Re: Lako ali nije naivno

^{06.03.2004. u 13:14}

pa kao sto ti je covek rekao formatiraj datum sa format

^{06.03.2004. u 13:14}

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Lako ali nije naivno

^{06.03.2004. u 15:06}

Pogledaj DateDiff funkciju, a za formatiranje Format.

Blue Man Group

^{06.03.2004. u 15:06}

Pharos
Pančevo

Član broj: 20664
Poruke: 974
*.vdial.verat.net

Profil

Re: Lako ali nije naivno

^{06.03.2004. u 15:12}

Citat:

Not now, John!:
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.")

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.

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

^{06.03.2004. u 15:12}

Marko_L
Marko Lošonc
Project Manager, Maxifer d.o.o
Beograd

Moderator
Član broj: 20532
Poruke: 2112
*.yubc.net

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoft.com

Profil

Re: Lako ali nije naivno

^{06.03.2004. u 19:12}

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.

-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

^{06.03.2004. u 19:12}

byTer

Član broj: 10936
Poruke: 1221
*.info-net.co.yu

ICQ: 47761626

Profil

Re: Lako ali nije naivno

^{07.03.2004. u 20:24}

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 :)

^{07.03.2004. u 20:24}

degojs

Član broj: 4716
Poruke: 5050
*.cpe.net.cable.rogers.com

Sajt: www.novetehnologije.com

Profil

Re: Lako ali nije naivno

^{09.03.2004. u 17:11}

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

Commercial-Free !!!

^{09.03.2004. u 17:11}