有没有获得当前月份上个月的函数？？？

rst_2828 2003-12-18 11:51:42

如当前月份为12月，要获得11月。

...全文

1222 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

aiirii 2003-12-18

打赏
举报

i := MonthOf(now) - 1;
if i = 0 then i := 12;

nxfbccu 2003-12-18

打赏
举报

uses DateUtils

MonthOf(now) - 1

gencan 2003-12-18

打赏
举报

MonthOf(now) - 1

angle097113 2003-12-18

打赏
举报

我一般是获得当前的月份然后减1实现得

aiirii 2003-12-18

打赏
举报

uses DateUtils

MonthOf(now) - 1

8009000077 2003-12-18

打赏
举报

incMonth()

outer2000 2003-12-18

打赏
举报

Returns a date shifted by a specified number of months.

Unit

SysUtils

Category

datetime routines

Delphi syntax:

function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;

C++ syntax:

extern PACKAGE System::TDateTime __fastcall IncMonth(const System::TDateTime Date, int NumberOfMonths = 1);

Description

IncMonth returns the value of the Date parameter, incremented by NumberOfMonths months. NumberOfMonths can be negative, to return a date N months previous.

If the input day of month is greater than the last day of the resulting month, the day is set to the last day of the resulting month. The time of day specified by the Date parameter is copied to the result.

抱朴守拙 2003-12-18

打赏
举报

>>>连续的回复不能超过3次

Sorry,本想把这个单元给你贴上来，却不让连续回复，只有你自己去找了。

太空11 2003-12-18

打赏
举报

uses DateUtils

MonthOf(now) - 1

抱朴守拙 2003-12-18

打赏
举报

抱朴守拙 2003-12-18

打赏
举报

{ *********************************************************************** }
{ }
{ Delphi Runtime Library }
{ }
{ Copyright (c) 1995-2001 Borland Software Corporation }
{ }
{ *********************************************************************** }

{*******************************************************}
{ Date/time Utilities Unit }
{*******************************************************}

{ The following unit is ISO 8601 compliant. What that means is this unit
considers Monday the first day of the week (5.2.3). Additionally ISO 8601
dictates the following "the first calendar week of the year is the one
that includes the first Thursday of that year" (3.17). In other words the
first week of the week is the first one that has four or more days. For
more information about ISO 8601 see: http://www.iso.ch/markete/8601.pdf

The functions most impacted by ISO 8601 are marked as such in the interface
section.

The functions marked with "ISO 8601x" are not directly covered by ISO 8601
but their functionality is a logical extension to the standard.

Some of the functions, concepts or constants in this unit were provided by
Jeroen W. Pluimers (http://www.all-im.com), Glenn Crouch, Rune Moberg and
Ray Lischner (http://www.tempest-sw.com).

The Julian Date and Modified Julian Date functions are based on code
from NASA's SOHO site (http://sohowww.nascom.nasa.gov/solarsoft/gen/idl/time)
in which they credit the underlying algorithms as by Fliegel and Van
Flandern (1968) which was reprinted in the Explanatory Supplement to the
Astronomical Almanac, 1992.

Julian Date and Modified Julian Date is discussed in some detail on the
US Naval Observatory Time Service site (http://tycho.usno.navy.mil/mjd.html).
Additional information can be found at (http://www.treasure-troves.com/astro).
}

unit DateUtils;

interface

uses
SysUtils, Math, Types;

{ Simple trimming functions }

function DateOf(const AValue: TDateTime): TDateTime;
function TimeOf(const AValue: TDateTime): TDateTime;

{ Misc functions }

function IsInLeapYear(const AValue: TDateTime): Boolean;
function IsPM(const AValue: TDateTime): Boolean;
function IsValidDate(const AYear, AMonth, ADay: Word): Boolean;
function IsValidTime(const AHour, AMinute, ASecond, AMilliSecond: Word): Boolean;
function IsValidDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond,
AMilliSecond: Word): Boolean;
function IsValidDateDay(const AYear, ADayOfYear: Word): Boolean;
function IsValidDateWeek(const AYear, AWeekOfYear, {ISO 8601}
ADayOfWeek: Word): Boolean;
function IsValidDateMonthWeek(const AYear, AMonth, AWeekOfMonth, {ISO 8601x}
ADayOfWeek: Word): Boolean;
function WeeksInYear(const AValue: TDateTime): Word; {ISO 8601}
function WeeksInAYear(const AYear: Word): Word; {ISO 8601}
function DaysInYear(const AValue: TDateTime): Word;
function DaysInAYear(const AYear: Word): Word;
function DaysInMonth(const AValue: TDateTime): Word;
function DaysInAMonth(const AYear, AMonth: Word): Word;
function Today: TDateTime;
function Yesterday: TDateTime;
function Tomorrow: TDateTime;
function IsToday(const AValue: TDateTime): Boolean;
function IsSameDay(const AValue, ABasis: TDateTime): Boolean;

{ Pick-a-field functions }

function YearOf(const AValue: TDateTime): Word;
function MonthOf(const AValue: TDateTime): Word;
function WeekOf(const AValue: TDateTime): Word; {ISO 8601}
function DayOf(const AValue: TDateTime): Word;
function HourOf(const AValue: TDateTime): Word;
function MinuteOf(const AValue: TDateTime): Word;
function SecondOf(const AValue: TDateTime): Word;
function MilliSecondOf(const AValue: TDateTime): Word;

{ Start/End functions }

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;

function StartOfTheDay(const AValue: TDateTime): TDateTime;
function EndOfTheDay(const AValue: TDateTime): TDateTime;
function StartOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload;
function EndOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload;
function StartOfADay(const AYear, ADayOfYear: Word): TDateTime; overload;
function EndOfADay(const AYear, ADayOfYear: Word): TDateTime; overload;

{ This of that functions }

抱朴守拙 2003-12-18