Makale numaras�: 210604 - Son G�zden Ge�irme: 12 Mart 2007 Pazartesi - G�zden ge�irme: 5.1

Access'te Tarih/Saat de�erlerini hesaplama ve g�r�nt�leme i�levleri

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Orta: Temel makro, kodlama ve birlikte �al��abilirlik becerileri gerektirir.

Tarih/Saat de�erleri �ift duyarl�kl� say�lar olarak depoland�klar� i�in, bir ifadedeki Tarih/Saat de�erlerini d�zenlemeye �al��t��n�zda hatal� bi�imlendirme sonu�lar� alabilirsiniz. Bu makalede, belirli tarihleri g�r�nt�lemek ve zaman aral�klar�n� hesaplamak amac�yla nas�l ifade ve �zel i�levler olu�turulaca�� g�sterilmektedir.

Microsoft, programlama �rneklerini yaln�zca g�sterim amac�yla sa�lar; �rt�l� veya a��k garanti vermez. Bunlarla s�n�rl� olmamak kayd�yla, bu ifadeye sat�labilirlik veya belirli bir amaca uygunluk z�mni garantileri de dahildir. Bu makalede, g�sterilen programlama dilinin yan� s�ra yordam olu�turmak ve yordam hatalar�n� ay�klamak amac�yla kullan�lan ara�lar� kullanmay� bildi�iniz varsay�l�r. Microsoft destek m�hendisleri, belirli bir yordam�n i�levselli�inin a��klanmas�na yard�mc� olabilir, ancak gereksinimlerinizi kar��lamaya y�nelik olarak ek i�levsellik sa�lamak veya yordamlar geli�tirmek amac�yla bu �rnekleri de�i�tirmezler.

�ste

Daha fazla bilgi

Belirli tarihleri g�r�nt�leme

Belirli tarihleri g�r�nt�lemek i�in DateSerial() i�levini kullanarak bir tarihin g�n, ay ve y�l b�l�mlerini d�zenleyebilirsiniz. �rne�in, belirli tarihleri d�nd�rmek �zere bir metin kutusunun Denetim Kayna�� �zelli�inde veya Hemen penceresinde a�a��daki ifadeleri kullanabilirsiniz:

Ge�erli ay:
DateSerial(Year(Date()), Month(Date()), 1)
Gelecek ay:
DateSerial(Year(Date()), Month(Date()) + 1, 1)
Ge�erli ay�n son g�n�:
DateSerial(Year(Date()), Month(Date()) + 1, 0)
Gelecek ay�n son g�n�:
DateSerial(Year(Date()), Month(Date()) + 2, 0)
�nceki ay�n ilk g�n�:
DateSerial(Year(Date()), Month(Date())-1,1)
�nceki ay�n son g�n�:
DateSerial(Year(Date()), Month(Date()),0)
Ge�erli �� ayl�k d�nemin ilk g�n�:
DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)
Ge�erli �� ayl�k d�nemin son g�n�:
DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)
Ge�erli haftan�n ilk g�n� (Pazar g�n� = 1. g�n varsayarak):
Date() - WeekDay(Date()) + 1
Ge�erli haftan�n son g�n�:
Date() - WeekDay(Date()) + 7
Ge�erli haftan�n ilk g�n� (Se�enekler ileti�im kutusundaki ayarlar kullan�larak):
Date() - WeekDay(Date(), 0) + 1
Ge�erli haftan�n son g�n�:
Date() - WeekDay(Date(), 0) + 7

Mali y�l� veya mali ay� hesaplama hakk�nda daha fazla bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

210249� (http://support.microsoft.com/kb/210249/ ) Access 2000'de belirli bir tarihin hangi mali y�lda veya ayda oldu�unu belirleme (Bu ba�lant�, bir k�sm� veya tamam� �ngilizce olan i�eri�e i�aret edebilir)

D�KKAT Bu �rnekteki ad�mlar� uygularsan�z, Northwind.mdb adl� �rnek veritaban� de�i�tirilir. Northwind.mdb dosyas�n� yedeklemek ve bu ad�mlar� veritaban�n�n bir kopyas�nda uygulamak isteyebilirsiniz.

�ste

Zaman aral�klar�n� hesaplama

Saat de�eri, 24 saatlik g�n �zerinden bir kesir de�eri olarak depoland�� i�in, 24 saatten daha b�y�k olan saat verilerini eklemeye, ��karmaya, �arpmaya veya b�lmeye �al��t��n�zda hatal� bi�imlendirme sonu�lar� alabilirsiniz.

�rne�in, iki tarih aras�nda ge�en s�reyi saat cinsinden bulmak i�in Visual Basic'te de�erleri birbirinden ��kar�rsan�z yanl�� bir de�er elde edebilirsiniz. Bunu g�stermek i�in, a�a��daki kodu Hemen penceresine yaz�n ve do�ru de�er olan 53:00 saat yerine 0:00 saat de�erini d�nd�rd��ne dikkat edin:

   StartDate=#6/1/93 8:00AM#
   EndDate=#6/3/93 1:00PM#
   ?Format(EndDate-StartDate,"hh:mm")

24 saatten daha b�y�k saat de�erlerinin neden oldu�u bi�imlendirme sorunlar�n� gidermek i�in, Visual Basic'teki Int() ve CSng() i�levlerini kullanarak, hesaplanan bir saat de�erini g�n, saat, dakika ve saniye t�r�nden farkl� de�i�kenlere ay�rabilirsiniz. �rne�in, a�a��daki kod par�as�n� �zel bir i�leve ekleyerek ayr� saat de�i�kenleri olu�turabilirsiniz:

 '-------------------------------------------------------------------
 ' Bu �rnek kod bir zaman aral���n� �u de�erler i�in yedi de�i�kene
 ' ay�r�r: g�n, saat, dakika, saniye, saat olarak toplam s�re,
 ' dakika olarak toplam s�re ve saniye olarak toplam s�re.
 '
 ' Aral�k ba��ms�z de�i�keni esnektir; tek bir de�er, bir ifade
 ' veya bir alan ba�vurusu olabilir.
 '-------------------------------------------------------------------

 Dim totalhours As Long, totalminutes As Long, totalseconds As Long
 Dim days As Long, hours As Long, minutes As Long, seconds As Long
 Dim interval As Variant

 days = Int(CSng(interval))
 totalhours = Int(CSng(interval * 24))
 totalminutes = Int(CSng(interval * 1440))
 totalseconds = Int(CSng(interval * 86400))
 hours = totalhours Mod 24
 minutes = totalminutes Mod 60
 seconds = totalseconds Mod 60

Totalhours, totalminutes ve totalseconds de�i�kenlerini, bir saat de�erini tek bir saat birimi olarak g�r�nt�lemek i�in kullanabilirsiniz. G�n, saat, dakika ve saniye de�i�kenleri, bir saat de�erini par�alara ay�rman�za olanak verir. Saat de�erlerini farkl� bi�imlerde g�r�nt�lemek i�in, bu de�i�kenleri a�a��daki �rnek i�levlerde g�sterildi�i gibi bir arada kullanabilirsiniz:

GetElapsedDays() i�levi, iki tarih/saat de�eri aras�nda ge�en zaman� hesaplar ve sonucu g�n olarak g�r�nt�ler.
GetElapsedTime() i�levi, saat de�erleri aras�nda ge�en zaman� hesaplar ve sonucu g�n, saat, dakika ve saniye olarak g�r�nt�ler.
GetTimeCardTotal() i�levi, bir tablodaki saat de�erlerinden olu�an alan� toplar ve bu toplam� saat ve dakika olarak g�r�nt�ler.

�ste

GetElapsedDays() �rnek i�levi

GetElapsedDays() i�levini olu�turmak i�in �u ad�mlar� izleyin:

Northwind.mdb �rnek veritaban�n� a��n.
Bir mod�l olu�turun ve hen�z yoksa Tan�mlamalar b�l�m�ne a�a��daki sat�r� yaz�n:
Option Explicit

A�a��daki i�levi yaz�n:

 Function GetElapsedDays (interval)
    Dim days As Long

    days = Int(CSng(interval))
    GetElapsedDays = days & " G�n "
 End Function

Bu i�levi s�namak i�in, Orders tablosuna dayal� yeni bir sorgu olu�turun.

QBE k�lavuzuna a�a��daki alanlar� ekleyin.

    Field: ShippedDate
    Show: True

    Field: OrderDate
    Show: True

    Field: ElapsedTime: GetElapsedDays([ShippedDate]-[OrderDate])
    Show: True

Sorguyu �al��t�r�n. ElapsedTime s�tunu, Orders tablosundaki her bir kay�t i�in ShippedDate ile OrderDate alanlar� aras�ndaki g�n say�s�n� g�r�nt�ler.

�ste

GetElapsedTime() �rnek i�levi

GetElapsedTime() i�levini olu�turmak i�in �u ad�mlar� izleyin:

A�a��daki yap�da yeni bir tablo olu�turun ve bu tabloyu TimeLog olarak kaydedin.

    Table: TimeLog
    -----------------------
    Field Name: StartTime
    Data Type: Date/Time
    Format: General Date

    Field Name: EndTime
    Data Type: Date/Time
    Format: General Date

TimeLog tablosunu Veri Sayfas� g�r�n�m�nde g�r�nt�leyin, a�a��daki �� kayd� girin ve sonra da tabloyu kapat�n:

    StartTime                 EndTime
    --------------------------------------------
    5/10/95 4:57:00  PM       5/15/95 2:38:00 AM
    5/11/95 10:17:31 AM       5/24/95 6:05:00 PM
    5/18/95 9:16:43  AM       5/19/95 5:03:00 PM

Bir mod�l olu�turun ve Tan�mlamalar b�l�m�ne a�a��daki sat�r� yaz�n:
Option Explicit

A�a��daki i�levi girin:

 Function GetElapsedTime(interval)

 Dim totalhours As Long, totalminutes As Long, totalseconds As _
     Long
 Dim days As Long, hours As Long, Minutes As Long, Seconds As Long

 days = Int(CSng(interval))
 totalhours = Int(CSng(interval * 24))
 totalminutes = Int(CSng(interval * 1440))
 totalseconds = Int(CSng(interval * 86400))
 hours = totalhours Mod 24
 Minutes = totalminutes Mod 60
 Seconds = totalseconds Mod 60

 GetElapsedTime = days & " G�n " & hours & " Saat " & Minutes & _
 " Dakika " & Seconds & " Saniye "

 End Function

NOT: GetElapsedTime i�levi bir tarih ve saat ge�irmenizi gerektirir.

Bu i�levi s�namak i�in, Otomatik Rapor Sihirbaz�'n� kullanarak TimeLog tablosuna dayal� yeni bir rapor olu�turun.
Tasar�m g�r�n�m�nde raporu g�r�nt�leyin.

TimeLog tablosunun ayr�nt� b�l�m�ne bir ili�kisiz metin kutusu ekleyin ve �zelliklerini �u �ekilde ayarlay�n:

    Textbox
    ---------------
    Name: ElapsedTime
    ControlSource: =GetElapsedTime([EndTime]-[StartTime])
    Width: 3 inches

Rapora �nizleme yap�n. Her kayd�n toplam s�reyi g�n, saat, dakika ve saniye olarak g�r�nt�ledi�ini unutmay�n.

�ste

GetTimeCardTotal() �rnek i�levi

GetTimeCardTotal() i�levini olu�turmak i�in �u ad�mlar� izleyin:

NOT: Bu makaledeki �rnek kod Microsoft Data Access Objects kullan�r. Bu kodun d�zg�n �al��mas� i�in Microsoft DAO 3.6 Nesne Kitapl��'na ba�vurmal�s�n�z. Bunu yapmak i�in, Visual Basic Editor'�n Tools (Ara�lar) men�s�nde References'� (Ba�vurular) t�klat�n ve Microsoft DAO 3.6 Object Library (Microsoft DAO 3.6 Nesne Kitapl��) onay kutusunun i�aretli oldu�unu do�rulay�n.

A�a��daki yap�da yeni bir tablo olu�turun ve bu tabloyu TimeCard olarak kaydedin.

    Table: TimeCard
    -----------------------
    Field Name: Daily Hours
    Data Type: Date/Time
    Format: Short Time

TimeCard tablosunu Veri Sayfas� g�r�n�m�nde g�r�nt�leyin, a�a��daki d�rt kayd� girin ve sonra da tabloyu kapat�n:
```
    8:15
    7:37
    8:12
    8:03
```
Bir mod�l olu�turun ve hen�z yoksa Tan�mlamalar b�l�m�ne a�a��daki sat�r� yaz�n:
Option Explicit

A�a��daki i�levi yaz�n:

 Function GetTimeCardTotal ()

 Dim db As DAO.Database, rs As DAO.Recordset
 Dim totalhours As Long, totalminutes As Long
 Dim days As Long, hours As Long, minutes As Long
 Dim interval As Variant, j As Integer

 Set db = dbengine.workspaces(0).databases(0)
 Set rs = db.OpenRecordset("timecard")
 interval = #12:00:00 AM#
    While Not rs.EOF
       interval = interval + rs![Daily hours]
       rs.MoveNext
    Wend
 totalhours = Int(CSng(interval * 24))
 totalminutes = Int(CSng(interval * 1440))
 hours = totalhours Mod 24
 minutes = totalminutes Mod 60

 GetTimeCardTotal = totalhours & " saat ve " & minutes & " dakika"

 End Function

Bu i�levi s�namak i�in, Hemen Penceresi'ne a�a��daki sat�r� yaz�n ve ENTER tu�una bas�n:
?GetTimeCardTotal()
Hemen Penceresi'nde 32 saat ve 7 dakika g�r�nt�lenir.

�ste

Referanslar

Tarih/Saat de�erlerini hesaplama hakk�nda daha fazla bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

210276� (http://support.microsoft.com/kb/210276/ ) Tarih/Saat verilerini depolama, hesaplama ve kar��la�t�rma (Bu ba�lant�, bir k�sm� veya tamam� �ngilizce olan i�eri�e i�aret edebilir)

�ste

Bu makaledeki bilginin uyguland�� durum:

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

�ste

kbhowto kbprogramming KB210604

�ste

Di�er Kaynaklar

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Destek Uzman�ndan; E-posta, �evrimi�i veya Telefonda Yard�m Al�n

Makale �evirileri

United States (English)

This site in other countries/regions:

Access'te Tarih/Saat de�erlerini hesaplama ve g�r�nt�leme i�levleri

Bu Sayfada

�zet

Daha fazla bilgi

Belirli tarihleri g�r�nt�leme

Zaman aral�klar�n� hesaplama

GetElapsedDays() �rnek i�levi

GetElapsedTime() �rnek i�levi

GetTimeCardTotal() �rnek i�levi

Referanslar

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

This site in other countries/regions:

Access'te Tarih/Saat de�erlerini hesaplama ve g�r�nt�leme i�levleri

Bu Sayfada

�zet

Daha fazla bilgi

Belirli tarihleri g�r�nt�leme

Zaman aral�klar�n� hesaplama

GetElapsedDays() �rnek i�levi

GetElapsedTime() �rnek i�levi

GetTimeCardTotal() �rnek i�levi

Referanslar

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

Bu makaledeki bilginin uyguland�� durum: