yohoboy 发表于 2019-10-18 01:33:16

GUICtrlCreateDate 设定上个月第一天及最后一天

本帖最后由 yohoboy 于 2019-10-18 01:34 编辑

<blockquote>#include <DateTimeConstants.au3> 參考參考，我是修改別人的源碼的
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <date.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 406, 206, 192, 124)
GUISetFont(12, 400, 0, "MS Sans Serif")
$d1 = _DateAdd("D",0,_DateAdd('M',-1,@YEAR&'/'&@MON&'/01')) ;調整參數
$d2 = _DateAdd("D",-1,_DateAdd('M',0,@YEAR&'/'&@MON&'/01')) ;調整參數
$Date1 = GUICtrlCreateDate($d1, 120, 72, 150, 21, BitOR($DTS_UPDOWN, $WS_TABSTOP, $DTS_LONGDATEFORMAT));
$Date2 = GUICtrlCreateDate($d2, 120, 110, 150, 21, BitOR($DTS_UPDOWN, $WS_TABSTOP, $DTS_LONGDATEFORMAT));
$style = "yyyy-MM-dd"
GUICtrlSendMsg($Date1, $DTM_SETFORMATW, 0, $style)
GUICtrlSendMsg($Date2, $DTM_SETFORMATW, 0, $style)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
      EndSwitch
WEnd

haopp1 发表于 2019-10-18 10:09:38

好东西！收藏一下

Dontang2018 发表于 2019-10-18 12:05:23

收藏一下,收藏一下

redapple2008 发表于 2019-10-22 13:41:48

这应在源码区吧？

yohoboy 发表于 2019-10-22 23:42:35

redapple2008 发表于 2019-10-22 13:41
这应在源码区吧？

原本要发问的，刚好就看到类似源码，稍作修改后就post了
页: [1]
查看完整版本: GUICtrlCreateDate 设定上个月第一天及最后一天