Дата и время (DateVar)
Описание
เปลี่ยน ค.ศ. เป็น พ.ศ. База данных จาก
Ввод параметров
DateVar
Как пользоваться
1) Создать функцию โดย คลิก ขวา ที่ "Сообщить о пользовательской функции" กด new แล้ว ตั้ง ชื่อ fundle
2) Комичный код ใส่ "Сообщить о пользовательской функции" ที่ สร้าง ไว้
3) นำ ชื่อ Функция ที่ สร้าง ไว้ มา วาง วาง Параметры параметра
Пример
Пример: convDate (дата (2560,01,01))
Код 1
Функция (DATETIMEVAR IN_DATE)
ЕСЛИ (ГОД(IN_DATE)‹YEAR(CURRENTDATE)+100) THEN
DATETIME(YEAR(IN_DATE)+543,МЕСЯЦ(IN_DATE),ДЕНЬ(IN_DATE))
ДРУГОЕ
IN_DATE
Код 2
Функция (Datevar x)
totext(Date(( если год(x) › 2400, то год(x), иначе год(x) + 543),
месяц(x), день(x )), «дд/мм/гггг»)
Дата и время (StringVar)
Описание
เปลี่ยน Stringvar เป็น Datevar จาก Parameter Fields
Ввод параметров
StringVar «дд/мм/гггг»
Как пользоваться
1) Создать функцию โดยคลิกขวาที่ «Пользовательская функция отчета» กด Новая функция
2) Скопируйте код ใส่ «Пользовательская функция отчета» ที่สร้างไว้
3) Функция Функция
Пример
-
Код 1
Функция (Stringvar Str_Date)
Дата(Tonumber(Right(Str_Date,4)),
Tonumber(Mid(Str_Date,4,2)),
Tonumber(Left(Str_Date, 2)))
Код 2
Stringvar (กรณี รับ เป็น เป็น เป็น เช่น ตัว เรียง ปี เดือน วัน เช่น "20181231" (วัน ที่ 31 เดือน 12 ปี 2018))
Функция (Stringvar x)
totext( Date((if tonumber(Left(x,4)) › 2400 then tonumber(Left(x,4))
else tonumber(Left(x, 4)) + 543),tonumber(Mid(x,5,2)),tonumber(Left(x,2))
)”,dd/MM/yyyy”)
Дата Время Тайский
Описание
วันเดือนปี ภาษาไทย
Ввод параметров
Датевар
Как пользоваться
1) Создать функцию โดยคลิกขวาที่ «Пользовательская функция отчета» กด Новая функция
2) Скопируйте код ใส่ «Пользовательская функция отчета» ที่สร้างไว้
3) Функция Функция
Пример
-
Код 1
Функция (Datevar x)
(
if len(totext(day(x),0,"")) = 1
then "0" + totext(day(x),0,"")
else totext(день(x),0","")
) + "/" + (
totext(Choose(month(x),
"ม.ค."", ก.พ.», «มี.ค», «เม.ย», «พ.ค», «มิ.ย», «ก.ค», «ส.ค», «ก .ย.", "ต.ค", "พ.ย.", "ธ.ค."))
) + "/" + (
if tonumber(year(x)) ‹ 2400 then
totext(year(x) + 543,0"") else
totext(year(x),0","")
)
Код 2
ดึงจาก Поле ใน База данных
Выберите (месяц ({cl_letter_data.letter_date}), 'มกราคม', 'กุมภาพันธ์', 'มีนาคม', 'เมษายน', 'พฤษภาคม', 'มิถุนายน', 'กรกฏาคม', 'สิงหาคม', 'กันยายน ','ตุลาคม','พฤศจิกายน','ธันวาคม')
Код 3
รับค่าจาก Параметр เป็น Строка
Local stringVar m;
m:= {?FinMonth};
local stringVar m2;
если m=”01” или m=”1’, то
m2: =”มกราคม”
else if m=”02’ or m=”2’ then
m2:=”กุมภาพันธ์”
else if m=”03’or m=”3’ then
m2:=”มีนาคม”
else if m=”04'or m=”4’ then
m2:=”เมษายน”
else if m=”05’or m=”5' then
m2:=”พฤษภาคม”
else if m=”06’or m=”6’ then
m2:=”มิถุนายน”
else if m=”07'или m=”7’, то
m2:=”กรกฏาคม”
иначе, если m=”08’или m=”8’, то
m2:=” สิงหาคม”
иначе, если m=”09'или m=”9', то
m2:=”กันยายน”
иначе, если m=”10'или m=”10', тогда
m2:=”ตุลาคม”
else if m=”11’ or m=”11’ then
m2:=”พฤษจิกายน”
else if m=” 12'или m=”12' then
m2:=”ธันวาคม”;
m2;
Ошибка экспорта случая даты и времени
Описание
จัด Формат Дата ให้เป็น พ.ศ. «дд/мм/гггг» и ошибка экспорта
Ввод параметров
Введите количество полей
Как пользоваться
-
Пример
{CO_CONTRACT_MASTER.HC_CONT_DATE} คือ Поле ใน База данных
Код
(if len(split(totext({CO_CONTRACT_MASTER.HC_CONT_DATE}),'/')[1])‹2 then
'0' + split(totext({CO_CONTRACT_MASTER.HC_CONT_DATE}),'/ ')[1]
else split(totext({CO_CONTRACT_MASTER.HC_CONT_DATE}),'/')[1])
+'/'+
(if len(split(totext( {CO_CONTRACT_MASTER.HC_CONT_DATE}),'/')[2])‹2, затем
'0' + разделение(totext({CO_CONTRACT_MASTER.HC_CONT_DATE}),'/')[2]
иначе разделение (totext({CO_CONTRACT_MASTER.HC_CONT_DATE}),'/')[2])
+'/'+
replace(totext(tonumber(left(split)(totext({CO_CONTRACT_MASTER.HC_CONT_DATE}), '/')[3],4))+543,0),',','')
Код 2
// Вы можете изменить данные поля здесь
datevar fieldData := {CO_PAYM_HEAD.HPM_PAY_DATE};
stringvar payData :=
totext(
дата (
год (fieldData) + 543,
месяц (fieldData),
день (fieldData)
), "дд/мм/гггг"
);
stringvar payDay :=
if tonumber(left(payData,2)) ‹ 10 then
«0» + mid(payData,2,1)
else
left (payData,2)
;
stringvar payMonth :=
if tonumber(mid(payData,4,2)) ‹ 10 then
«0» + mid(payData,5,1)
else
середина(payData,4,2)
;
stringvar payYear := right(payData,4);
// payDate :=
payDay + «/» + payMonth + «/» + payYear
Начало — Конечный день в месяце
Описание
วัันที่ 1 ถึง สินเดือน ปี พ.ศ. เช่น 1–31 พฤษภาคม 2561
Ввод параметров
номервар, номервар
Как пользоваться
1) Создать функцию โดยคลิกขวาที่ «Пользовательская функция отчета» กด Новая функция
2) Скопируйте код ใส่ «Пользовательская функция отчета» ที่สร้างไว้
3) Функция Функция
Пример
-
Код 1
Функция (Numbervar x, Numbervar y)
// x = месяц
// y = год
totext( date(y,x,1)», «d» ) + « — " + totext( date(y,x+1,1)-1,"d" ) + " " +
Choose(x,"มกราคม","กุมภาพันธ์" «พฤษภาคม», «มิถุนายน», «กรกฎาคม», «สิงหาคม», «กันยายน», «ตุลาคม», «พฤกษจิกายน», «ธันวาคม») + «» +
TOTEEXT ((если y
Возраст
Описание
อายุ
Ввод параметров
Датевар
Как пользоваться
1) Создать функцию โดยคลิกขวาที่ «Пользовательская функция отчета» กด Новая функция
2) Скопируйте код ใส่ «Пользовательская функция отчета» ที่สร้างไว้
3) Функция Функция
Пример
-
Код 1
Функция (DateVar X)
// Параметр X - это дата рождения (ใช้ ปี ค.ศ.)
// ใส่ 365.25 เนื่อง จาก ปี อธิกสุรทิน
TOTEEXT (INT ((CUNTECTDATE — х) / 365,25 ),0",")
Множество
Описание
Массив массива
Ввод параметров
Введите количество полей
Как пользоваться
-
Пример
Формула 1
Общий массив stringVar productType := [""];
Общий номерVar x := 1;
Формула 2
Общий номерVar x;
Общий массив stringVar productType;
productType [x] := {Product_Type.Название типа продукта};
Повторно сохранить productType[UBound(productType)+1];
x := x+1;
Формула 3
Общий массив stringVar productType;
Присоединиться (productType, “, “)
Код
Формула 1
Общий массив stringVar **NameArray** := [“”];
Общий массив numberVar **PositionArray** := 1;
Формула 2
Общая числовая переменная **PositionArray**;
Общая строковая переменная массива **NameArray**;
**PositionArray** [ **PositionArray**] := {**Field In Data**};
Сохранить **PositionArray**[UBound(**PositionArray**)+1];
**PositionArray** := **PositionArray**+1;
Формула 3
Общий массив stringVar **PositionArray**;
Соединение (**PositionArray**, “, “)
Преобразование числа в текстовые деньги на тайском языке
Описание
เปลี่ยนตัวเลขเป็นตัวอักษร
Ввод параметров
НомерВар
Как пользоваться
1) Создать функцию โดยคลิกขวาที่ «Пользовательская функция отчета» กด Новая функция
2) Скопируйте код ใส่ «Пользовательская функция отчета» ที่สร้างไว้
3) Функция Функция
Пример
-
Код 1
Функция (numberVar money)
stringVar moneyNum := replace(totext(money,2),',','');
stringVar dacimalPoint := totext(tonumber(Right(moneyNum,2) )),0);
stringVar moneyCap := Left(moneyNum,len(moneyNum)-3);
stringVar moneyText;
stringVar moneyFrist;
numbervar idxOfnum;
> numberVar миллион;
numbervar loopsUnit;
numberVar loopsDecimal;
numberVar loopsMillion;
stringVar array unit:= ["", "สิบ", "ร้อย", "พัน", ”หมื่น”, “แสน””, “ล้าน”];
stringVar номер массива := [“หนึ่ง”, “สอง”, “สาม”, “สี่”, “ห่า”, “หา”, “หุ” ”แปด”, “เก้า”];
stringVar array numberSE :=[“เอ็ด”, “ยี่”, “บาท”, “สตางค์”, “ถ้วน”];
for loops1Decimal := to 2 do(
IF loopsDecimal‹›1 then moneyCap := dacimalPoint;
миллион := Потолок (len(moneyCap)/6);
moneyFrist := Left(moneyCap,len(moneyCap ) mod 6);
ЕСЛИ moneyFrist = "", то moneyFrist := LEFT(moneyCap,6);
for loopsMillion := миллион на 1 шаг -1
do (
moneyCap := Верно(moneyCa p,len(moneyCap)-len(moneyFrist));
numbervar lenUnit := len(moneyFrist);
for loopsUnit := lenUnit to 1 step -1
do (
idxOfnum := tonumber(left(moneyFrist,1));
ЕСЛИ idxOfnum ‹› 0 then (
moneyText := moneyText +number[idxOfnum]+unit[loopsUnit];
if loopsUnit = 2 и idxOfnum = 2, тогда //case 20
moneyText := Left(moneyText,len(moneyText)-len(number[2])-len(unit[2]))+numberSE[2]+unit[ loopsUnit];
если loopsUnit = 2 и idxOfnum = 1, то //case 10
moneyText := Left(moneyText,len(moneyText)-len(number[1])-len(unit[2] ))+unit[loopsUnit];
если loopsUnit = 1 и idxOfnum = 1 и lenUnit > 1, то //case 1
moneyText := Left(moneyText,len(moneyText)-len(number[1 ]))+numberSE[1];
);
moneyFrist := Right(moneyFrist,loopsUnit-1);
);
moneyFrist := LEFT(moneyCap,6) ;
ЕСЛИ loopsMillion ‹› 1 THEN (
moneyText := moneyText + unit[7];
););
IF loopsDecimal = 1 Then ( IF moneyText ‹› '' тогда moneyText := пн eyText + numberSE[3];
)else(
ЕСЛИ число(десятичное число)= 0 THEN (
moneyText := moneyText + numberSE[5];
)else(
/> moneyText := moneyText + numberSE[4]; );););
moneyText;
