怎样在visual foxpro上显示“今天是x年x月x日”,跟随系统时间。

clearset talk offdo while .t.x=date()t=time()y=year(x)m=month(x)d=day(x)@ 10,10 say '今天是'+str(y,4)+'年'+str(m,2)+'月'+str(d,2)+'日 '+tenddoset talk onretu

? '今天是'+str(year(date(),4),4)+'年'+str(month(date()),2)+'月'+str(day(date()),2)+'日'

a=date()b="日一二三四五六"Y=LTRIM(str(YEAR(a))) + "年"M=LTRIM(STR(MONTH(a))) +"月"D=LTRIM(STR(DAY(a))) + "日"W="星期"+SUBSTR(b,dow(a)*2-1,2)MESSAGEBOX(y+m+d+w)? y+m+d+w to print

工具-选项-控件-ActiveX控件 找到Microsoft Date and time picker控件 然后点前面的方框 然后点击设置默认值按钮 然后点击确定 然后在”表单控件“那个小窗口里点击那个类似压缩图标的按钮 从里面选择ActiveX 控件 然后找到刚才添加的按钮 拖放到表单上就可以了 ...

使用subs函数。表中的字段存放了身份证号,该字段假定为“sfzh”：use 表名 &&打开表 ？subs(sfzh,7,6) &&显示身份证号，从sfzh字段中的第七位显示六位，正好是年月。

可以用dos命令 !date !time 可用下面的语句调用时间对话框 run/n control timedate.cpl

timer 控件，就是表样子的那个。

CREATE 生成一个新的VisualFoxPro表 CREATE DATABASE 创建并打开一个数据库 DELETE 给要删除的记录做标记 DELETE DATABASE 从磁盘上删除数据库 DELETE VIEW 从当前数据库中删除一个SQL视图 DISPLAY 在VisualFoxPro主窗口或用户自定义窗口中显示与当前表有关的信息 DISPLAY DATABASE 显示有关当前数据库的...

简单写一下。。。先输入一个日期 input "请输入日期" to myDate 取得年份 intYear = Year(myDate)得到该年1月1日 intFirstDate = Date(intYear,1,1)用输入的日期减去该年1月1日，加上1，得到第几天。intDayOfTheYear = myDate-intFirstDate+1 return intDayOfTheYear ...

Visual FoxPro日期和时间函数CTOD()把字符表达式转换成日期表达式。CDOW()从给定日期或日期时间表达式中返回星期值。CMONTH()返回给定日期或日期时间表达式的月份名称。CTOD()把字符表达式转换成日期表达式。CTOT()从字符表达式返回一个日期时间值。DATE()返回由操作系统控件的当前系统日期,或创建一个与2000年兼容的日期...