01.
dim MonthNames as string
02.
dim MonthNumber as string
03.
dim YearNumber as number
04.
YearNumber =tonumber(right({command.receivedate},4))
05.
if YearNumber<2500 then
06.
YearNumber =YearNumber+543
07.
end if
08.
09.
MonthNumber =mid({command.receivedate},4,2)
10.
11.
if MonthNumber=
"01"
then
12.
MonthNames=
"มกราคม"
13.
elseif MonthNumber=
"02"
then
14.
MonthNames=
"กุมภาพันธ์"
15.
elseif MonthNumber=
"03"
then
16.
MonthNames=
"มีนาคม"
17.
elseif MonthNumber=
"04"
then
18.
MonthNames=
"เมษายน"
19.
elseif MonthNumber=
"05"
then
20.
MonthNames=
"พฤษภาคม"
21.
elseif MonthNumber=
"06"
then
22.
MonthNames=
"มิถุนายน"
23.
elseif MonthNumber=
"07"
then
24.
MonthNames=
"กรกฎาคม"
25.
elseif MonthNumber=
"08"
then
26.
MonthNames=
"สิงหาคม"
27.
elseif MonthNumber=
"09"
then
28.
MonthNames=
"กันยายน"
29.
elseif MonthNumber=
"10"
then
30.
MonthNames=
"ตุลาคม"
31.
elseif MonthNumber=
"11"
then
32.
MonthNames=
"พฤศจิกายน"
33.
elseif MonthNumber=
"12"
then
34.
MonthNames=
"ธันวาคม"
35.
end if
36.
MonthNames =left({command.receivedate},2) &
" "
& MonthNames &
" "
& replace(replace(totext(YearNumber),
".00"
,
""
),
","
,
""
)
37.
38.
formula =
"วันที่ "
& MonthNames