Megjegyzés - A VBA-ban használt dátum- és időformázási utasítások nem támogatottak a StarOffice Basic programban.

Dátum és idő

A StarOffice Basic rendelkezik egy Date (dátum) adattípussal, amely a dátumot és időt bináris formátumban menti.

Dátum és idő megadása a programban Kód

A dátumot a dátumváltozóhoz hozzárendelhetjük egy egyszerű karakterlánc hozzárendelésével:

Dim MyDate As Date



MyDate = "1.1.2002"

Ez a hozzárendelés azért működik, mert a StarOffice Basic automatikusan konvertálja a karakterláncként megadott dátumértéket dátumváltozóvá. Viszont az ilyen hozzárendelés hibákat okozhat, mert dátum- és időértékek az egyes országokban eltérően vannak megadva.

Mivel a StarOffice Basic az operációs rendszer területi beállításait használja a karakterláncok dátummá történő konvertálásakor, az előbb bemutatott kifejezés csak akkor működik, ha a területi beállítások megegyeznek a kifejezés formátumával.

A probléma elkerülése érdekében a DateSerial függvényt érdemes használni, ha rögzített értéket rendelünk egy dátumváltozóhoz:

Dim MyVar As Date

MyDate = DateSerial (2001, 1, 1)

A függvény paramétereinek sorrendje: év, hónap, nap. A függvény használatával biztosak lehetünk benne, hogy a megfelelő értéket rendeljük a változóhoz a területi beállításoktól függetlenül

A TimeSerial ugyanúgy formázza az időértékeket, ahogy a DateSerial függvény formázza a dátumokat:

Dim MyVar As Date



MyDate =  TimeSerial(11, 23, 45)

A paraméterek sorrendje: óra, perc, másodperc.

Dátum és idő kiolvasása

A következő függvények az ellentettjei a DateSerial és a TimeSerial függvénynek:

• Day(MyDate) - visszaadja a MyDate dátum napját.

• Month(MyDate) - visszaadja a MyDate dátum hónapját.

• Year(MyDate) - visszaadja a MyDate dátum évét.

• Weekday(MyDate) - visszaadja a MyDate dátum hetének napját.

• Hour(MyTime) - visszaadja a MyTime idő óráit.

• Minute(MyTime) - visszaadja a MyTime idő perceit.

• Second(MyTime) - visszaadja a MyTime idő másodperceit.

Ezek a függvények az adott dátum- vagy időelemet kiolvassák egy Date (dátum) változóból. A

Dim MyDate As Date



' ... MyDate inicializálása



If Year(MyDate) = 2003 Then



   ' ... A megadott dátum a 2003



End If

program ellenőrzi, hogy a MyDate változóban mentett dátum a 2003-as év-e. Ugyanígy a

Dim MyTime As Date



' ... MyTime inicializálása



If Hour(MyTime) >= 12 And Hour(MyTime) < 14 Then



   ' ... A megadott idő 12-14 óra



End If

ellenőrzi, hogy a MyTime 12 óra és 14 óra között van-e.

A Weekday függvény a megadott dátum hetének napját adja vissza:

Dim MyDate As Date

Dim MyWeekday As String



' ... MyDate inicializálása



Select Case WeekDay(MyDate)

case 1

   MyWeekday = "Vasárnap"

case 2

   MyWeekday = "Hétfő"

case 3

   MyWeekday = "Kedd"

case 4

   MyWeekday = "Szerda"

case 5

   MyWeekday = "Csütörtök"

case 6

   MyWeekday = "Péntek"

case 7

   MyWeekday = "Szombat"

End Select