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;

  • 相关阅读:
    [恢]hdu 2502
    [恢]hdu 1008
    [恢]hdu 2073
    [恢]hdu 2500
    [恢]hdu 2501
    [恢]hdu 2190
    [恢]hdu 2535
    [恢]hdu 2085
    [恢]hdu 2067
    [恢]hdu 2504
  • 原文地址:https://www.cnblogs.com/mikemao/p/2218858.html
Copyright © 2011-2022 走看看