Visual Basic – Funkcije Date i Time

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