07-02-2004, 07:42 AM
Macro "DateInit". Allows to enter date, and stores it into global str variable g_date, in mm/dd/yyyy format.
/Dialog_Editor
str controls = "3 4 5"
str e3D e4M e5Y
e3D.time("%#d")
e4M.time("%#m")
e5Y.time("%Y")
if(!ShowDialog("DateInit" 0 &controls)) ret
str+ g_date.format("%02s/%02s/%s" e4M e3D e5Y)
out g_date
;BEGIN DIALOG
;0 "" 0x10C80A46 0x100 0 0 69 78 "QM - Date"
;3 Edit 0x54032000 0x204 34 22 32 14 "D"
;4 Edit 0x54032000 0x204 34 4 32 14 "M"
;5 Edit 0x54032000 0x204 34 40 32 14 "Y"
;6 Static 0x54020000 0x4 4 22 26 13 "Day"
;7 Static 0x54020000 0x4 4 4 26 13 "Month"
;8 Static 0x54020000 0x4 4 40 26 12 "Year"
;1 Button 0x54030001 0x4 12 60 48 14 "OK"
;END DIALOG
;DIALOG EDITOR: "" 0x2010400 "*" ""