Dim d As Date = DataTables("表A").Compute("min(第一列)")msgbox(d)msgbox(d.year)
http://www.foxtable.com/webhelp/scr/1337.htm