[Update] Baht remains competitive | baht คือ – NATAVIGUIDES

Baht remains competitive

There are jitters over the very strong baht, but the Bank of Thailand chief had charts proving insists the currency is in line with others in the region.

Baht remains competitive & in line with competitors in export markets despite offshore fund flows into domestic financial markets.

CURRENCIES

Baht remains competitive, says BoT

Strong currency causes private sector jitters
01/09/2016
Pathom Sangwongwanich & Pawee Sirimai

The Bank of Thailand (BOT) has tried to allay the private sector’s concerns over the strengthening baht.

The BOT has affirmed that the currency’s value remains competitive amid substantial offshore fund flows into the domestic financial markets.

BAHT’S VALUE SHOULD NOT DIVERGE FROM TRADING COMPETITORS

“We have continuously discussed the matter with the private sector and other industries. The private sector has emphasised that the baht’s value should not diverge from that of Thailand’s trading competitors,” said central bank governor Veerathai Santiprabhob.

“The baht’s value has moved in line with the trend of regional currencies,” he added, reiterating that the central bank has been collaborating with financial institutions to assist domestic businesses to manage heightening foreign exchange fluctuations.

The baht fell slightly to 34.61 to the US dollar yesterday from 34.60 on Tuesday, according to Reuters.

BAHT RISING WITH REGIONAL CURRENCIES WHILE US DOLLAR FALLS

One might suspect that the recent bombing and arson incidents in several southern provinces might lead to a falling baht.

However, the baht rose rapidly in August.

The baht followed the upward trend of regional currencies while the US dollar fell in value amid weaker-than-expected US economic data.

The baht rose at a fast clip after the UK’s Brexit vote in June and the passage of the new constitution.

The surprising second quarter economic growth also helped.

EXPORTERS NOT HAPPY ABOUT STRONGER BAHT

The rising baht has made Thai exports more expensive.

The loss of competitiveness has angered exporters somewhat.

They have urged the Bank of Thailand to come up with measures to curb the strong local currency.

BAHT VOLATILITY

The year-to-date daily volatility rate of the baht against the dollar has been recorded at 4%, lower than the 8% experienced by the Malaysian ringgit and the Korean won or the 20% registered by the Japanese yen, said Mr Veerathai.

Foreign exchange volatility will likely continue to prevail mainly due to external factors such as the effects of advanced economies’ monetary policies and the recovery of certain industrialised economies, together with the greenback’s depreciation, causing regional currencies to appreciate.

Bank of Thailand governor Veerathai Santiprabhob insists the value of the baht is in line with others in the region, and produced charts (below) to try to prove it. (Photo by Pattarachai Preechapanich)

CENTRAL BANK POLICY

The central bank has managed capital inflows through the use of policy tools in order to prevent massive fund inflows impeding Thailand’s economic recovery,

The central bank stands ready to use those tools when it considers foreign exchange movement to be incompatible with financial stability or the country’s economic recovery, said Mr Veerathai.

Central banks in emerging market economies should place great importance on policy tools to manage fund flow movements, he said.

In a separate development, the Commerce Ministry yesterday revised customs-cleared exports in July to a contraction of 6.4% year-on-year from a 4.4% drop stated on Aug 26.

Annual exports in January-July were revised to a 2.3% fall from a 2% decline.

The ministry also revised July’s trade surplus to US$843 million from $1.21 billion stated earlier.

http://www.bangkokpost.com/business/finance/1075416/baht-remains-competitive-says-bot

Function Baht Text บน Crystal Report

ผมว่าหลายท่านก็คง เคยใช้ Function BahtText ใน Excel มาแล้ว
แต่ปรากฎว่า บน Crystal Report ไม่มีให้ใช้ ก็ต้องเขียนมันขึ้นมาเอง ละ
บางท่านก็คง มี Function ไ้ว้ใช้อยู่แล้ว

แต่ผมก็ขอเสนอ Idea ในการเขียนไว้หน่อยแล้วกัน เผื่อว่าใคร จะนึกไม่ออก
บอกไม่ถูก เคยเขียนแล้วแต่ ไม่รู้ เอาไฟล์ไปไว้ไหน ก็มาเอา Code ผมไป
ประยุกต์ใช้ ก้อ ไม่ว่ากัน
(ได้เฉพาะเลขบวก หรือ มากกว่า หรือเท่ากับ ศูนย์ และ ตัวเลขไม่เกิน 12 หลัก )

Concept ก็ง่ายๆ ตามวิธีของผม คือ
1. วิธีการแปลง ตัวเลขเป็น String ก่อน ด้วย จำนวนทศนิยม 2 ตำแหน่ง ตัด Comma หรือ เครื่องหมาย
฿ หรือ $ ออก
2. แยกส่วน บาท และ สตางค์ ออกจากกัน ด้วยทศนิยม
3. นำส่วนสตางค์ มาแปลง เป็นคำ
4. นำส่วนบาท มาแปลง เป็นคำ
5. นำส่วนบาท และ สตางค์ ที่เป็น คำแล้ว มาเชื่อมกัน
6. แปลงคำพิเศษ เช่น ยี่สิบ หรือ คำว่า เอ็ด

หลักการมีแค่นี้ คราวนี้มาดู Code (เป็น Code ใน Crystal Report 2008)

Function

(

NumberVar

Amount);
(

Local StringVar

TextOut:=””;

Local StringVar

Array

N := [“”,”หนึ่ง”,”สอง”,”สาม”,”สี่”,”ห้า”,”หก”,”เจ็ด”,”แปด”,”เก้า”];

Local StringVar

Array

D := [“”,”สิบ”,”ร้อย”,”พัน”,”หมื่น”,”แสน”,”ล้าน”];

Local StringVar Array

AmtBS;

//แยกบาท แยก สตางค์

Local StringVar

AmtBaht:=””;

Local StringVar

AmtStang:=””;
AmtBaht :=

Totext

(Amount,”0.00″,2);
AmtBaht :=

Replace

(AmtBaht,”,”,””);
AmtBaht :=

Replace

(AmtBaht,”$”,””);
AmtBaht :=

Replace

(AmtBaht,”฿”,””);
AmtBS :=

Split

(AmtBaht,”.”);
AmtBaht := AmtBS[1];

// บาท

AmtStang := AmtBS[2];

// สตางค์

// หาเศษสตางค์

TextOut:=””;

Local NumberVar

i;
IF (VAL(AmtStang)>0) THEN
(
FOR i:=1 To 2 DO
(
TextOut:=TextOut+ N[VAL(MID(AmtStang,i,1))+1] + IIF(VAL(MID(AmtStang,i,1))>0 ,D[2-i+1],””) ;

);

AmtStang:=TextOut+”สตางค์”;
)
ELSE
(
AmtStang:=”ถ้วน”;
);

// กรณี ส่วนบาท

Local NumberVar

nn;
TextOut:=””;
nn :=LEN(AmtBaht);
IF (VAL(AmtBaht)>0) THEN
(
IF (nn<=6) THEN ( FOR i:=1 To nn DO ( TextOut:=TextOut+ N[VAL(MID(AmtBaht,i,1))+1] + IIF(VAL(MID(AmtBaht,i,1))>0 ,D[nn-i+1],””) ;

);

AmtBaht:=TextOut+”บาท”;
)
ELSE
(
IF (nn>12) THEN
(
AmtBaht :=”ไม่สามารถคำนวณ เกิน 12 หลักได้”;
AmtStang:=””;
)
ELSE
(

//แยกหกหลักแรก, หกหลักที่สอง

Local StringVar

ML1:=””;

Local StringVar

ML2:=””;
ML1:=RIGHT(AmtBaht,6);

//ล้านปกติ

ML2:=LEFT(AmtBaht,LEN(AmtBaht)-LEN(ML1));

//เกินล้าน

TextOut:=””;
nn :=LEN(ML2);
FOR i:=1 To nn DO
(
TextOut:=TextOut+ N[VAL(MID(ML2,i,1))+1] + IIF(VAL(MID(ML2,i,1))>0 ,D[nn-i+1],””) ;

);

ML2:=TextOut+”ล้าน”;

TextOut:=””;
nn :=LEN(ML1);
FOR i:=1 To nn DO
(
TextOut:=TextOut+ N[VAL(MID(ML1,i,1))+1] + IIF(VAL(MID(ML1,i,1))>0 ,D[nn-i+1],””) ;

);

AmtBaht:=ML2+TextOut+”บาท”;
);
);
)
ELSE
(
AmtBaht:=””;
);

TextOut:=AmtBaht+ ” ” +AmtStang;
TextOut:=Replace(TextOut,”หนึ่งสิบ”,”สิบ”);
TextOut:=Replace(TextOut,”สองสิบ”,”ยี่สิบ”);
TextOut:=Replace(TextOut,”สิบหนึ่ง”,”สิบเอ็ด”);
TextOut;
)

ก็ไม่ยากไร แต่บางทีมานั่งเขียนใหม่ ก็เสียเวลาครับ