本帖最后由 vvt 于 2020-12-7 21:43 编辑
这是微软规定的,而不是fortran语言规定的。
[Fortran] 纯文本查看 复制代码 Use User32
Type( T_SYSTEMTIME ) :: stSysDate
iHandle = SendDlgItemMessage( hDlg , IDC_DATETIMEPICKER1 , DTM_GETSYSTEMTIME , 0 , Loc(stSysDate) )
其中 hDlg 是对话框的句柄。
IDC_DATETIMEPICKER1 是控件的ID
DTM_GETSYSTEMTIME 是个常量
参考文档:https://docs.microsoft.com/zh-cn ... s/dtm-getsystemtime
|