函数简介

程序示例(C版本 Ada版本)

函数简介

Windows API 函数

函数功能：该函数用来获取当地的当前系统日期和时间。

函数原型:

　VOID GetLocalTime(

LPSYSTEMTIME lpSystemTime //address of system times structure

);

参数说明:

lpSystemTime: 指向一个用户自定义包含日期和时间信息的类型为 SYSTEMTIME 的变量，该变量用来保存函数获取的时间信息。

此函数会把获取的系统时间信息存储到SYSTEMTIME结构体里边

typedef struct _SYSTEMTIME

{

WORD wYear;//年

WORD wMonth;//月

WORD wDayOfWeek;//星期，0为星期日，1为星期一，2为星期二……

WORD wDay;//日

WORD wHour;//时

WORD wMinute;//分

WORD wSecond;//秒

WORD wMilliseconds;//毫秒

}SYSTEMTIME,*PSYSTEMTIME;

适用平台/头文件和链接库：

Windows 95及以上版本、Windows NT3.1及以上版本、Windows CE1.0及以上版本

头文件 winbase.h 链接库 coredll.lib

举例：

SYSTEMTIME stTime;

GetLocalTime(&stTime);

WORD wYear = stTime.wYear;

WORD wMonth = stTime.wMonth;

WORD wDay = stTime.wDay;

WORD wHour = stTime.wHour;

WORD wMinute = stTime.wMinute;

WORD wSecond = stTime.wSecond;

CString m_date;

//m_date字符串即为当前时间。如：2010年4月23日 11:12:45

m_date.Format("%4d年%2d月%2d日 %2d:%2d:%2d", wYear, wMonth, wDay, wHour, wMinute, wSecond);

程序示例

C版本

#include <stdio.h>

#include <windows.h>

#include <winbase.h>

int main(int argc, char *argv[])

{

SYSTEMTIME time;

GetLocalTime(&time);

printf("当前时间为：%2d:%2d:%2d\",time.wHour,time.wMinute,time.wSecond);

return 0;

}

执行结果：

当前时间为：12: 5:52

Ada版本

with ada.text_io; use ada.text_io;

procedure time is

type word is mod 2**16;

-- SYSTEMTIME 结构

type SYSTEMTIME is record

year : word; -- 年

month : word; -- 月

dayofweek : word; -- 星期，0=星期日，1=星期一

day : word; -- 天

hour : word; -- 时

minute : word; -- 分

second : word; -- 秒

Milliseconds : word; -- 毫秒

end record;

type LPSYSTEMTIME is access SYSTEMTIME;

procedure GetLocalTime(SYSTIME:LPSYSTEMTIME);

function GetLocalTime(SYSTIME:LPSYSTEMTIME) return integer;

pragma import(stdcall,GetLocalTime,"GetLocalTime");

ti:lpsystemtime;

hr:integer;

begin

ti:=new systemtime;

hr:=getLocalTime(ti);

put_line("TIME IS: "&word'image(ti.hour)&":"&word'image(ti.minute));

end time;

--执行结果：TIME IS: 9: 49