Gewusst wie: Abrufen des Geschäftsjahres oder Monat von einem bestimmten Datum in Access 2000

Zum Anfang

Einen Ausdruck verwenden, um das Geschäftsjahr oder steuerlich Monat abrufen

1. Öffnen Sie die Beispieldatenbank "Nordwind.mdb".
2. Erstellen Sie die folgende neue Abfrage auf die Tabelle Bestellungen basiert.
   
   Hinweis : in den folgenden Beispielausdrücken wird der Unterstrich (_) am Ende einer Zeile als ein Zeilenfortsetzungszeichen benutzt. Entfernen Sie den Unterstrich vom Ende der Zeile, wenn diese Beispielausdrücke Neuerstellen.

      Query: GetFiscalDates
      -------------------------------------------------------------------
      Field: OrderDate
         Table: Orders
         Criteria: DatePart("yyyy",[OrderDate])=1997
      Field: FYear: Year([OrderDate])-IIf([OrderDate]< _
               DateSerial(Year([OrderDate]),6,16),1,0)
      Field: FMonth: (Month([OrderDate])+IIf(Day([OrderDate])<16,6,7)-1) _
                     Mod 12+1
   					

3. Führen Sie die Abfrage, und Blättern Sie durch das Abfragedatenblatt. Beachten Sie, dass das Geschäftsjahr und Geschäftsmonat für jeden Datensatz in der Tabelle Bestellungen angezeigt werden.

   Field: FYear: Year([FieldName])-IIf([FieldName]< _
            DateSerial(Year([FieldName]),9,15),1,0)

   Field: FMonth: (Month([FieldName])+IIf(Day([FieldName])<15,9,10)-1) _
            Mod 12+1
				

   Field: FYear: Year([FieldName])-IIf([FieldName]< _
            DateSerial(Year([FieldName]),9,15),1,0)+1
				

Zum Anfang

Mithilfe von Beispiel-Funktion erhalten Sie das Geschäftsjahr oder steuerlich Monat

1. Erstellen Sie ein Modul und geben Sie die folgenden Zeilen in den Deklarationsbereich:

   Option Explicit
   Const FMonthStart = 6   ' Numeric value representing the first month
                           ' of the fiscal year.
   Const FDayStart = 16    ' Numeric value representing the first day of
                           ' the fiscal year.
   Const FYearOffset = -1  ' 0 means the fiscal year starts in the
                           ' current calendar year.
                           ' -1 means the fiscal year starts in the
                           ' previous calendar year.
   					

2. Geben Sie die folgenden zwei Prozeduren:

   Function GetFiscalYear(ByVal x As Variant)
      If x < DateSerial(Year(x), FMonthStart, FDayStart) Then
         GetFiscalYear = Year(x) - FYearOffset - 1
      Else
         GetFiscalYear = Year(x) - FYearOffset
      End If
   End Function
   					

   Function GetFiscalMonth(ByVal x As Variant)
      Dim m
      m = Month(x) - FMonthStart + 1
      If Day(x) < FDayStart Then m = m - 1
      If m < 1 Then m = m + 12
      GetFiscalMonth = m
   End Function
   					

3. Um diese Funktionen zu testen, geben Sie die folgenden Zeilen im benachbarten Fenster, und drücken Sie nach jeweils die EINGABETASTE:

   ?GetFiscalYear(#7/1/1999#)
   						

   beachten, dass diese Zeile das Jahr 2000 zurückgibt.

   ?GetFiscalMonth(#8/1/1999#)
   						

   dieser Zeile die Zahl 2 zurück. 2 Stellt den zweiten Monat des Geschäftsjahrs.

Zum Anfang