Décoder une date DOS à une chaîne
#include <Date.au3>
_Date_Time_DOSDateToStr ( $iDosDate )
| $iDosDate | Date MS-DOS, emballés comme suit : Bits 0 à 4 Jour du mois ( 131 ) Bits 5 à 8 mois ( 1 = Janvier, 2 = Février, et ainsi de suite ) Bits 9-15 Année décalage par rapport à 1980 ( ajouter 1980 à obtenir l'année réelle ) |
#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $g_idMemo
Example()
Func Example()
Local $sDate
; Créer GUI
GUICreate("Time", 400, 300)
$g_idMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
GUISetState(@SW_SHOW)
; Afficher FAT jour
$sDate = _Date_Time_DOSDateToStr(0x3621) ; 01/01/2007
MemoWrite("FAT date .: " & $sDate)
; Boucle jusqu'à ce que l'utilisateur quitte.
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==> Example
; Écrire une ligne dans le contrôle mémo
Func MemoWrite($sMessage)
GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
EndFunc ;==> MemoWrite