Poyarkov696
0
All posts from Poyarkov696
  Poyarkov696 in Poyarkov696,

Файл func_gr.txt. Используется почти во всех моих программах

' функция перевода строки в цифровой формат
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