Access - monatlich neue DB erstellen

[Jürgen Thomas]

Zitat von stephan3309:

Nur mit dem Sichern zum Monatswechsel klappts mir nicht.
Wie könnte ich das berechnen?
Hat evtl. jemand einen Beispiel Code für mich?

Wann genau willst Du sichern?
1. mitten in der Nacht um 23:59:01 Uhr?
2. oder um 00:00:01 Uhr?
3. oder am Ultimo zum Arbeitsende, z.B. um 16:59:01 Uhr?
4. oder am Monatsanfang zum Arbeitsanfang, z.B. um 08:00:01 Uhr?

Welche Funktion(en) dies innerhalb der Access-DB regeln könnten, weiß ich nicht; weil als Ergebnis eine neue/leere DB entstehen soll, dürfte die Arbeit sowieso vom Programm aus gesteuert werden. Vorschlag:

Delphi-Quellcode:

function TForm1.Zeit_zum_Sichern: Boolean;
var Year, Month, Day: Word;
    Vergleich: TDateTime;
begin
  //  bei Variante 1 oder 3:
  Vergleich := Now + 1;
  //  bei Variante 2 oder 4:
  Vergleich := Now;
  //  Erklärung: 
  //  TDateTime sind Dezimalzahlen, bei denen der integer-Anteil dem Tag entspricht;
  //  es soll geprüft werden, ob das Vergleichsdatum der Monatsanfang ist
  //
  //  Standardfunktion aus SysUtils teilt das Datum auf:
  DecodeDate(Vergleich, Year, Month, Day);
  //  einfacher Vergleich auf 'Monatsanfang' genügt:
  Result := Day = 1;
end;

Damit könntest Du weiterkommen. Jürgen