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.