˹á
 úҹ
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  ͧͧ
 
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 Ẻ¹
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 ԡèҡ
  Դ...
  DoodeeHosting
  Ѻ͡Ẻ Ѳ䫵
  Freeware
  ѵҤɳ
  ª١
  ʶԵԼ
 Ŵ
 Ң
 дҹʹ
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
 
 дҹҹ
 ԧ
 ǡѺ
 ѵҤɳ
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
 (BerDee)
(Android)
駩غ
駩غ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ԴͺʹФѺ...
2015-07-29 13:35:58
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:33:54
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:32:51
  ԴͺФѺ
ҹ...

2014-01-06 12:47:38
  ѧҤ͹ ͧ֡ͧ...
2013-07-06 01:04:37
  ʹ觢ͺࢵҤҤҡ͹ФѺ...
2013-03-24 18:54:20
  ѧդѺҹԴѺ 08...
2012-12-16 19:18:14
  ʹ㨤 Դ 0905076277...
2012-11-12 11:07:46
  Ѻ礹ѡ֡ͺѷ
...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  ͧ gotoxy ѧ...
2017-08-28 11:45:52
  ͧҧա u...
2017-08-27 20:09:01
  #define GLUT_DISABLE_ATEXIT...
2017-08-27 12:53:17
  դԻ͹ ...
2017-08-27 10:50:02
  Ѻ ͹ matlab ¹ matlab...
2017-06-03 16:27:23
  ੾зҧҴ ͧҢ...
2017-05-25 16:18:08
  ͧ˹Ѻ os ...
2017-05-25 16:12:47
  ¹ php curl ...
2017-04-20 01:04:20
  ¹ ...
2017-03-27 12:50:54
  ʧҷ ͧѾഷ...
2017-03-27 12:37:20
  Homework comment
  ͺسҡѺ...
2017-08-16 18:27:25
  ͧ ͧ ѧ ^^...
2017-04-18 18:40:46
  ͧ ͧ ѧ ^^...
2017-04-18 18:37:54
  á flowchart ѹ...
2017-04-18 17:43:33
  ҡ flowchart ...
2017-04-18 16:25:29
  kungking ӶäѺ ?...
2017-03-18 23:28:36
  ¹ʴͧ...
2017-03-06 10:56:25
  鴷ӧҹẺ ...
2016-09-06 01:00:12
  ҡҺ鴹Ѻѧ...
2016-09-05 09:31:27
  ͧ֡¹...
2016-04-22 00:47:49
  Article comment
  [b] , ...
2017-10-20 10:05:06
  [b]5 ...
2017-10-18 08:19:17
  - ...
2017-10-18 07:17:11
  [b] ...
2017-10-18 06:07:31
  [b] 96 ...
2017-10-18 06:05:28
  - ...
2017-10-18 05:49:56
  code ͧ VB ú...
2017-09-28 16:50:02
  ҨѺ ͧ
...

2017-07-11 09:59:35
  ö͡Ѻ anycast ...
2017-07-05 10:12:35
  Ѻ س "Դ" ͧ֡...
2016-06-18 15:21:09
  9Mcode comment
  ҡ...
2014-02-21 08:52:19

Link Exchange

ѵҤɳ
Statistics of Sourcecode in Thailand
 
 Webboard

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

з #3342 [Delphi]

¹Ţ Delphi 7 [ͤ]

þͨǷҧѺ
120 = ˹Ժ
ҡس : Zen13 / i3enz_zen13@hotmail.com [2012-09-10 17:31:46]  

58.11.86.162 Դ #28676 (ҡ IP: 58.11.86.162)
ͧ֡ŧͧ

------------------Cut----------------------------------
function ToWords (num : extended; wand, usd : boolean) : string;
{ this converts currency to words }
{ BOOLEAN PARAMETERS
wand : if true use "and", if not don't
usd : if true US Dollars, if not GB Pounds }
const
units : array[1..9] of string[6] = ('one ','two ','three ','four ','five
',
'six ','seven ','eight ','nine ');
tens : array[2..9] of string[8] = ('twenty ','thirty ','forty ','fifty
',
'sixty ','seventy ','eighty ','ninety ');
teens : array[0..9] of string[10] = ('ten ','eleven ','twelve
','thirteen ',
'fourteen ','fifteen ','sixteen ','seventeen ','eighteen ','nineteen
');
sep = ['.',','];
var
i : byte;
bit : string[3];
base : string[15];
chunk, resstr : string;
andflag : boolean;
numstrings, lastcopy : integer;
bits : tstringlist;
curr, curr1, pennies : string[8];
penniesbit : string[12];
which : array[0..2] of string[9];
procedure dochunk(ch : string; pass : byte);
var
tflag : boolean;
i : byte;
pt : array[1..3] of integer;
begin
chunk:='';
tflag:=false;
if ch='000' then
if (resstr <> '') and (pass=2) then begin
chunk:= curr;
exit;
end else exit;
for i:=1 to 3 do pt[i]:=strtoint(ch[i]);
if pt[1] <> 0 then chunk:=chunk+ units[pt[1]] + 'hundred ';
if wand then begin
if (copy(ch,2,2) <> '00') then
if andflag or (chunk <> '') then chunk:=chunk + 'and ';
end;
if pt[2] <> 0 then begin
if pt[2] > 1 then
chunk:=chunk + tens[pt[2]]
else tflag:=true;
end;
if tflag then begin
chunk:= chunk + teens[pt[3]]
end else if pt[3] <> 0 then chunk:=chunk + units[pt[3]];
if (pass = 2) and (resstr='') and (chunk='one ') then
chunk:=chunk + curr1
else chunk:=chunk + which[pass];
andflag:=true;
end;
begin { ToWords }
which[0]:='million ';
which[1]:='thousand ';
if usd then begin
curr:='dollars ';
curr1:='dollar ';
pennies:=' cents';
end else begin
curr:='pounds ';
curr1:='pound ';
pennies:=' pence';
end;
which[2]:=curr;
chunk:='';
resstr:='';
base:=formatfloat('000,000,000.00',num);
try
bits:=tstringlist.create;
lastcopy:=1;
for i := 1 to length(base) do
if (base[i] in sep) or (i=length(base)) then begin
bit:=copy(base,lastcopy,i-lastcopy);
if i= length(base) then bit:=bit + base[i];
numstrings:=bits.add(bit);
lastcopy:=i+1;
end;
andflag:=false;
for i:= 0 to 2 do begin
dochunk(bits[i],i);
resstr:=resstr + chunk;
chunk:='';
end;
if usd then penniesbit:='and ' + bits[3] + ' cents'
else penniesbit:=bits[3];
if bits[3] <> '00' then begin
if resstr='' then resstr:=bits[3] + pennies
else resstr:=resstr + penniesbit;
end;
if resstr <> '' then resstr[1]:=upcase(resstr[1]);
result:=resstr;
finally
bits.free;
end;
end; { ToWords }
---------------------------Cut--------------------------
Hope it helps
Nick Spurrier (MoDESoft, UK)
ҡس : maddog [2012-09-13 10:42:49]

111.84.212.190 Դ #28999 (ҡ IP: 111.84.212.190)
ͧ code ҤԹҷ ¹ Lazarus 任ء٤Ѻ

------------Code----------------

function TThai.TextBaht(extBaht:Currency):string;
var
strBaht, strStang, strTmpBaht, strTmpStang : string;
n, i : integer;
isCredit : boolean;
const
kLuk : array [1..15] of string =
('','Ժ','','ѹ','','ʹ','ҹ','Ժ','','ѹ','','ʹ','ҹ','Ժ','');
kNum : array [0..9] of string =
('','˹','ͧ','','','','ˡ','','Ỵ','');
begin
Result := '';
isCredit := false;
n := 0;

strBaht := FormatFloat('0.00',extBaht); // ŧŢʵԧ
n := Pos('.',strBaht); // ҵ˹觨ش

if extBaht < 0 then begin //Ҥź
// Թź
isCredit := true;
strStang := Copy(strBaht,n+1,2); // Ţʵҧ
strBaht := Copy(strBaht,2,n-2); // Ţҷ
end else begin
// Թ繺ǡ
isCredit := false;
strStang := Copy(strBaht,n+1,2); // Ţʵҧ
strBaht := Copy(strBaht,1,n-1); // Ţҷ
end;

(*
// Դ੾Ф繺ǡҹ
strStang := Copy(strBaht,n+1,2); // Ţʵҧ
strBaht := Copy(strBaht,1,n-1); // Ţҷ
*)


// Һҷ
strTmpBaht := '';
i := Length(strBaht);
for n := 1 to Length(strBaht) do
begin
// Ţ 0
if (strBaht[n]='0') then
begin
// ѡҹ Թҹ ҹ
if (i=7) and (strTmpBaht<>'') then strTmpBaht := strTmpBaht + kLuk[i];
Dec(i); // i := i - 1;
Continue; // ÷ӧҹ
end;
// ǡӹǹԹ仵ѡ
strTmpBaht := strTmpBaht + kNum[StrToInt(strBaht[n])] + kLuk[i];
Dec(i);
end;

// ʹԹ ҷ
if (strTmpBaht <> '') then strTmpBaht := strTmpBaht + 'ҷ';

// ʵҧ
strTmpStang := '';
// դҵ 10 ʵҧ
if (strStang[1]<>'0') then // Ժ
strTmpStang := strTmpStang + kNum[StrToInt(strStang[1])] + kLuk[2];
// դʵҧ
if (strStang[2]<>'0') then // ˹
strTmpStang := strTmpStang + kNum[StrToInt(strStang[2])];

// դ˹ʵҧ ʵҧ
if (strTmpStang<>'') then
begin
strTmpStang := strTmpStang + 'ʵҧ';
strTmpBaht := strTmpBaht + strTmpStang; // ҷʵҧ
end
else if (strTmpBaht<>'') then // դԹҷ ǹ
strTmpBaht := strTmpBaht + 'ǹ';

// ¡¤¡˹¹Ѻ
if (strTmpBaht<>'') then
begin

strTmpBaht := StringReplace(strTmpBaht,'˹Ժ','Ժ',[rfReplaceAll]);
strTmpBaht := StringReplace(strTmpBaht,'ͧԺ','Ժ',[rfReplaceAll]);
strTmpBaht := StringReplace(strTmpBaht,'Ժ˹','Ժ',[rfReplaceAll]);


// ѹͧẺ ˹
//strTmpBaht := StringReplace(strTmpBaht,'˹','',[rfReplaceAll]);
if isCredit then
Result := '(Դź) ' + strTmpBaht
else
Result := strTmpBaht;
end;
end;
----------------------------
ҡس : M-29 / m29@gmail.com [2014-01-31 19:21:41]
ͺз
´

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

 
 
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI)
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI) ´дѺ 4K
ŧ Mini DisplayPort to HDMI Adapter ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
µٿѧ Ъ Ѻ iPhone 7  7 Plus
µٿѧ Ъ Ѻ iPhone 7 7 Plus
ŧҡ USB-C Type  USB 3.1 Ѻ MacBook
ŧҡ USB-C Type USB 3.1 Ѻ MacBook
䢤ǧѺͧ Macbook Air/Pro
䢤ǧ Ѻͧ Macbook Air/Pro (300ҷ)
HDMI  3 ͡  1
HDMI 3 ͡ 1 (350ҷ)
Ի͹¹
¹¹ͷ
¹¹͹´
¹¹
¹¹ վʾ
¹¹
¹ҹԹء
¹¹Թ⿹
¹¹Ϊ ʤ
9M Blog ͧ͡ ¹ͧ
ԡ ҾѺԭ
OrmSin.com: ˹ѧͧҹ--չ (country crafts)
ѵҤɳ
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
ẺǨ
Freelance ѺѲ

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

ʧǹԢԷ Ѵ͡ ӫ Ѵŧ ٻẺ Ѻ͹حҵѡɳѡ
Ţ¹ҳԪ硷͹ԡҡзǧҳԪ: 7100503002000
Copyright 2001 SourceCode.in.th