f_getdata.srf

一个漂亮的下拉日历

$PBExportHeader$f_getdata.srf
$PBExportComments$用来取下拉方式时间控件的日期：this.text=f_getdata(uo_1)    格式：20060826
global type f_getdata from function_object
end type

forward prototypes
global function string f_getdata (ref uo_comctl_datetime auodatetime)
end prototypes

global function string f_getdata (ref uo_comctl_datetime auodatetime);nvo_comctl_datetime	lnvoDateTime
datetime					ldtSelected
string					lsSelectedDate

IF IsValid( auoDateTime ) THEN
	// Get handle to NVO
	auoDateTime.of_GetObject( lnvoDateTime )
	
	// Get date/time from NVO
	ldtSelected = lnvoDateTime.of_GetDateTime()
	
	// Is this a NULL date ?
	IF IsNull( ldtSelected ) THEN
		lsSelectedDate = "[NONE]"
	ELSE
		lsSelectedDate = String( ldtSelected, "yyyymmdd" )
	END IF
END IF
RETURN  lsselecteddate

end function