关于时间函数

原创 2004年10月09日 10:24:00

【0】在工程文件中Application.Run语句之前加入下面语句,可不让主Form在运行时显示:
      Application.ShowMainForm := False;

【1】显示设置时间的对话框
   ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW);

【2】FormatDateTime('yyyy mmmm',MyDate) 返回如【2008 十二月】

【3】//获得日期  Date := Trunc( DateTime );
     //获得时间  Time := Frac( DateTime );

【3】计算任意月份的天数
    procedure TForm1.Button10Click(Sender: TObject);
      function DaysInMonth(ADate:TDateTime):Integer;
      var MyYear,MyMonth,MyDay : Word;
        MyDayTable : TDayTable;
        tmpBool : Boolean;
      begin
        DecodeDate(ADate, MyYear, MyMonth, MyDay);
        tmpBool := IsLeapYear(MyYear);
        MyDayTable := MonthDays[tmpBool];
        Result := MyDayTable[MyMonth];
      end;

    var MyDate : TDateTime; tmpStr : String;  tmpInt : Integer;
    begin
      MyDate := strToDateTime('2003-12-01');
      tmpStr := FormatDateTime('yyyy mmmm',MyDate);
      tmpInt := DaysInMonth(MyDate);
      ShowMessage(tmpStr + ' 有 ' + IntToStr(tmpInt) + 'ìì');
    end;


【3】改变系统时间
  1、定义变量
var SystemTime: TSystemTime;
  2、转换日期
DateTimeToSystemTime(StrToDatetime('1999-09-01 11:12:12' ),SystemTime);
  3、改变系统日期
SetSystemTime(SystemTime);
  到此系统日期已经改变,可是由于API函数SetSystemTime()本身存在的BUG,
在你改变系统日期以后,等待一会,你会看到系统的日期是对的,可是时间却错了,
并不是我们设定的11:12:12,这样的问题看来需要微软才能解决了

/////////////////////       方法二           /////////////////////////
{ SetDate sets the current date in the operating system. Valid  }
{ parameter ranges are: Year 1980-2099, Month 1-12 and Day      }
{ 1-31. If the date is not valid, the function call is ignored. }
procedure SetDate(Year, Month, Day: Word); assembler;
asm
 MOV CX,Year
 MOV DH,BYTE PTR Month
 MOV DL,BYTE PTR Day
 MOV AH,2BH
 INT 21H
end;

{ SetTime sets the time in the operating system. Valid          }
{ parameter ranges are: Hour 0-23, Minute 0-59, Second 0-59 and }
{ Sec100 (hundredths of seconds) 0-99. If the time is not       }
{ valid, the function call is ignored.                          }
procedure SetTime(Hour, Minute, Second, Sec100: Word); assembler;
asm
 MOV CH,BYTE PTR Hour
 MOV CL,BYTE PTR Minute
 MOV DH,BYTE PTR Second
 MOV DL,BYTE PTR Sec100
 MOV AH,2DH
 INT 21H
end;

function SetSystemDateTime(Year, Month, Day, Hour, Minute, Second: word): integer;   export;
begin
  SetDate(Year, Month, Day);
  SetTime(Hour, Minute + 1, Second, 0);
  result := 1;
end;

c语言中关于时间的函数

本文从介绍基础概念入手,探讨了在C/C++中对日期和时间操作所用到的数据结构和函数,并对计时、时间的获取、时间的计算和显示格式等方面进行了阐述。本文还通过大量的实例向你展示了time.h头文件中声明的...
  • sven_007
  • sven_007
  • 2012年06月26日 10:00
  • 4034

玩转PHP(二)--PHP强大的时间函数:date()

PHP具有相对来说强大的时间函数date(),该方法有下列一系列参数: 红色部分为一些常用的 年: y 2 位数字表示的年份 例如:99 或 03 Y 4 位数字完整表示的年份 例如:1999 或 ...
  • u012116457
  • u012116457
  • 2015年01月09日 12:45
  • 1600

js常用时间处理函数

//获取当前日期,结果格式:YYYY-mm-DD function getYMD(){ var d = new Date(); var year = d.getFullYear(); var m...
  • wangcunhuazi
  • wangcunhuazi
  • 2015年10月13日 14:34
  • 735

js中关于时间的一些函数

js中关于时间的一些函数
  • nianzhi1202
  • nianzhi1202
  • 2016年10月08日 21:37
  • 482

Linux 常用C函数(时间日期篇)

Linux 常用C函数(时间日期篇)2007-03-22 11:38 ...
  • wl076
  • wl076
  • 2007年05月22日 12:38
  • 1235

java中关于时间日期操作的常用函数

java中关于时间日期操作的常用函数1.计算某一月份的最大天数Calendar time=Calendar.getInstance(); time.clear(); time.set(Calendar...
  • hbcui1984
  • hbcui1984
  • 2006年10月12日 14:12
  • 7658

数据库常见时间函数的用法

1、MySQL 数据库       NOW() 返回当前的日期和时间 CURDATE() 返回当前的日期 CURTIME() 返回当前...
  • wuscar0703
  • wuscar0703
  • 2016年11月14日 15:10
  • 2533

Windows时间函数大全

介绍       我们在衡量一个函数运行时间,或者判断一个算法的时间效率,或者在程序中我们需要一个定时器,定时执行一个特定的操作,比如在多媒体中,比如在游戏中等,都会用到时间函数。还比如我们通过记录函...
  • ugg
  • ugg
  • 2007年03月09日 12:03
  • 17887

关于sybase数据库的时间函数

日期函数 getdate() 得到当前时间,可以设置得到各种时间格式. datepart(日期部分,日期) 取指定时间的某一个部分,年月天时分秒. datediff(日期部分,日期1,日期2) 计算指...
  • zhangqinxiang
  • zhangqinxiang
  • 2008年08月19日 13:51
  • 915

Java时间函数整理

Java中涉及时间的类主要有Date, DateFormat(SimpleDateFormat), Calendar 。 (1)Date  时间类型,主要负责时间的存储和时间间隔的计算。 从属包 ja...
  • star_fly4
  • star_fly4
  • 2016年05月19日 10:26
  • 277
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:关于时间函数
举报原因:
原因补充:

(最多只允许输入30个字)