完全可以的，我在此不用你的数据表了，因为那样太麻烦了，我只是把日期放入表单中。
1、建立一个表单
2、在表单中加入一个静态文本
3、在此静态文本的INT事件中输入以下代码：
Clear All  
Close All  
Set Date Ansi  
Set Talk off  
*!*     on Error MessageBox(Message(),0+48,"注意")
*!*         
*!*     Public ClassesPath,DataPath,FormsPath,MenusPath,PicturesPath,ProgramsPath,ReportFormsPath,SystemPath,TempfilesPath
*!*         &&该语句定义若干公共变量，除了后一个外，分别对应本应用系统文件子目录路径
*!*         SystemPath=JustPath(Sys(16))  &&使用函数Sys(16)用以获得可执行文件“会计主程序.exe”所在的目录路径及文件名，
*!*                                       &&函数JustPath()从含有路径及文件名的字符串中截取路径部分字符串，结果用变量SystemPath保存
*!*     ClassesPath=SystemPath+"\Classes\"  &&通过变量SystemPath中的路径字符串来定义各路径变量
*!*     DataPath=SystemPath+"\Data\"
*!*     FormsPath=SystemPath+"\Forms\"
*!*     MenusPath=SystemPath+"\Menus\"
*!*     PicturesPath=SystemPath+"\Pictures\"
*!*     ProgramsPath=SystemPath+"\Programs\"
*!*     ReportFormsPath=SystemPath+"\ReportForms\"
*!*     PermitLogin=.T.
*!*     Select 0  &&选择空闲且编号最小的工作区
*!* *!*     Use DataPath+"登录许可" Shared  &&以共享方式打开表
*!* *!*     If 登录许可.登录=="F"
*!* *!*         MessageBox("正在进行系统设置工作，请稍侯再登录。",0+48,"注意")
*!* *!*         PermitLogin=.F.
*!* *!*     Endif
*!* *!*     Use In 登录许可
*!* *!* If PermitLogin=.F.
*!* *!*             Quit
*!* *!*         Else
this.Caption="      [今天日期是："+Str(Year(Date()),4)+"年"  
TempMonth=Month(Date())  &&以Temp开头的自定义变量为私有（临时）变量
this.Caption=this.Caption+Str(TempMonth,IIF(TempMonth<10,1,2))+"月"
TempDay=Day(Date())
this.Caption=this.Caption+Str(TempDay,IIF(TempDay<10,1,2))+"日"
TempWeekDay=Cdow(Date())
Do Case
    Case TempWeekDay="Monday"
        this.Caption=this.Caption+"  星期一]"
    Case TempWeekDay="Tuesday"
        this.Caption=this.Caption+"  星期二]"
    Case TempWeekDay="Wednesday"
        this.Caption=this.Caption+"  星期三]"
    Case TempWeekDay="Thursday"
        this.Caption=this.Caption+"  星期四]"
    Case TempWeekDay="Friday"
        this.Caption=this.Caption+"  星期五]"
    Case TempWeekDay="Saturday"
        this.Caption=this.Caption+"  星期六]"
    Case TempWeekDay="Sunday"
        this.Caption=this.Caption+"  星期日]"
EndCase         
*!* Endif
注释的可以不要。

也许更好一点的作法是：
mDate = Date()
msDate = DtoS(mDate)
mwDay = Dow(mDate)

this.Caption = '今天是：' + Left(mDate, 4) + '年' + Subs(mDate, 5, 2) ;
+ '月' + Subs(mDate,7) + '日 星期' + Subs('日一二三四五六',mwDay * 2 - 1, 2)

上面这位兄弟是高、一句解决问题、看来话不在多是真理，我正好也做了这段代码
我用的 case 语句

我试了
怎么now（）不能用

6.0中我不清楚，但在7.0可调用系统日期控件，省去上述麻烦
在tool/options/controls/activxX controls 中选 micrsoft date and time picker control 6.0