Funktionen zur Berechnung und Anzeige von Datum/Uhrzeit

Anzeige bestimmter Datumswerte

• Der aktuelle Monat:
  DatSeriell(Jahr(Datum()); Monat(Datum());1)
• Der nächste Monat:
  DatSeriell(Jahr(Datum());Monat(Datum())+1;1)
• Der letzte Tag des aktuellen Monats:
  DatSeriell(Jahr(Datum());Monat(Datum())+1;0)
• Der letzte Tag des nächsten Monats:
  DatSeriell(Jahr(Datum());Monat(Datum())2;0)
• Der erste Tag des vorhergehenden Monats:
  DatSeriell(Jahr(Datum()); Monat(Datum())-1,1)
• Der letzte Tag des vorhergehenden Monats:
  DatSeriell(Jahr(Datum()); Monat(Datum()),0)
• Der erste Tag des aktuellen Quartals:
  DatSeriell(Jahr(Datum()); Int(Monat(Datum()) - 1) / 3) * 3 + 1, 1)
• Der letzte Tag des aktuellen Quartals:
  DatSeriell(Jahr(Datum()); Int(Monat(Datum()) - 1) / 3) * 3 + 4, 0)
• Der erste Tag der aktuellen Woche (vorausgesetzt Sonntag = Tag 1):
  Datum()-Wochentag(Datum())1
• der letzte Tag der aktuellen Woche:
  Datum()-Wochentag(Datum())+7
• Der erste Tag der aktuellen Woche (unter Benutzung der Einstellungen im Dialogfeld "Optionen"):
  Datum()-Wochentag(Datum();0)1
• der letzte Tag der aktuellen Woche:
  Datum()-Wochentag(Datum();0)+7

Zum Anfang

Berechnung von Zeitintervallen

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

 '-------------------------------------------------------------------
 ' This sample code separates a time interval into seven variables for
 ' the following values: days, hours, minutes, seconds, total time in
 ' hours, total time in minutes, and total time in seconds.
 '
 ' The interval argument is flexible; it can be a single value, an
 ' expression, or a field reference.
 '-------------------------------------------------------------------

 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

• Die Funktion GetElapsedDays() berechnet die abgelaufene Zeit zwischen zwei Datum-/Zeitwerten und zeigt das Ergebnis in Tagen an.
• Die Funktion GetElapsedTime() berechnet die abgelaufene Zeit zwischen Zeitwerten und zeigt das Ergebnis in Tagen, Stunden, Minuten und Sekunden an.
• Die Funktion GetTimeCardTotal() summiert ein Feld mit Zeitwerten in einer Tabelle und zeigt die Gesamtzeit in Stunden und Minuten an.

Zum Anfang

Beispielfunktion "GetElapsedDays()"

1. Öffnen Sie die Beispieldatenbank "Nordwind.mdb".
2. Erstellen Sie ein Modul und geben Sie die folgende Zeile im Deklarationsbereich ein, falls sie dort nicht bereits vorhanden ist:

    Option Explicit

3. Geben Sie die folgende Funktion ein:

    Function GetElapsedDays (interval)
       Dim days As Long
   
       days = Int(CSng(interval))
       GetElapsedDays = days & " Days "
    End Function

4. Um diese Funktion zu testen, erstellen Sie eine neue Abfrage basierend auf der Tabelle "Bestellungen".
5. Fügen Sie im QBE-Raster die folgenden Felder hinzu.

       Feld: Versanddatum
       Anzeigen: Ja
   
       Feld: Bestelldatum
       Anzeigen: Ja
   
       Feld: ElapsedTime: GetElapsedDays([Versanddatum]-[Bestelldatum])
       Anzeigen: Ja

6. Führen Sie die Abfrage aus. Beachten Sie, dass die Spalte "ElapsedTime" die Anzahl der Tage zwischen dem Feld "Versanddatum" und dem Feld "Bestelldatum" für jeden Datensatz in der Tabelle "Bestellungen" anzeigt.

Zum Anfang

Beispielfunktion "GetElapsedTime()"

1. Erstellen Sie eine neue Tabelle mit der folgenden Struktur und speichern Sie sie als "TimeLog".

       Tabelle: TimeLog
       -----------------------
       Feldname: Anfangszeit
       Datentyp: Datum/Uhrzeit
       Format: Standarddatum
   
       Feldname: Endzeit
       Datentyp: Datum/Uhrzeit
       Format: Standarddatum

2. Zeigen Sie die "TimeLog"-Tabelle in der Datenblattansicht an, geben Sie die folgenden drei Datensätze ein und schließen Sie anschließend die Tabelle:

       Anfangszeit              Endzeit
       --------------------------------------------
       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

3. Erstellen Sie ein Modul und geben Sie die folgende Zeile in den Deklarationsbereich ein:

    Option Explicit

4. Geben Sie die folgende Funktion ein:
   

    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 & " Days " & hours & " Hours " & Minutes & _
    " Minutes " & Seconds & " Seconds "
   
    End Function

   
   Hinweis: Bei der Funktion GetElapsedTime müssen ein Datum und eine Uhrzeit eingegeben werden.
5. Um diese Funktion zu testen, erstellen Sie mit dem AutoBericht-Assistenten einen neuen Bericht auf Basis der Tabelle TimeLog.
6. Zeigen Sie den Bericht in der Entwurfsansicht an.
7. Fügen Sie ein ungebundenes Textfeld zum Detailbereich der Tabelle "TimeLog" hinzu, und stellen Sie die Eigenschaften folgendermaßen ein:

       Textfeld
       ---------------
       Name: ElapsedTime
       Steuerelementinhalt: =GetElapsedTime([Endzeit]-[Anfangszeit])
       Breite: 7,5 cm

8. Öffnen Sie die Berichtsvorschau. Beachten Sie, dass jeder Datensatz die abgelaufene Gesamtzeit in Tagen, Stunden, Minuten und Sekunden anzeigt.

Zum Anfang

Beispielfunktion "GetTimeCardTotal()"

1. Erstellen Sie eine neue Tabelle mit der folgenden Struktur, und speichern Sie sie als "TimeCard".

       Tabelle: TimeCard
       -----------------------
       Feldname: Daily Hours
       Datentyp: Datum/Uhrzeit
       Format: Zeit, 24Std.

2. Zeigen Sie die "TimeCard"-Tabelle in der Datenblattansicht an, geben Sie die folgenden vier Datensätze ein und schließen Sie anschließend die Tabelle:

       8:15
       7:37
       8:12
       8:03

3. Erstellen Sie ein Modul, und geben Sie die folgende Zeile in den Deklarationsbereich ein, falls sie nicht bereits vorhanden ist:

    Option Explicit

4. Geben Sie die folgende Funktion ein:

    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 & " hours and " & minutes & " minutes"
   
    End Function

5. Um diese Funktion zu testen, geben Sie die folgende Zeile in das Direktfenster ein, und drücken Sie anschließend die [EINGABETASTE]:
   

    ?GetTimeCardTotal()

   
   Beachten Sie, dass das Direktfenster 32 Stunden und 7 Minuten anzeigt.

Zum Anfang