zoukankan      html  css  js  c++  java
  • WeeksInAYear、WeeksInYear、DaysInAYear、DaysInAMonth、DaysInYear、DaysInMonth 获取指定年月的周、日数

    DateUtils.DaysInYear();
    DateUtils.DaysInMonth();
    DateUtils.DaysInAYear();
    DateUtils.DaysInAMonth();
    DateUtils.WeeksInYear();
    DateUtils.WeeksInAYear();
    

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses DateUtils;
    
    procedure TForm1.FormCreate(Sender: TObject);
    var
      dt: TDateTime;
      w: Word;
    begin
      dt := StrToDateTime('2009-5-20 11:22:33');
    
      {指定日期所在年的总天数}
      w := DaysInYear(dt);        //365
    
      {指定日期所在月的总天数}
      w := DaysInMonth(dt);       //31
    
      {指定年的总天数}
      w := DaysInAYear(2009);     //365
    
      {指定年、指定月的总天数}
      w := DaysInAMonth(2009, 5); //31
    
      {指定日期所在年的总周数}
      w := WeeksInYear(dt);       //53
    
      {指定年的总周数}
      w := WeeksInAYear(2009);    //53
    end;
    
    end.
    


    DateUtils-Function
  • 相关阅读:
    SDOI2011古代朱文
    LIS 堆优化
    ZR2019 广州 游记
    LG2709 小B的询问
    [SCOI2009] 生日礼物
    [SDOI2008]沙拉公主的困惑
    [LG3396]哈希冲突
    ZROI2018.8.2 菜鸡互啄杯组队 ACM 赛
    ZROI 菜鸡互啄杯 III
    [LG4016] 负载平衡问题
  • 原文地址:https://www.cnblogs.com/del/p/1470540.html
Copyright © 2011-2022 走看看