风行者 发表于 2009-3-24 21:46:57

前一天的日期问题

先看代码，想要输出的格式是20090323#include <date.au3>
dim $mydate
dim $mytime

$newdate = _DateAdd("d",-1,_NowCalcDate())
MsgBox(0,"",$newdate)
_DateTimeSplit($newdate,$mydate,$mytime)
msgbox(0,"",$mydate & $mydate & $mydate)最后输出的是2009323 月份那里少了个0，怎样解决？:face (36):

[ 本帖最后由 风行者 于 2009-3-24 22:23 编辑 ]

xrbenbeba 发表于 2009-3-24 22:07:28

$mydate 判断它的字符长度 如果长度为一 就用数组UDF函数修改它(在前面加0)

juyz 发表于 2009-3-24 22:09:56

#include <date.au3>
dim $mydate
dim $mytime

$newdate = _DateAdd("d",-1,_NowCalcDate())
MsgBox(0,"",$newdate)
_DateTimeSplit($newdate,$mydate,$mytime)
if $mydate<10 then $mydate="0"&$mydate
msgbox(0,"",$mydate & $mydate & $mydate)

$mydate=StringSplit($newdate,"/")
msgbox(0,"",$mydate & $mydate & $mydate)

风行者 发表于 2009-3-24 22:20:59

噢,判断数字大小!谢谢上面两位的帮助:face (22):

楼上提供了两种方法,很好又学到了

[ 本帖最后由 风行者 于 2009-3-24 22:22 编辑 ]

liongodmien 发表于 2009-3-26 11:41:18

StringFormat()
页: [1]
查看完整版本: 前一天的日期问题