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