Bedingung: nächster Monat beginnt

[DeddyH]

Ohne Komponente:

Delphi-Quellcode:

function CurrentMonthFileName(const DestDir: string): string;
const MY_EXTENSION = 'txt'; //gewünschte Dateiendung
begin
  Result := Format('%s%s.%s',[IncludeTrailingPathDelimiter(DestDir),
                              FormatDateTime('yyyy-mm',Date),
                              MY_EXTENSION]);
end;