Chuyển Code từ VB quan C#

tlhmhung · 18-03-2008, 04:37 PM

Mình tìm đựoc 1 đoạn code trên mạng có chức năng chuyển tiền số thành tiền bằng chữ những hàm này viết bằng VB. Mình muốn chuyển sang C# nhưng 1 số chỗ chưa chuyển sang đựoc nên chưa chạy đựoc trên C#. Mình gửi nên đây ai biết thì chuyển giúp mình với .Cảm ơn nhiều

VBNET Code:

Select All | Show/Hide

'======================================================
Hàm này dùng để đưa một số bất kỳ (có dấu chấm thập phân) về dạng chuẩn 
(không có dấu thập phân)
'======================================================
Function Doisangsochuan(BaoNhieu)
    BaoNhieu = Trim(BaoNhieu)
    'Cat bỏ khoảng trống
    Do While InStr(1,BaoNhieu," ") > 0
        BaoNhieu = Mid(BaoNhieu, 1, InStr(1, BaoNhieu, " ") - 1) & Mid(BaoNhieu, InStr(1, BaoNhieu, " ") + 1)
    Loop
    Do While InStr(1, BaoNhieu, ".") > 0
     BaoNhieu = Mid(BaoNhieu, 1, InStr(1, BaoNhieu, ".") - 1) & Mid(BaoNhieu, InStr(1, BaoNhieu, ".") + 1)
    Loop
    Doisangsochuan = BaoNhieu    
End Function
 
'=====================================================
'Hàm này dùng để đổi tiền từ số sang chuẩn
'=====================================================
Function Tienchu(so)
  Dim sotien, Hang, Donvi, Dem, tien
  Dim Ketquacc
  Dim n, Nhom, K    
  Hang = Array("None", "trăm", "mươi", "gì đó")
  Donvi = Array("None", "ngàn tỷ", "tỷ", "triệu", "ngàn", "đồng", "")
  Dem = Array("None", "một", "hai", "ba", "bốn", "năm", "sáu", "bảy", "tám", "chín")
  sotien = CStr(Cdbl(Doisangsochuan(so)))        'Đưa số về dạng chuẩn ko có dấu phân cách        
  dai = len(sotien)
  If Cdbl(sotien) = 0 then
     Ketquacc = "Không đồng"
  Else  ' sotien khác 0
     sotien = Abs(sotien) & ".00"
     sotien = Right(Space(15) & sotien, 18) ' Lay tong cong 18 ky tu
  For n = 1 to 6
        Nhom = Mid(sotien, (n * 3) - 2, 3)
        If Nhom <> Space(3) Then
           Select Case Nhom
    Case "000"
                   If n = 5 Then
                 chu = "đồng" & Space(1)
        Else
                     chu = Space(0)
                   End If
                Case ".00"
                     chu = ""                     
    Case Else    
                     S1 = Left(Nhom, 1) : S2 = Mid(Nhom, 2, 1) : S3 = Right(Nhom, 1)
                     chu = Space(0) : Hang(3) = Donvi(n)
                     For K = 1 To 3
                           dich = Space(0)
                           If (Mid(Nhom, K, 1) <> " ") then
                             S = Cint(Mid(Nhom, K, 1))                               
                                If S > 0 Then
                       dich = Dem(S) & Space(1) & Hang(K) & Space(1)
                    Else
                                   If (K = 1) And (n > 1) And (n < 6) Then
                                     dich = "không" & Space(1) & Hang(K) & Space(1)
                                   End If
                               End If
                                Select Case K
                                       Case 2 And S = 1
                                           dich = "mười" & Space(1)
                                     Case 3 And S = 0 And Nhom <> Space(2) & "0"
                                        dich = Hang(K) & Space(1)
                                   Case 3 And S = 5 And s2 <> Space(1) And s2 <> "0"
                                       dich = "l" & Mid(dich, 2)
                                    Case 2 And S = 0 And S3 <> "0"
                                     If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And n = 5) Then
                                         dich = "lẻ" & Space(1)
                                       End If
                                 End Select    ' Của K
                                             chu = chu & dich                                   
                         End if  'Của S khác " "                               
                        Next         'K
            Vitri = InStr(chu, "mươi một")
             If Vitri > 0 Then
                           chu = Thaythechuoi(chu,"mươi một","mươi mốt")                   
             End If
                         Ketqua = Ketqua & chu                                                     
                    End Select
    End if             
             Next    ' Của n
           End if
           Ketquacc = UCase(Left(Ketqua, 1)) & Trim(Mid(Ketqua, 2))
           if Instr(Ketquacc,"đồng") = 0 then
    Ketquacc = Ketquacc & " đồng"
           End if    
     Tienchu = Ketquacc
End Function

=================================================
Chú ý lần sau cho code vào tag code - Sunflower

anhtuyenbk · 18-03-2008, 04:47 PM

Lấy trang web chuyển đại hy vọng được

Visual C# Code:

Select All | Show/Hide

public object Doisangsochuan(object BaoNhieu)
{
BaoNhieu = Strings.Trim(BaoNhieu);
//Cat bỏ khoảng trống
while (Strings.InStr(1, BaoNhieu, " ") > 0) {
BaoNhieu = Strings.Mid(BaoNhieu, 1, Strings.InStr(1, BaoNhieu, " ") - 1) + Strings.Mid(BaoNhieu, Strings.InStr(1, BaoNhieu, " ") + 1);
}
while (Strings.InStr(1, BaoNhieu, ".") > 0) {
BaoNhieu = Strings.Mid(BaoNhieu, 1, Strings.InStr(1, BaoNhieu, ".") - 1) + Strings.Mid(BaoNhieu, Strings.InStr(1, BaoNhieu, ".") + 1);
}
return BaoNhieu;
}
//================================================= ====
//Hàm này dùng để đổi tiền từ số sang chuẩn
//================================================= ====
public object Tienchu(object so)
{
object sotien;
object Hang;
object Donvi;
object Dem;
object tien;
object Ketquacc;
object n;
object Nhom;
object K;
Hang = Array("None", "trăm", "mươi", "gì đó");
Donvi = Array("None", "ngàn tỷ", "tỷ", "triệu", "ngàn", "đồng", "");
Dem = Array("None", "một", "hai", "ba", "bốn", "năm", "sáu", "bảy", "tám", "chín"
);
sotien = (string)(double)Doisangsochuan(so);
//Đưa số về dạng chuẩn ko có dấu phân cách
dai = Strings.len(sotien);
if ((double)sotien == 0) {
Ketquacc = "Không đồng";
}
else {
// sotien khác 0
sotien = Abs(sotien) + ".00";
sotien = Strings.Right(Strings.Space(15) + sotien, 18);
// Lay tong cong 18 ky tu
for (n = 1; n <= 6; n++) {
Nhom = Strings.Mid(sotien, (n * 3) - 2, 3);
if (Nhom != Strings.Space(3)) {
switch (Nhom) {
case "000":
if (n == 5) {
chu = "đồng" + Strings.Space(1);
}
else {
chu = Strings.Space(0);
}
break;
case ".00":
chu = "";
break;
default:
S1 = Strings.Left(Nhom, 1);
S2 = Strings.Mid(Nhom, 2, 1);
S3 = Strings.Right(Nhom, 1);
chu = Strings.Space(0);
Hang(3) = Donvi(n);
for (K = 1; K <= 3; K++) {
dich = Strings.Space(0);
if ((Strings.Mid(Nhom, K, 1) != " ")) {
S = (int)Strings.Mid(Nhom, K, 1);
if (S > 0) {
dich = Dem(S) + Strings.Space(1) + Hang(K) + Strings.Space(1);
}
else {
if ((K == 1) & (n > 1) & (n < 6)) {
dich = "không" + Strings.Space(1) + Hang(K) + Strings.Space(1);
}
}
switch (K) {
case 2 & S == 1:
dich = "mười" + Strings.Space(1);
break;
case 3 & S == 0 & Nhom != Strings.Space(2) + "0":
dich = Hang(K) + Strings.Space(1);
break;
case 3 & S == 5 & s2 != Strings.Space(1) & s2 != "0":
dich = "l" + Strings.Mid(dich, 2);
break;
case 2 & S == 0 & S3 != "0":
if ((S1 >= "1" & S1 <= "9") | (S1 == "0" & n == 5)) {
dich = "lẻ" + Strings.Space(1);
}
break;
}
// Của K
chu = chu + dich;
}
//Của S khác " "
}
//K
Vitri = Strings.InStr(chu, "mươi một");
if (Vitri > 0) {
chu = Thaythechuoi(chu, "mươi một", "mươi mốt");
}
Ketqua = Ketqua + chu;
break;
}
}
}
// Của n
}
Ketquacc = Strings.UCase(Strings.Left(Ketqua, 1)) + Strings.Trim(Strings.Mid(Ketqua, 2));
if (Strings.Instr(Ketquacc, "đồng") == 0) {
Ketquacc = Ketquacc + " đồng";
}
return Ketquacc;
}

tlhmhung · 18-03-2008, 04:52 PM

Cảm ơn anhtuyenbk nhiều .Để tối mình về nhà Test thủ xem thế nào?
Mà cho hỏi vào trang nào để chuyển vậy

duyviet · 30-09-2009, 09:08 AM

Mình có biết 1 trang bạn vào thử

Code:

http://www.developerfusion.com/tools/convert/vb-to-csharp/

Đề tài: Chuyển Code từ VB quan C#

Các công cụ đề tài

Display

Chuyển Code từ VB quan C#

Các đề tài tương tự

Chuyển code sang code ngắn hơn trong LINQ

Chuyển đổi dữ liệu từ XML sang CSDL quan hệ

Chuyển code Nested Dolls từ C sang code pascal

Quyền hạn của bạn