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

2003-12-18 11:51:42 1.4k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

rst_2828 墨衍会员 · AI 创作全网分发关注 + 加入社区

ABAP 根据当前日期计算出上个月最后一天日期 abap 获取当前输入日期的前一个月末 eg:输入2022.10.11 输出2022.09.30 阅读详情

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

...全文

全面讲解电子齿轮比与脉冲数计算什么是编码器分辨率。阅读详情

rst_2828

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

Delphi 5没有这个单元，这个函数是6里的。

rst_2828 2003-12-18

打赏
举报

delphi 5
我在interface后面uses

aiirii 2003-12-18

打赏
举报

你有的是delphi 几啊?? 你在那裹uses???

rst_2828 2003-12-18

打赏
举报

uses DateUtils
提示"file not found:'DateUtils.dcu'",怎么办啊？

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

相关推荐