Cikk azonos�t�ja: 210604 - Utols� ellen�rz�s: 2007. m�rcius 12. - Verzi�sz�m: 5.1

A d�tum- �s id��rt�kek kisz�m�t�s�ra �s megjelen�t�s�re szolg�l� f�ggv�nyek az Access programban

A cikkben �rintett term�kek list�j�nak megtekint�se.

RendszertippA jelen cikk az �n �ltal haszn�ltt�l elt�r� oper�ci�s rendszerre vonatkozik. A cikk azon tartalmait, amelyek nem relev�nsak �nnek, letiltjuk.

Figyelem! A cikkben ismertetettek alkalmaz�s�hoz a makr�kkal, a programk�dk�sz�t�ssel �s az egy�ttm�k�d�si mechanizmusokkal kapcsolatos alapismeretek sz�ks�gesek.

A lap tartalma

Az �sszes kibont�sa | Az �sszes �sszecsuk�sa

Mivel a rendszer a d�tum- �s id��rt�ket dupla pontoss�g� sz�mk�nt t�rolja, el�fordulhat, hogy amikor a d�tum �s id� �rt�k�t kifejez�sben pr�b�lja meg m�dos�tani, a form�z�si eredm�ny helytelen lesz. A cikk bemutatja, hogy meghat�rozott d�tumok megjelen�t�s�hez �s id�tartamok kisz�m�t�s�hoz hogyan hozhat l�tre kifejez�seket �s egy�ni f�ggv�nyeket.

A Microsoft csak szeml�ltet�si c�lb�l ad k�zre programoz�si p�ld�kat, �s azokra � bele�rtve a forgalomba hozhat�s�got �s az adott c�lra val� megfelel�s�get is � sem t�rv�nyi, sem m�sf�le garanci�t nem v�llal. A cikkben ismertetettek alkalmaz�s�hoz a szeml�ltet�sre szolg�l� programoz�si nyelvben, valamint az elj�r�sok l�trehoz�s�ra �s a vel�k kapcsolatos hibakeres�sre szolg�l� eszk�z�k haszn�lat�ban val� j�rtass�g sz�ks�ges. A Microsoft t�mogat�si szakemberei seg�ts�get ny�jthatnak egy-egy adott elj�r�s funkci�j�nak meg�rt�s�ben, de funkci�b�v�t�si c�lb�l nem m�dos�tj�k a p�ld�kat, �s nem k�sz�tenek az egy�ni ig�nyeknek megfelel� elj�r�sokat.

A lap tetej�re

Tov�bbi inform�ci�

Meghat�rozott d�tumok megjelen�t�se

Meghat�rozott d�tumok megjelen�t�s�hez a DateSerial() f�ggv�ny seg�ts�g�vel m�dos�thatja a d�tumban szerepl� napot, h�napot �s �vet. Az al�bbi kifejez�sek haszn�lat�val meghat�rozott d�tumot jelen�thet meg p�ld�ul egy sz�vegmez� Mez� vagy kifejez�s tulajdons�g�ban vagy a parancs�rtelmez� ablakban:

Az aktu�lis h�nap:
DateSerial(Year(Date()), Month(Date()), 1)
A k�vetkez� h�nap:
DateSerial(Year(Date()), Month(Date()) + 1, 1)
Az aktu�lis h�nap utols� napja:
DateSerial(Year(Date()), Month(Date()) + 1, 0)
A k�vetkez� h�nap utols� napja:
DateSerial(Year(Date()), Month(Date()) + 2, 0)
Az el�z� h�nap els� napja:
DateSerial(Year(Date()), Month(Date())-1,1)
Az el�z� h�nap utols� napja:
DateSerial(Year(Date()), Month(Date()),0)
Az aktu�lis negyed�v els� napja:
DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)
Az aktu�lis negyed�v utols� napja:
DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)
Az aktu�lis h�t els� napja (felt�telezve, hogy a h�t els� napja vas�rnap):
Date() - WeekDay(Date()) + 1
Az aktu�lis h�t utols� napja:
Date() - WeekDay(Date()) + 7
Az aktu�lis h�t els� napja (a Be�ll�t�sok p�rbesz�dpanel be�ll�t�sainak haszn�lat�val):
Date() - WeekDay(Date(), 0) + 1
Az aktu�lis h�t utols� napja:
Date() - WeekDay(Date(), 0) + 7

A p�nz�gyi �v �s h�nap kisz�m�t�s�r�l a Microsoft Tud�sb�zis al�bbi cikk�ben t�j�koz�dhat:

210249� (http://support.microsoft.com/kb/210249/ ) Adott d�tumhoz tartoz� p�nz�gyi �v vagy h�nap meghat�roz�sa az Access 2000 programban (El�fordulhat, hogy a hivatkoz�s r�szben vagy teljes eg�sz�ben angol nyelv� tartalomra mutat.)

FIGYELMEZTET�S: Ha v�grehajtja a p�ld�ban szerepl� l�p�seket, azzal m�dos�tja a Northwind.mdb mintaadatb�zist. Ha k�v�nja, a Northwind.mdb f�jlr�l k�sz�tsen biztons�gi m�solatot, �s a l�p�seket a m�solaton hajtsa v�gre.

A lap tetej�re

Id�tartamok kisz�m�t�sa

Mivel az id��rt�keket a rendszer a 24 �r�s nap t�rtr�szek�nt t�rolja, a 24 �r�n�l nagyobb id�adatok �sszead�sakor, kivon�sakor, szorz�sakor �s oszt�sakor el�fordulhat, hogy a form�z�si eredm�ny helytelen.

Ha a Visual Basic programban p�ld�ul k�t d�tum k�z�tt eltelt �rasz�mot az �rt�kek kivon�s�val szeretne kisz�m�tani, el�fordulhat, hogy az eredm�ny helytelen lesz. Ennek szeml�ltet�s�hez �rja be az al�bbi k�dot a parancs�rtelmez� ablakba, �s figyelje meg, hogy 0:00 �ra jelenik meg a helyes 53:00 �ra helyett:

   Kezd�D�tum=#1993/06/01 8:00#
   Z�r�D�tum=#1993/06/03 13:00#
   ?Format(Z�r�D�tum-Kezd�D�tum,"hh:mm")

A 24 �r�n�l nagyobb id��rt�kek form�z�si probl�m�inak megold�s�hoz haszn�lja a Visual Basic Int() vagy CSng() f�ggv�ny�t, amelyek seg�ts�g�vel a kisz�m�tott id��rt�ket k�l�n�ll�, a napot, az �r�t, a percet �s a m�sodpercet tartalmaz� v�ltoz�kra oszthatja fel. A k�l�n�ll� id�v�ltoz�kat p�ld�ul az al�bbi k�dr�szlettel hozhatja l�tre az egy�ni f�ggv�nyben:

 '-------------------------------------------------------------------
 ' Ez a mintak�d az id�tartamot h�t k�l�n�ll� v�ltoz�ra osztja
 ' a k�vetkez�k szerint: nap, �ra, perc, m�sodperc, �sszes id�
 ' (�ra), �sszes id� (perc), �sszes id� (m�sodperc).
 '
 ' Az id�tartam argumentum rugalmas, lehet egyetlen �rt�k,
 ' egy kifejez�s vagy egy mez�hivatkoz�s.
 '-------------------------------------------------------------------

 Dim �sszes�ra As Long, �sszesperc As Long, �sszesm�sodperc As Long
 Dim napok As Long, �r�k As Long, percek As Long, m�sodpercek As Long
 Dim id�tartam As Variant

 napok = Int(CSng(id�tartam))
 �sszes�ra = Int(CSng(id�tartam * 24))
 �sszesperc = Int(CSng(id�tartam * 1440))
 �sszesm�sodperc = Int(CSng(id�tartam * 86400))
 �r�k = �sszes�ra Mod 24
 percek = �sszesperc Mod 60
 m�sodpercek = �sszesm�sodperc Mod 60

Az �sszes�ra, az �sszesperc �s az �sszesm�sodperc v�ltoz�k seg�ts�g�vel az id��rt�ket egyetlen sz�mk�nt jelen�theti meg. A napok, az �r�k, a percek �s a m�sodpercek v�ltoz�k az id��rt�k egyes r�szeinek megjelen�t�s�re haszn�lhat�k. Ha az id��rt�keket m�s form�tumban szeretn� megjelen�teni, a v�ltoz�kat az al�bbi mintaf�ggv�nyekben l�that� m�don �sszef�zheti:

Az ElteltNapok() f�ggv�nnyel k�t d�tum vagy id�pont k�z�tt eltelt id�tartam sz�m�that� ki, ahol az eredm�ny napban jelenik meg.
Az ElteltId�() f�ggv�nnyel k�t d�tum vagy id�pont k�z�tt eltelt id�tartam sz�m�that� ki, ahol az eredm�ny napban, �r�ban, percben �s m�sodpercben jelenik meg.
Az �sszid�() f�ggv�nnyel az id��rt�keket tartalmaz� mez�k egy t�bl�ban �sszes�thet�k, ahol az �sszid� �r�ban �s percben jelenik meg.

A lap tetej�re

Az ElteltNapok() mintaf�ggv�ny

Az ElteltNapok() f�ggv�ny l�trehoz�s�hoz hajtsa v�gre az al�bbi l�p�seket:

Nyissa meg a Northwind.mdb mintaadatb�zist.
Hozzon l�tre egy modult, �s a deklar�ci�s r�szbe �rja be az al�bbi sort, ha az m�g nem szerepel benne:
Option Explicit

�rja be az al�bbi f�ggv�nyt:

 Function ElteltNapok (id�tartam)
    Dim napok As Long

    napok = Int(CSng(id�tartam))
    ElteltNapok = napok & " nap "
 End Function

A f�ggv�ny tesztel�s�hez hozzon l�tre egy �j lek�rdez�st a Rendel�sek t�bla alapj�n.

A QBE adatr�csban adja hozz� az al�bbi mez�ket.

    Mez�: Sz�ll�t�si d�tum
    Megjelen�t�s: Bejel�lve

    Mez�: Rendelve
    Megjelen�t�s: Bejel�lve

    Mez�: Eltelt id�: ElteltNapok([Sz�ll�t�si d�tum]-[Rendelve])
    Megjelen�t�s: Bejel�lve

Futtassa a lek�rdez�st. Az Eltelt id� oszlopban a Rendel�sek t�bla minden rekordj�ra vonatkoz�an a Sz�ll�t�si d�tum �s a Rendelve mez� d�tumai k�z�tt eltelt napok sz�ma l�that�.

A lap tetej�re

Az ElteltId�() mintaf�ggv�ny

Az ElteltId�() f�ggv�ny l�trehoz�s�hoz hajtsa v�gre az al�bbi l�p�seket:

Hozzon l�tre egy �j t�bl�t az al�bbi strukt�r�val, �s mentse Id�napl� n�ven.

    T�bla: Id�napl�
    -----------------------
    Mez�n�v: Kezd� id�pont
    Adatt�pus: D�tum/Id�
    Form�tum: �ltal�nos d�tum

    Mez�n�v: Z�r� id�pont
    Adatt�pus: D�tum/Id�
    Form�tum: �ltal�nos d�tum

Tekintse meg az Id�napl� t�bl�t Adatlap n�zetben, �rja be az al�bbi h�rom rekordot, majd z�rja be a t�bl�t:

    Kezd� id�pont              Z�r� id�pont
    -----------------------------------------------
    1995.05.10. 16:57:00       1995.05.15.  2:38:00
    1995.5.11.  10:17:31       1995.05.24. 18:05:00
    1995.05.18.  9:16:43       1995.05.19. 17:03:00

Hozzon l�tre egy modult, �s �rja be az al�bbi sort a deklar�ci�s szakaszba:
Option Explicit

�rja be az al�bbi f�ggv�nyt:

 Function ElteltId�(id�tartam)

 Dim �sszes�ra As Long, �sszesperc As Long, �sszesm�sodperc As _
     Long
 Dim napok As Long, �r�k As Long, percek As Long, m�sodpercek As Long

 napok = Int(CSng(id�tartam))
 �sszes�ra = Int(CSng(id�tartam * 24))
 �sszesperc = Int(CSng(id�tartam * 1440))
 �sszesm�sodperc = Int(CSng(id�tartam * 86400))
 �r�k = �sszes�ra Mod 24
 percek = �sszesperc Mod 60
 m�sodpercek = �sszesm�sodperc Mod 60

 ElteltId� = napok & " nap " & �r�k & " �ra " & percek & _
 " perc " & m�sodpercek & " m�sodperc "

 End Function

Megjegyz�s: Az ElteltId� f�ggv�ny sz�m�ra d�tumot �s id�pontot kell megadni.

A f�ggv�ny tesztel�s�hez hozzon l�tre egy �j, az Id�napl� t�bl�n alapul� kimutat�st a Jelent�s var�zsl� seg�ts�g�vel.
Tekintse meg a kimutat�st Tervez� n�zetben.

Az Id�napl� t�bla adatokat tartalmaz� szakasz�ban adjon hozz� egy k�tetlen sz�vegmez�t, �s a tulajdons�gait �ll�tsa be az al�bbiak szerint:

    Beviteli mez�
    ---------------
    N�v: Eltelt id�
    Mez� vagy kifejez�s: =ElteltId�([Z�r� id�pont]-[Kezd� id�pont])
    Sz�less�g: 7,6 cm

Tekintse meg a kimutat�s el�n�zet�t. A rekordokban a teljes eltelt id� napban, �r�ban, percben �s m�sodpercben jelenik meg.

A lap tetej�re

Az �sszid�() mintaf�ggv�ny

Az �sszid�() f�ggv�ny l�trehoz�s�hoz hajtsa v�gre az al�bbi l�p�seket:

Megjegyz�s: A cikkben szerepl� mintak�d a Microsoft Data Access Objects alkalmaz�st haszn�lja. A k�d megfelel� futtat�s�hoz hivatkoznia kell a Microsoft DAO 3.6 objektumt�r�ra. Ehhez a Visual Basic Editor programban kattintson a Tools (Eszk�z�k) men� References (Hivatkoz�sok) parancs�ra, �s gy�z�dj�n meg arr�l, hogy a Microsoft DAO 3.6 Object Library (Microsoft DAO 3.6 objektumt�ra) jel�l�n�gyzet be van jel�lve.

Hozzon l�tre egy �j t�bl�t az al�bbi strukt�r�val, �s mentse Id�kimutat�s n�ven.

    T�bla: Id�kimutat�s
    -----------------------
    Mez�n�v: Napi �rasz�m
    Adatt�pus: D�tum/Id�
    Form�tum: R�vid id�

Tekintse meg az Id�kimutat�s t�bl�t Adatlap n�zetben, �rja be az al�bbi n�gy rekordot, majd z�rja be a t�bl�t:
```
    8:15
    7:37
    8:12
    8:03
```
Hozzon l�tre egy modult, �s a deklar�ci�s r�szbe �rja be az al�bbi sort, ha az m�g nem szerepel benne:
Option Explicit

�rja be az al�bbi f�ggv�nyt:

 Function �sszid� ()

 Dim db As DAO.Database, rs As DAO.Recordset
 Dim �sszes�ra As Long, �sszesperc As Long
 Dim napok As Long, �r�k As Long, percek As Long
 Dim id�tartam As Variant, j As Integer

 Set db = dbengine.workspaces(0).databases(0)
 Set rs = db.OpenRecordset("id�kimutat�s")
 id�tartam = #12:00:00#
    While Not rs.EOF
       id�tartam = id�tartam + rs![Napi �rasz�m]
       rs.MoveNext
    Wend
 �sszes�ra = Int(CSng(id�tartam * 24))
 �sszesperc = Int(CSng(id�tartam * 1440))
 �r�k = �sszes�ra Mod 24
 percek = �sszesperc Mod 60

 �sszid� = �sszes�ra & " �ra �s " & percek & " perc"

 End Function

A f�ggv�ny tesztel�s�hez �rja be az al�bbi sort a parancs�rtelmez� ablakba, majd nyomja le az ENTER billenty�t:
?GetTimeCardTotal()
A parancs�rtelmez� ablakban 32 �ra �s 7 perc jelenik meg.

A lap tetej�re

Hivatkoz�sok

A d�tum- �s id��rt�kek kisz�m�t�s�r�l a Microsoft Tud�sb�zis al�bbi cikk�ben t�j�koz�dhat:

210276� (http://support.microsoft.com/kb/210276/ ) D�tum- �s id�adatok t�rol�sa, kisz�m�t�sa �s �sszehasonl�t�sa a Microsoft Access programban

A lap tetej�re

A cikkben tal�lhat� inform�ci� a k�vetkez�(k)re vonatkozik:

Microsoft Office Access 2007
Microsoft Office Access 2003
Microsoft Access 2002 Standard Edition
Microsoft Access 2000 Standard Edition

A lap tetej�re

kbhowto kbprogramming KB210604

A lap tetej�re

A Microsoft tud�sb�zisban szolg�ltatott inform�ci�kat "az adott �llapotban", b�rminem� szavatoss�g vagy garancia n�lk�l biztos�tjuk. A Microsoft kiz�r mindennem�, ak�r kifejezett, ak�r v�lelmezett szavatoss�got vagy garanci�t, ide�rtve a forgalomk�pess�gre �s az adott c�lra val� alkalmass�gra vonatkoz� szavatoss�got is. A Microsoft Corporation �s annak besz�ll�t�i semmilyen k�r�lm�nyek k�z�tt nem felel�sek semminem� k�r�rt, �gy a k�zvetlen, a k�zvetett, az �zleti haszon elmarad�s�b�l sz�rmaz� vagy speci�lis k�rok�rt, illetve a k�r k�vetkezm�nyek�nt felmer�l� k�lts�gek megt�r�t�s��rt, m�g abban az esetben sem, ha a Microsoft Corporationt vagy besz�ll�t�it az ilyen k�rok bek�vetkezt�nek lehet�s�g�re figyelmeztett�k. Egyes �llamok joga nem teszi lehet�v� bizonyos k�rok�rt a felel�ss�g kiz�r�s�t vagy korl�toz�s�t, ez�rt a fenti korl�toz�sok az �n eset�ben esetleg nem alkalmazhat�k.

Egy�b forr�sok

Tov�bbi t�mogat�s

K�z�ss�g

Azonnali seg�ts�g

Kapcsolatfelv�tel egy t�mogat�si szakemberrel e-mailben, online vagy telefonon

A cikk ford�t�sa

United States (English)

This site in other countries/regions:

A d�tum- �s id��rt�kek kisz�m�t�s�ra �s megjelen�t�s�re szolg�l� f�ggv�nyek az Access programban

A lap tartalma

�sszefoglal�

Tov�bbi inform�ci�

Meghat�rozott d�tumok megjelen�t�se

Id�tartamok kisz�m�t�sa

Az ElteltNapok() mintaf�ggv�ny

Az ElteltId�() mintaf�ggv�ny

Az �sszid�() mintaf�ggv�ny

Hivatkoz�sok

A cikkben tal�lhat� inform�ci� a k�vetkez�(k)re vonatkozik:

Kulcsszavak:�

Tov�bbi t�mogat�s

K�z�ss�g

Azonnali seg�ts�g

A cikk ford�t�sa

Kapcsol�d� t�mogat�k�zpontok