delphi-4 - Delphi 4 从现在开始获取 YYYYMM 字符串

Question

Now我想从程序和 Delphi 4 中当前字符串的前一个月获取字符串 'YYYYMM' 。

例如：（202106现在）和202105（现在 - 1）

怎么买得起？

Answer 1

您可以使用DecodeDate将 TDateTime（例如 Now）拆分为年、月和日部分。然后，您可以使用Format将 4 位数年份和月份的字符串创建为带有前导零的 2 位数：

var
    Year, Month, Day: Word;
    Today     : TDateTime;
    Yesterday : TDateTime;
    SToday     : String;
    SYesterday : String;
begin
    Today     := Now;
    Yesterday := Today - 1;

    DecodeDate(Today, Year, Month, Day);
    SToday := Format('%04d%02d', [Year, Month]);

    DecodeDate(Yesterday, Year, Month, Day);
    SYesterday := Format('%04d%02d', [Year, Month]);
end;