Visual Basic – Funkcije Date i Time

 –  aลพurirano:  –  

Za rad sa vremenom u Visual Basic-u postoje brojne funkcije, ali za poฤetak objasniฤ‡eno one osnovne „Date“ i „Time“. Funkcijom „Date“ dobijamo podatak o sistemskom vremenu (tj. datumu) na tekuฤ‡em kompjuteru. Evo i primera: 



Dim SisDatum

SisDatum = Date

Ovaj primer se odnosio na oฤitavanje sistemskog vremena, ukoliko ลพelimo da podesimo nov sistemski datum upotrebiฤ‡emo istu funkciju: 



Dim SisDatum

SisDatum = #April 25, 1990#	‘ Dodeljivanje

				‘ novog datuma.

Date = SisDatum   ‘ Promena sistemskog datuma.

Ovde imamo ograniฤenje kod dodele datuma na raฤunarima sa Windows 95 operativnim sistemima; moguฤ‡e je dodeliti datum u rasponu od 01.01.1980. do 31.12. 2099.

Sliฤno funkciji „Date“, funkcija „Time“ sluลพi za oฤitavanje sistemskog vremena (ฤas, minut, sekunda), ali i za postavljanje novog vremena. Evo i primera: 



Dim Vreme

Vreme = Time

Postavljanje novog vremena vrลกimo na sledeฤ‡i naฤin: 



Dim NovoVreme

NovoVreme = #8:00:48 AM#	‘ Dodela

				‘ varijabli novo vreme.

Time = NovoVreme	‘ Podesavanje sistemskog

			‘ vremena na „NovoVreme“.

Varijabla „NovoVreme“ moลพe biti i string i bilo koja numeriฤka vrednost. Kada je u pitanju string, funkcija „Time“ ฤ‡e pokuลกati da odvoji elemente vremena (sat, minut, sekunda) uz pomoฤ‡ znaka separacije koji je podeลกen na datom sistemu.

Ove dve funkcije ฤ‡emo primeniti u izgradnji malog programa koji sluลพi promeni kompletnog sistemskog vremena. Pokrenite novi projekt, i na formu postavite sa leve strane ฤetiri kontrole „Label“ i u njihove osobine „Caption“ unesite date naslove (kao na slici). Potom dodajte joลก dve Label-e, ali im izbriลกite vrednosti osobine „Caption“ jer ฤ‡emo u njih oฤitati podatke o tekuฤ‡em vremenu na sistemu. I na kraju dodaฤ‡emo dva Textbox-a i jedno komandno dugme. Da bi program bio potpuno funkcionalan dodajte joลก sledeฤ‡i programski kod: 



Private Sub Command1_Click()

Time = Text1.Text

Date = Text2.Text

End Sub


Private Sub Form_Load()

Dim vreme

Dim datum

vreme = Time

datum = Date

Label3.Caption = vreme

Label4.Caption = datum

End Sub

Kada pokrenete program (funkcijski taster F5), u prva dva polja oฤitaฤ‡e se sistemsko vreme, u prvi textbox unesite sat, minut i sekunde (odvojene dvotaฤkom), a u drugi unesite neki datum. Kada pritisnete dugme, izvrลกiฤ‡e se promena sistemskog vremena.

Pratite Krstaricu na www.krstarica.com