01.
StringVar NumMonth := Mid(Replace(Replace (ToText ({SP_PK_OVERNIGHT_MONTHLY;1.วันที่}),
02.
StringVar YearThai := left(Replace(Replace (ToText ({SP_PK_OVERNIGHT_MONTHLY;1.วันที่}),
03.
04.
if (NumMonth=
"01"
)
Then
05.
" มกราคม "
& YearThai
06.
else if (NumMonth=
"02"
)
Then
07.
" กุมภาพันธ์ "
& YearThai
08.
else if (NumMonth=
"03"
)
Then
09.
" มีนาคม "
& YearThai
10.
else if (NumMonth=
"04"
)
Then
11.
" เมษายน "
& YearThai
12.
else if (NumMonth=
"05"
)
Then
13.
" พฤษภาคม "
& YearThai
14.
else if (NumMonth=
"06"
)
Then
15.
" มิถุนายน "
& YearThai
16.
else if (NumMonth=
"07"
)
Then
17.
" กรกฎาคม "
& YearThai
18.
else if (NumMonth=
"08"
)
Then
19.
" สิงหาคม "
& YearThai
20.
else if (NumMonth=
"09"
)
Then
21.
" กันยายน "
& YearThai
22.
else if (NumMonth=
"10"
)
Then
23.
" ตุลาคม "
& YearThai
24.
else if(NumMonth=
"11"
)
Then
25.
" พฤศจิกายน "
& YearThai
26.
else if (NumMonth=
"12"
)
Then
27.
" ธันวาคม "
& YearThai