thisform.label1.caption=alltrim(str(year(date())))+"年"+alltrim(str(month(date())))+"月"+alltrim(str(day(date())))+"日"选中label控件，在属性中找到“宋体”，调整即可
