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
Post Reply
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

Post by vo_minhdat2007 »

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

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

Post by Uzumaki Naruto »

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

Post by alexanderdna »

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: 32 times
Contact:

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

Post by clarkkent »

:-/

Code: Select all

Private Sub Command1_Click()MsgBox tGetDot(0.1)MsgBox Mid$(Format(0.1, "0.0"), 2, 1) '~so sánh~ MsgBox tGetDot(123.456)MsgBox Mid$(Format(123.456, "0.0"), 2, 1)End Sub Function tGetDot(n As Double) As StringtGetDot = Mid$(n, InStr(n, "."), 1)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

Post by vo_minhdat2007 »

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: 4779
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 525 times

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

Post by truongphu »

vo_minhdat2007 wrote:

Code: Select all

Mid$(Format(1.2, "0.0"), 2, 1)
Code thế là dài! Phải thế nầy cơ:

Code: Select all

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

Post by vo_minhdat2007 »

Thua bác Phú :D
Post Reply

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