Dátum és idő (Apache OpenOffice futásidejű programkönyvtár)
Az Apache OpenOffice 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 programkódban
A dátumot a dátumváltozóhoz hozzárendelhetjük egy egyszerű karakterlánc hozzárendelésével:
Dim MyDate As Date
MyDate = "24.1.2002"
Ez a hozzárendelés azért működik, mert az Apache OpenOffice 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 az Apache OpenOffice 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, 24)
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 olvassák ki egy Date (dátum) változóból. A következő példaprogram ellenőrzi, hogy a MyDate változóban mentett dátum a 2003-as év-e.
Dim MyDate As Date
' ... MyDate inicializálása
If Year(MyDate) = 2003 Then
' ... A megadott dátum a 2003-as évben van
End If
Ugyanezen a módon a következő példaprogram ellenőrzi, hogy a MyTime 12 óra és 14 óra között van-e.
Dim MyTime As Date
' ... MyTime inicializálása
If Hour(MyTime) >= 12 And Hour(MyTime) < 14 Then
' ... A megadott idő 12 és 14 óra között van
End If
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
 |
A hét első napja vasárnap. |
Rendszerdátum és -idő beolvasása
Az Apache OpenOffice Basicben a következő függvényekkel lehet beolvasni rendszeridőt és -dátumot:
- Date
- visszaadja az aktuális dátumot karakterláncként. A formátum a területi beállításoktól függ.
- Time
- visszaadja az aktuális időt karakterláncként.
- Now
- visszaadja az aktuális időpontot (dátum és idő együtt) egy Date típusú kombinált értékként.
| Content on this page is licensed under the Public Documentation License (PDL). |
