前一天的日期问题

风行者

先看代码，想要输出的格式是20090323

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

$newdate = _DateAdd("d",-1,_NowCalcDate())
MsgBox(0,"",$newdate)
_DateTimeSplit($newdate,$mydate,$mytime)
msgbox(0,"",$mydate[1] & $mydate[2] & $mydate[3])

最后输出的是2009323 月份那里少了个0，怎样解决？

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

xrbenbeba

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

juyz

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

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

$mydate=StringSplit($newdate,"/")
msgbox(0,"",$mydate[1] & $mydate[2] & $mydate[3])

风行者

噢,判断数字大小!谢谢上面两位的帮助

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

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

liongodmien

StringFormat()