Hallo,
wie kann ich in Access berechnen lassen, wieviele Minuten seid Jahresbeginn (01.01.04) bereits vergangen sind ?
Nicky
Hallo Nicky
wie kann ich in Access berechnen lassen, wieviele Minuten seid
Jahresbeginn (01.01.04) bereits vergangen sind ?
Dieser Funktion berechnet die vergangenen Minuten zwischen einem beliebigen Zeitpunkt und dem 1.1. 00:00 Uhr des Jahres in dem dieser Zeitpunkt liegt. Der Zeitpunkt wird als Parameter übergeben. Wird er nicht angegeben, so rechnet die Funktion mit dem Zeitpunkt zum Aufruf.
Function MinutesDiff(Optional datTimestamp) As Long
Dim datDateTime As Date, datStart As Date
If IsMissing(datTimestamp) Then
datDateTime = Now()
Else
datDateTime = CDate(datTimestamp)
End If
datStart = DateSerial(Year(datDateTime), 1, 1)
MinutesDiff = DateDiff("n", datStart, datDateTime)
End Function
Gruss
Peter
Und wie kann ich diese Funktion in einen Bericht einfügen ? Das mir dort die gewünschte Zahl angezeigt wird und ich mit Ihr weitere Berechnungen anstellen kann ?
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Nicky
Und wie kann ich diese Funktion in einen Bericht einfügen ?
Du kannst die Funktion in einem beliebigen Modul speichern, oder selbstverständlich auch im Bericht selbst (Ansicht --> Code).
Das mir dort die gewünschte Zahl angezeigt wird und ich mit
Ihr weitere Berechnungen anstellen kann ?
Angenommen, du hast 2 Felder im Seitenkopf des Berichts, ein Feld „MinDiff“ und ein Feld „StundenDiff“, dann kannst du z.B. die Felder im Format-Ereignis wie folgt füllen resp. damit „Berechnungen anstellen“:
Private Sub Seitenkopf\_Format(Cancel As Integer, FormatCount As Integer)
Me!MinDiff.Value = MinutesDiff() ' Minutenberechnungsfunktion aufrufen
Me!StundenDiff.Value = Me!MinDiff / 60 ' Minuten in Stunden umrechnen
End Sub
Gruss
Peter