06.01.2013 Views

Datu bāzes

Datu bāzes

Datu bāzes

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Do Until <br />

<br />

If Then<br />

Exit Do<br />

End If<br />

Loop<br />

Exit Do komanda strādā ar visām Do cikla sintaksēm.<br />

Exit Do un Exit For var būt noderīgas, jo dažkārt ir nepieciešams iziet no<br />

cikla nekavējoties, neveicot vairāk nekādas darbības ciklā.<br />

19.8. Darbs ar datumu un laiku<br />

Visual Basic iekšēji datumu un laiku glabā kā skaitļus. Skaitļa veselā daļa<br />

parāda datumu starp 100. gada 1. janvāri un 9999. gada 31. decembri ieskaitot,<br />

katra diena palielina šo skaitli par vienu. Skaitļa daļveida daļa attēlo laiku<br />

(dienas daļu) starp 0:00:00 un 23:59:59 ieskaitot.<br />

Tā kā datumi ir skaitļi, tad ir iespējams veikt aprēķinus, izmantojot<br />

datumus, piemēram:<br />

Dim dtJaunais<strong>Datu</strong>ms As Date<br />

dtJaunais<strong>Datu</strong>ms = dt<strong>Datu</strong>ms +3<br />

VBA ir funkcijas, kas atgriež sistēmas datumu un tā daļas.<br />

MsgBox “Pareizs datums un laiks ir “ & Now<br />

MsgBox “<strong>Datu</strong>ms ir “ & Date<br />

MsgBox “Laiks ir “& Time<br />

Visual Basic piedāvā funkcijas, kuras no datuma atgriež kādu daļu:<br />

(Sistēmas laiks ir 10.04.2000 13:34:45)<br />

Funkcijas darbam ar datumiem.<br />

19.4.tabula<br />

Funkcija Piemērs Vērtība<br />

Year() Year(Now) 2000<br />

Month() Month(Now) 4<br />

Day() Day(Now) 10<br />

Weekday() Weekday(Now) 2<br />

Hour() Hour(Now) 13<br />

Minute() Minute(Now) 34<br />

Second() Second(Now) 45<br />

Ir funkcijas, kas rēķina un konvertē datumus:<br />

171<br />

© Vladimirs Ivanovs, 2007

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!