Sub OnClick(Byval Item)
Dim MyVar1
Dim MyVar2
Dim objExcel
Dim wb
Dim xlsheet
Dim rangee
Dim Years,mounth,Days,hours,min,sec,daysweek
Dim jj,kk,year1,mounth1,Days1,hours1,min1,sec1
Dim yi,er,san,si,wu,i,i1,lei,lei1,lei2,lei3,lei4,lei5
Dim zhou,yue,nian
Dim shi,feng,miao,mytime
Dim
MyHour,MyMinute,myday,mymonth,myyear,a,b,c,d,e,f