设置系统时间

2006-9-30　网友评论 0 条　点击进入论坛

在开发具有数据服务器的应用软件时，有时为了使所有计算机的时间都保持相同，或者接近相同，主要是为了避免数据录入时出现的时间差异，通常我们会在客户机每次使用应用软件前将本地时间设置成跟服务器相同。从而确保输入的数据在时间上具有较高的正确性。即，要实现系统时间的设置。下面就讲述一下实现的过程。
　　 本程序是通过调用外部函数SetSystemTime（）实现系统时间的设置,该函数返回布尔型。查阅一下有关参考手册就会发现该函数需要一个表示系统时间结构（Struct）的数据类型作为参数。此结构的定义如下：
　　struct _SYSTEMTIME {

　　　　INT iYear;

　　　　INT iMonth;

　　　　INT iDayOfWeek;

　　　　INT iDay;

　　　　INT iHour;

　　　　INT iMinute;

　　　　INT iSecond;

　　　　INT iMilliseconds; // 毫秒

　　} str_SystemTime;

　　要在程序中使用外部函数首先需要要进行外部函数声明，可以根据函数的使用范围放在全局外部函数声明区或局部外部函数区声明。具体声明如下：

　　Function Boolean SetSystemTime(str_SystemTime str_MyTime) Library "Kernel32.dll"

　　声明之后就可以使用了。下面代码实现将系统日期设置成“2000年8月10日”

　　/*****************************程序代码******************************/

　　str_SystemTime str_MyTime

　　// 给结构赋值

　　str_MyTime.iYear = 2000 // 2000年

　　str_MyTime.imonth = 8 / /8月

　　str_MyTime.iDay = 10 // 10日

　　// 设置系统日期

　　if SetSystemTime(ref str_MyTime) then

　　 Beep(1)

　　 MessageBox("提示","系统日期设置成功！")

　　else

　　 Beep(1)

　　 MessageBox("提示","系统日期设置失败！")

　　end if

今日推荐

• ·2008年十大IT技术
• ·中间件标准将推动我国数字电视市场发展
• ·解决生产企业的订单管理问题[图]
• ·大型格式化打印技术
• ·高质量显示技术

• ·开源历史回顾 Linux操作系统的发展与文化
• ·新手学堂：安装Linux应该了解的六个问题
• ·给初学者的建议 谈一谈怎样走入Linux大门
• ·Linux与其他操作系统区别
• ·重复数据删除技术在数据保护过程中的应用

重点推荐

领军企业技术文库

最新专题

电子杂志订阅

技术热点