AutoIt Français

Code : Tout sélectionner

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <ComboConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <date.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Jeanmimi\Desktop\test\Form1.kxf
$Form1 = GUICreate("Form1", 259, 242, 263, 230)
$Input1 = GUICtrlCreateInput("Input1", 48, 40, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 72, 136, 75, 25)
$Date1 = GUICtrlCreateDate("2015/09/25 20:13:44", 24, 88, 186, 21, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
EXIT
Case $msg = $Button1

; appel fonction
_Creatappini()
EndSelect
WEnd
Exit

;début fonction
Func _Creatappini()
    Global $ecri2 = guictrlread($Input1)
    Global $DateDeMonRDV = guictrlread($Date1)
    Global $sNewDate = _DateAdd('d', -10, $DateDeMonRDV)
    Global $ecri3 = StringReplace($sNewDate, "/", "")
MsgBox(64,"ALARME RENDEZ-VOUS", "N'oubliez pas votre rendez-vous le " & $ecri3)

$msg = GUIGetMsg()


Exit
EndFunc

Code : Tout sélectionner

Func _Creatappini()
    $ecri2 = guictrlread($Input1)
    $DateDeMonRDV = guictrlread($Date1)
MsgBox(0,"", $DateDeMonRDV)
   $formatEN = StringRegExpReplace($DateDeMonRDV, '(\d{2})/(\d{2})/(\d{4})', "$3/$2/$1")
MsgBox(0,"", $formatEN)
    $sNewDate = _DateAdd('d', -10, $formatEN)
MsgBox(0,"", $sNewDate)
    $formatFR = StringRegExpReplace($sNewDate, '(\d{4})/(\d{2})/(\d{2})', "$3/$2/$1")
MsgBox(0,"", $formatFR)
    $ecri3 = StringReplace($formatFR, "/", "")
MsgBox(64,"ALARME RENDEZ-VOUS", "N'oubliez pas votre rendez-vous le " & $ecri3)
EndFunc