• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Xác định dấu phân cách thập phân đơn giản nhất

Các thủ thuật liên quan đến xử lý chuỗi và thời gian
User avatar
vo_minhdat2007
Quản trị
Quản trị
Posts: 2227
Joined: Sun 17/07/2005 1:40 am
Has thanked: 13 times
Been thanked: 87 times
Contact:

Xác định dấu phân cách thập phân đơn giản nhất

Postby vo_minhdat2007 » Thu 16/07/2009 9:15 pm

Thủ thuật: Xác định dấu phân cách thập phân (Decimal Symbol)
Tác giả: Sưu tầm
Mô tả: Nhìn vào không tin luôn đấy :))



Code: Select all

  1. Mid$(Format(1.2, "0.0"), 2, 1)



Uzumaki Naruto
Thành viên danh dự
Thành viên danh dự
Posts: 839
Joined: Mon 30/04/2007 9:55 pm
Location: Sài Gòn
Has thanked: 7 times
Been thanked: 83 times

Re: Xác định dấu phân cách thập phân đơn giản nhất

Postby Uzumaki Naruto » Thu 16/07/2009 9:36 pm

Hay đáo để, trước mình phải dùng API để lấy Info từ hệ thống. Sao không phát hiện ra sớm nhỉ :D
Cause you're my special thing
I'm flying without wings

User avatar
alexanderdna
Guru
Guru
Posts: 214
Joined: Tue 14/07/2009 11:13 am
Location: Sài Gòn
Has thanked: 3 times
Been thanked: 15 times

Re: Xác định dấu phân cách thập phân đơn giản nhất

Postby alexanderdna » Sat 25/07/2009 11:01 am

Lạy Phật! Đúng là được khai sáng! Cám ơn chiến hữu!

User avatar
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Posts: 1641
Joined: Wed 16/04/2008 11:25 am
Location: Chợ Lách - Bến Tre
Been thanked: 31 times
Contact:

Re: Xác định dấu phân cách thập phân đơn giản nhất

Postby clarkkent » Sat 25/07/2009 11:13 am

:-/

Code: Select all

  1. Private Sub Command1_Click()
  2. MsgBox tGetDot(0.1)
  3. MsgBox Mid$(Format(0.1, "0.0"), 2, 1)
  4.  
  5. '~so sánh~
  6.  
  7. MsgBox tGetDot(123.456)
  8. MsgBox Mid$(Format(123.456, "0.0"), 2, 1)
  9. End Sub
  10.  
  11. Function tGetDot(n As Double) As String
  12. tGetDot = Mid$(n, InStr(n, "."), 1)
  13. End Function
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

User avatar
vo_minhdat2007
Quản trị
Quản trị
Posts: 2227
Joined: Sun 17/07/2005 1:40 am
Has thanked: 13 times
Been thanked: 87 times
Contact:

Re: Xác định dấu phân cách thập phân đơn giản nhất

Postby vo_minhdat2007 » Sat 25/07/2009 5:09 pm

Mục đích là lấy ký hiệu thập phân mà? Nó sẽ trả về "." hay "," tuỳ vào người dùng chỉnh trong Regional.

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

Re: Xác định dấu phân cách thập phân đơn giản nhất

Postby truongphu » Tue 28/07/2009 8:51 am

vo_minhdat2007 wrote:

Code: Select all

  1. Mid$(Format(1.2, "0.0"), 2, 1)


Code thế là dài! Phải thế nầy cơ:

Code: Select all

  1. Format$(0, "#.#")


:D
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

User avatar
vo_minhdat2007
Quản trị
Quản trị
Posts: 2227
Joined: Sun 17/07/2005 1:40 am
Has thanked: 13 times
Been thanked: 87 times
Contact:

Re: Xác định dấu phân cách thập phân đơn giản nhất

Postby vo_minhdat2007 » Wed 29/07/2009 11:33 am

Thua bác Phú :D


Return to “[VB] Chuỗi và Thời gian”

Who is online

Users browsing this forum: No registered users and 1 guest