29 มีนาคม 2024, 08:09:15 *
ยินดีต้อนรับคุณ, บุคคลทั่วไป กรุณา เข้าสู่ระบบ หรือ ลงทะเบียน

เข้าสู่ระบบด้วยชื่อผู้ใช้ รหัสผ่าน และระยะเวลาในเซสชั่น
 
  หน้าแรก   เว็บบอร์ด   ช่วยเหลือ ซื้อขายสินค้า Shop เข้าสู่ระบบ สมัครสมาชิก  
หน้า: [1]   ลงล่าง
  พิมพ์  
ผู้เขียน หัวข้อ:   ท่านใดมีวิธีเปลี่ยนรูปแบบพิกัด จาก องศาทศนิยม เป็น แบบ ละติจูด และ ลองติจูด  (อ่าน 7536 ครั้ง)
0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้
nameno
Full Member
***


ออฟไลน์ ออฟไลน์

เพศ: ชาย
ID number: 8164
กระทู้: 15
$0.00 credits

View Inventory
Send Money to nameno

Referrals: 0
คำขอบคุณ
-ได้ให้: 199
-ได้รับ: 34



พลังชีวิต
0%


nameno nameno nameno
เว็บไซต์
« เมื่อ: 23 มีนาคม 2015, 08:53:12 »



 ลองทำ poi sygic เอง พาหลงเลยกว่าจะเจอสาเหตุว่ามาจาก E8°06'00.4"N 98°59'05.4" องศาทศนิยม poi sygic ต้องเป็นแบบนี้ 100.532713     20.016789


ได้แล้วครับบบบบ ขอบคุณทุกท่านครับ
Kiss
วิธีการแปลงค่าระหว่างองศา/นาที/วินาที/มุมและมุมทศนิยมใน Excel
การแปลงองศาทศนิยมไปเป็นองศา/นาที/วินาที


<a href="http://www.youtube.com/watch?v=0QxxuSIFdFU" target="_blank">http://www.youtube.com/watch?v=0QxxuSIFdFU</a>


ฟังก์ชันที่กำหนดเองต่อไปนี้ของ Microsoft Visual Basic สำหรับแอปพลิเคชันยอมรับมุมซึ่งจัดรูปแบบเป็นค่าทศนิยม และแปลงไปเป็นค่าข้อความที่แสดงในหน่วยองศา นาที และวินาที

Function Convert_Degree(Decimal_Deg) As Variant
    With Application
        'Set degree to Integer of Argument Passed
        Degrees = Int(Decimal_Deg)
        'Set minutes to 60 times the number to the right
        'of the decimal for the variable Decimal_Deg
        Minutes = (Decimal_Deg - Degrees) * 60
        'Set seconds to 60 times the number to the right of the
        'decimal for the variable Minute
        Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")
        'Returns the Result of degree conversion
       '(for example, 10.46 = 10~ 27  ' 36")
        Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
            & Seconds + Chr(34)
    End With
End Function
            
เมื่อต้องการใช้ฟังก์ชันนี้ ให้สร้างสูตรการแปลง เช่น ในตัวอย่างต่อไปนี้:
เริ่ม Excel แล้วกด ALT+F11 เพื่อเริ่ม Visual Basic Editor
ในเมนู แทรก คลิก โมดูล
ใส่รหัสตัวอย่างสำหรับฟังก์ชันที่กำหนดเอง Convert_Degree ตามที่อธิบายข้างต้นลงในแผ่นงานโมดูล
กด ALT+F11 เพื่อกลับไปยัง Excel
ในเซลล์ A1 พิมพ์ 10.46
ในเซลล์ A2 พิมพ์สูตรต่อไปนี้:
=Convert_Degree(A1)


สูตรจะส่งกลับผลลัพธ์ 10°27'36"
การแปลงองศาทศนิยมไปเป็นองศา/นาที/วินาที

ฟังก์ชันที่กำหนดเองต่อไปนี้ของ Microsoft Visual Basic สำหรับแอปพลิเคชันยอมรับสตริงข้อความที่เป็นมุม นาที และวินาทีซึ่งจัดรูปแบบในรูปแบบเดียวกับผลลัพธ์ที่ฟังก์ชัน Convert_Degree ส่งกลับมา (เช่น 10° 27' 36") และแปลงไปเป็นมุมที่จัดรูปแบบเป็นค่าทศนิยม นี่เป็นการย้อนกลับของฟังก์ชันที่กำหนดเอง Convert_Degree

คำเตือน: ฟังก์ชันที่กำหนดเองนี้จะล้มเหลวถ้าอาร์กิวเมนต์ Degree_Deg ไม่ได้อยู่ในรูปแบบต่อไปนี้
<องศา>° <นาที>' <วินาที>"
แม้ว่าค่าวินาทีจะเป็น 0 ก็ตาม
Function Convert_Decimal(Degree_Deg As String) As Double
   ' Declare the variables to be double precision floating-point.
   Dim degrees As Double
   Dim minutes As Double
   Dim seconds As Double
   ' Set degree to value before "°" of Argument Passed.
   degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))
   ' Set minutes to the value between the "°" and the "'"
   ' of the text string for the variable Degree_Deg divided by
   ' 60. The Val function converts the text string to a number.
   minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _
             InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _
             "°") - 2)) / 60
    ' Set seconds to the number to the right of "'" that is
    ' converted to a value and then divided by 3600.
    seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _
            2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _
            / 3600
   Convert_Decimal = degrees + minutes + seconds
End Function
            
เมื่อต้องการใช้ฟังก์ชันนี้ ให้สร้างสูตรการแปลง เช่น ในตัวอย่างต่อไปนี้:
เริ่ม Excel แล้วกด ALT+F11 เพื่อเริ่ม Visual Basic Editor
ในเมนู แทรก คลิก โมดูล
ใส่รหัสตัวอย่างสำหรับฟังก์ชันที่กำหนดเอง Convert_Decimal ตามที่อธิบายข้างต้นลงในแผ่นงานโมดูล
กด ALT+F11 เพื่อกลับไปยัง Excel
ในเซลล์ A1 พิมพ์สูตรต่อไปนี้:
=Convert_Decimal("10° 27' 36""")
หมายเหตุ: คุณจะต้องพิมพ์สามเครื่องหมายคำพูด (""") ที่ส่วนท้ายของอาร์กิวเมนต์ของสูตรนี้เพื่อความสมดุลของเครื่องหมายคำพูดสำหรับวินาที และเครื่องหมายคำพูดสำหรับสตริงข้อความ การอ้างอิงเซลล์ไม่จำเป็นต้องมีเครื่องหมายคำพูด
สูตรจะส่งกลับผลลัพธ์เท่ากับ 10.46
« แก้ไขครั้งสุดท้าย: 23 มีนาคม 2015, 20:55:59 โดย nameno » บันทึกการเข้า

 
kamol147
S8 member
*****


ออฟไลน์ ออฟไลน์

รางวัล:
VIP ตลอดชีพ
ID number: 40168
กระทู้: 179
$0.00 credits

View Inventory
Send Money to kamol147

Referrals: 0
คำขอบคุณ
-ได้ให้: 77
-ได้รับ: 182



พลังชีวิต
0%


« ตอบ #1 เมื่อ: 23 มีนาคม 2015, 09:37:13 »

ลองใช้ App ชื่อ GPS Converter ใน Play store ดูครับ
บันทึกการเข้า
Nine09th
Jr. Member
**


ออฟไลน์ ออฟไลน์

เพศ: ชาย
ID number: 32
กระทู้: 43
$10.00 credits

View Inventory
Send Money to Nine09th

Referrals: 0
คำขอบคุณ
-ได้ให้: 169
-ได้รับ: 40



พลังชีวิต
0%


« ตอบ #2 เมื่อ: 23 มีนาคม 2015, 16:51:09 »

ลองเล่นดูนะครับ http://www.g.../calculators  Ok
บันทึกการเข้า
หน้า: [1]   ขึ้นบน
  พิมพ์  
 
กระโดดไป:  

Powered by MySQL Powered by PHP

Powered by SMF 1.1.10 | SMF © 2006-2009, Simple Machines LLC
SimplePortal 2.3.5 © 2008-2012, SimplePortal | Thai language by ThaiSMF

SMFAds for Free Forums
© Copyrights 2010 navthai.com mod by trex_ln
Valid XHTML 1.0! Valid CSS!
หน้านี้ถูกสร้างขึ้นภายในเวลา 0.036 วินาที กับ 40 คำสั่ง