public function date2time(startdate as string,enddate as string)as longdim syear ,smonth,sday,shour,sminute,ssecond,syear ,emonth,eday,ehour,eminute,esecond as Integerdim i,j,k as Integeri = 1j = 0k = 0syear=left(startdate,4)eyear=left(enddate,4)doif mid(startdate,i,1)="-" thenif j=0 thenj=ielsesmonth =...
|