易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi日期函数

所在单元: DateUtils
Day 开头的函数
1、DayOf()
描述: 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如: showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((now()))); 得到的是
2、DateTimeTostr()
描述: DateTimeToString 函数将 TDateTime 类型的参数 DateTime 转换成一个 字符串,使用给定的全局变量 ShortDateFormat 的格式,时间部分按照 给定的全局变量 LongTimeFormat 的格式。 其中 DateTime 为零的部分将不会显示出来。 例如: ShortDateFormat:=’yyyy mm dd’; showmessage(DateTimetostr((now()))); 你将得到:2003
3、DateTimeToString
描述: DateTimeToString 方法将TDateTime类型的参数DateTime 按照由参数Format提供的格式 转化成字符串,并保存在Result中。 对于Format的格式类型,请看 Date-Time format strings 的帮助。 例如: DateTimeToString(result,’yyyy mm dd’,now()); 那么 result的结果为:2003
4、DateTimeToSystemTime ()
描述: 有时为了调用API函数来使用系统时间,你可以使用 DateTimeToSystemTime 方法,来将一个 TDateTime 类型的时间变量转换成一个 TSystemTime 类型的 系统时间。
5、DateTimeToUnix ()
描述: 使用 DateTimeToUnix 函数来将一个 TDateTime 型时间变量转换成一个相应的 Unix 格式 的日期和时间。
6、DateToStr()
描述: 使用 DateToStr 函数能得到 TDateTime 日期时间类型的日期部分。日期的转换格式依赖于 全局变量 ShortDateFormat。
7、DayOf 与DayOfTheMonth
描述: 对于给定的TDateTime类型的日期时间,使用 DayOf 函数能得到该日期是该月份的第几天。 该函数的返回数值在 1 到 31 之间 注意:DayOf 函数得到的结果与 DayOfTheMonth 相同。 例如: showmessage(inttostr(dayof(now))); 得到的是:19 (今天是 某月19日) 与 DayOf 相同。
8、DayOfTheWeek
描述: 对于给定的TDateTime类型的日期时间,使用 DayOfTheWeek 函数能得到该日期是该星期的 第几天。DayOfTheWeek 函数的返回数值为 1 到 7,其中 1 表示星期一,而 7 表示星期日。 注意:DayOfTheWeek 是 ISO 8601 标准的(此标准为 星期一是一周的第一天)。对于一周 的第一天是星期日的标准,如果想获得星期数,请使用 DayOfWeek 函数。
9、DayOfTheYear
描述: 根据给定的


相关文档:

delphi中ActiveX 和 Web

http://book.77169.com/data/web5302/20050228/20050228__3692503.html
ActiveX 和 Web
在Windows 操作系统下,有一个重要的机制,就是OLE ,就是可以让某
个应用程序(OLE Controller)访问其它应用程序(OLE Server)所提供的
功能,这样做的好处是,如果已经有了完成某项功能的程序,你就不必再为
某项功能编写特定 ......

用DELPHI创建DLL文件,封装窗体的实现方法实例

虽是原创,但是是参考过别人的作品,然后自己重新写的,目的是要给初学者一个更容易明白。
用DELPHI创建DLL文件,封装窗体的实现方法实例:
即一个程序不再是单一的一个EXE文件了,而是由一个EXE文件加N个DLL文件组成,这样做的原因是方便以后的维护与更新,也是跨平台开发的重要一步。
1, 打开DELPHI,新建一个Dl ......

Delphi 列出目录下的文件

function ListFiles(Dir: String):TStrings;
var
FSearchRec: TSearchRec;
FileList: TStrings;
FindResult: Integer;
begin
if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
FileList :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*,faAnyFile+faDirectory,FSearchRec);
while FindRes ......

淘宝平台开发 delphi 示例

淘宝开放平台的开发例子大多都是c#,php,java等,缺少Pascal的例子。
现用delphi写了一个示例,
关键点是签名的生成,签名需按key字母顺序排序,并去掉等于号后首尾相连。
关键代码:
 memstr:= TMemoryStream.Create;
 //用授权码获取 session
  IdHTTP1.Get('http://container.api.tbsandbox.com/c ......

javascript中调用delphi函数


以下是test.htm页的内容
首先定义一个插件对象
 
<object id="Mapupload" name="Mapupload" width="0" height="0" classid="clsid:045FA9B9-B373-4D4C-AE76-128A19A4B6AE">
</object>
<script type="text/javascript">
//此函数打开activexform窗体并为activ ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号