From DateTime to dialog SysDateTimePick32

[ssimop]

Dialogue field 6 is :

6 SysDateTimePick32 0x54000000 0x204 56 199 58 14 ""

I need to display in it variable :
DateTime x

I can do it with the following code.

Function tempf03

Code:

Copy      Help

SYSTEMTIME- t_st1
DateTime x

;Calculate value of x

DATE y=x
y.tosystemtime(t_st1)
SendMessage(id(6 hDlg)  DTM_SETSYSTEMTIME 0 &t_st1)

I am wondering whether this is the best practice. Any advice is welcome. Many thanks in advance.

[Gintaras]

Macro Macro2627

Code:

Copy      Help

DateTime x

;Calculate value of x

SYSTEMTIME st=x.ToSYSTEMTIME
SendMessage(id(6 hDlg) DTM_SETSYSTEMTIME 0 &st)