Data1.DatabaseName = App.Path + "\zb.mdb"
Data1.RecordSource = ("select * from xb where year(收支日期)='" + frmxb.myyear + "'")
Set dbzb = OpenDatabase(App.Path + "\zb.mdb")
Set relr = dbzb.OpenRecordset("select min(收支日期),max(收支日期),min(收支金额),max(收支金额) from xb where year(收支日期)='" + frmxb.myyear + "'")
Textmindate.Text = relr.Fields(0)

Textmaxmon.SelStart = 0
Textmaxmon.SelLength = Len(Textmaxmon.Text)

Chr(13)

MyStr = Format(Time, "Long Time")
MyStr = Format(MyTime, "hh:mm:ss AMPM")
MyStr = Format(5459.4, "##,##0。00")