解码一个 DOS 日期到一个数组
#Include <Date.au3>
_Date_Time_DOSDateToArray($iDosDate)
$iDosDate | MS-DOS 日期, 封装为下方格式: 位 0- 4 ,一月中的其中一天(1–31) 位 5- 8 ,月份 (1 = 一月, 2 = 二月, 等等) 位 9-15 ,相对 1980 的偏移量(加上1980得到实际年份) |
#include <GUIConstantsEx.au3>
#include <Date.au3>
#include <WindowsConstants.au3>
Global $iMemo
_Main()
Func _Main()
Local $aDate
; 创建 GUI
GUICreate("Time", 400, 300)
$iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()
; 显示 FAT 日期
$aDate = _Date_Time_DOSDateToArray(0x3621) ; 01/01/2007
MemoWrite("FAT date .: " & StringFormat("%02d/%02d/%04d", $aDate[0], $aDate[1], $aDate[2]))
; 循环直到用户退出
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main
; 写入一行到 memo 控件
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite