[es] - Lako ali nije naivno

Pharos
Pančevo

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

+2 Profil

^{05.03.2004. u 14:11 - pre 244 meseci}

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

Odgovor na temu

fragolan
Sam svoj majstor ....
Kraljevo

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

ICQ: 41270492
Sajt: www.escbounty.info

Profil

Re: Lako ali nije naivno

^{05.03.2004. u 14:47 - pre 244 meseci}

ubaci ovaj kod za komandni taster

Code:

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

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

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Lako ali nije naivno

^{05.03.2004. u 21:23 - pre 244 meseci}

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

Odgovor na temu

Pharos
Pančevo

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

+2 Profil

Re: Lako ali nije naivno

^{05.03.2004. u 22:06 - pre 244 meseci}

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

Odgovor na temu

Not now, John!

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

+4 Profil

Re: Lako ali nije naivno

^{05.03.2004. u 22:30 - pre 244 meseci}

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

Odgovor na temu

fragolan
Sam svoj majstor ....
Kraljevo

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

ICQ: 41270492
Sajt: www.escbounty.info

Profil

Re: Lako ali nije naivno

^{06.03.2004. u 13:14 - pre 244 meseci}

pa kao sto ti je covek rekao formatiraj datum sa format

Odgovor na temu

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

Član broj: 6598
Poruke: 2065
*.yubc.net

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

Profil

Re: Lako ali nije naivno

^{06.03.2004. u 15:06 - pre 244 meseci}

Pogledaj DateDiff funkciju, a za formatiranje Format.

Blue Man Group

Odgovor na temu

Pharos
Pančevo

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

+2 Profil

Re: Lako ali nije naivno

^{06.03.2004. u 15:12 - pre 244 meseci}

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

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Lako ali nije naivno

^{06.03.2004. u 19:12 - pre 244 meseci}

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

Odgovor na temu

byTer

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

ICQ: 47761626

Profil

Re: Lako ali nije naivno

^{07.03.2004. u 20:24 - pre 244 meseci}

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

Odgovor na temu

degojs

Član broj: 4716
Poruke: 5096

+51 Profil

Re: Lako ali nije naivno

^{09.03.2004. u 17:11 - pre 244 meseci}

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 !!!

Odgovor na temu