' функция перевода строки в цифровой формат FUNC str2num(str) total="" for k from 0 to len(str)-1 if substr(str,k,1)" " if substr(str,k,1)=="," total=total & "." else total=total & substr(str,k,1) end if end if end for result=total+0 END FUNC ' функция перевода даты в текстовый формат FUNC fTextData(Year,Month,Day) if (LEN(Month) Month = "0" & Month end if if (LEN(Day) Day = "0" & Day end if result = Year & Month & Day END FUNC ' функция перевода времени в текстовый формат FUNC fTextTime(Hour,Min,Sec) if (LEN(Hour) Hour = "0" & Hour end if if (LEN(Min) Min = "0" & Min end if if (LEN(Sec) sec = "0" & sec end if result = Hour & Min & Sec END FUNC