zoukankan      html  css  js  c++  java
  • Delphi中本年、本月、本周第一天和最后一天

    uses DateUtils;

    function StartOfTheYear(const AValue: TDateTime): TDateTime;
    function EndOfTheYear(const AValue: TDateTime): TDateTime;
    function StartOfAYear(const AYear: Word): TDateTime;
    function EndOfAYear(const AYear: Word): TDateTime;

    function StartOfTheMonth(const AValue: TDateTime): TDateTime;
    function EndOfTheMonth(const AValue: TDateTime): TDateTime;
    function StartOfAMonth(const AYear, AMonth: Word): TDateTime;
    function EndOfAMonth(const AYear, AMonth: Word): TDateTime;

    function StartOfTheWeek(const AValue: TDateTime): TDateTime;           {ISO 8601}
    function EndOfTheWeek(const AValue: TDateTime): TDateTime;             {ISO 8601}
    function StartOfAWeek(const AYear, AWeekOfYear: Word;                  {ISO 8601}
       const ADayOfWeek: Word = 1): TDateTime;
    function EndOfAWeek(const AYear, AWeekOfYear: Word;                    {ISO 8601}
       const ADayOfWeek: Word = 7): TDateTime;

  • 相关阅读:
    第四周JSP作业
    jsp第二次作业
    3.4软件管理与测试作业
    jsp3月3日作业
    课后listview作业
    安卓sql
    activity带数据跳转
    answers
    阿里云ESC无法使用python发送邮件的问题
    Ubuntu 更改时区
  • 原文地址:https://www.cnblogs.com/mikemao/p/2218858.html
Copyright © 2011-2022 走看看