Τρόπος μετατροπής λεπτά/μοίρες/δευτερόλεπτα γωνίες προς ή από δεκαδικό γωνίες στο Excel 2000

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 213449 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Για μια έκδοση του Microsoft Excel 97 αυτού του άρθρου, ανατρέξτε στο θέμα 121944.

Για μια έκδοση του Microsoft Excel 98 αυτού του άρθρου, ανατρέξτε στο θέμα 192367.
Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

Εμφάνιση γωνιακών μετρήσεων συνήθως εκφράζεται σε μονάδες μοίρες, λεπτά και δευτερόλεπτα (DMS). Ένα βαθμό ισούται με 60 λεπτά και μία λεπτό είναι ίσο με 60 δευτερόλεπτα. Για να απλοποιήσετε ορισμένες μαθηματικές πράξεις που ενδέχεται να θέλετε να express εμφάνιση γωνιακών μετρήσεων σε μοίρες και δεκαδικά κλάσματα μοίρες.

Αυτό το άρθρο περιέχει μια προσαρμοσμένη συνάρτηση δείγμα, μπορείτε να χρησιμοποιήσετε Για να μετατρέψετε μια τιμή σε μοίρες αποθηκεύονται σε δεκαδική μορφή, DMS αποθηκεύονται σε κείμενο μορφή και μια συνάρτηση δείγμα που μετατρέπει μια τιμή σε μοίρες αποθηκεύονται σε DMS δεκαδική μορφή.

Περισσότερες πληροφορίες

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς εγγύηση, είτε σιωπηρή είτε ρητή, περιλαμβανομένων, ενδεικτικά, οι σιωπηρές εγγυήσεις εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού, καθώς και τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες ούτε θα δημιουργήσουν διαδικασίες για τις συγκεκριμένες ανάγκες σας.
Εάν διαθέτετε περιορισμένη εμπειρία προγραμματισμού, ίσως θέλετε να επικοινωνήσετε με έναν Microsoft Certified Partner ή συμβουλευτικές υπηρεσίες της Microsoft. Για περισσότερες πληροφορίες, επισκεφθείτε την εξής τοποθεσίες της Microsoft στο Web:

Microsoft πιστοποιημένων εταίρων- https://Partner.Microsoft.com/Global/30000104

Συμβουλευτικές υπηρεσίες της Microsoft- http://support.Microsoft.com/gp/advisoryservice

Για περισσότερες πληροφορίες σχετικά με τις επιλογές υποστήριξης που είναι διαθέσιμες και τον τρόπο επικοινωνίας με τη Microsoft, επισκεφθείτε την ακόλουθη τοποθεσία της Microsoft στο Web:http://support.Microsoft.com/default.aspx?scid=fh.EN-USCNTACTMS

Μετατροπή μοίρες δεκαδικά λεπτά/μοίρες/δευτερόλεπτα

Παρακάτω 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
				
Για να χρησιμοποιήσετε αυτή τη λειτουργία, δημιουργείτε έναν τύπο μετατροπής, όπως στις ακόλουθες παράδειγμα:
  1. Ξεκινήστε το Excel και πιέστε το συνδυασμό πλήκτρων ALT + F11 για να ξεκινήσετε τη Visual Basic πρόγραμμα επεξεργασίας.
  2. Από το Εισαγωγή μενού, κάντε κλικ στο κουμπί Λειτουργική μονάδα.
  3. Εισαγάγετε το δείγμα κώδικα για προσαρμοσμένη Convert_Degree η συνάρτηση που περιγράφεται παραπάνω στο φύλλο λειτουργικής μονάδας.
  4. Πιέστε το συνδυασμό πλήκτρων ALT + F11, για να επιστρέψετε στο excel.
  5. Στο κελί A1, πληκτρολογήστε 10.45 παρακάτω.
  6. Στο κελί A2, πληκτρολογήστε τον ακόλουθο τύπο:
    =Convert_Degree(a1)


    Ο τύπος που αποδίδει 10 ° 27'36 "

Μετατροπή λεπτά/μοίρες/δευτερόλεπτα σε μοίρες δεκαδικά

Παρακάτω Microsoft Visual Basic για προσαρμοσμένες εφαρμογές συνάρτηση δέχεται μια συμβολοσειρά κειμένου μοίρες, λεπτά και δευτερόλεπτα που έχει μορφοποιηθεί με το ακριβώς ίδια μορφή που επιστρέφει η συνάρτηση Convert_Degree (για παράδειγμα, 10 ° 27' 36 ") και το μετατρέπει σε μια γωνία που έχει μορφοποιηθεί ως δεκαδική τιμή. Αυτό είναι ακριβώς το αντίστροφο της προσαρμοσμένης συνάρτησης Convert_Degree.

ΠΡΟΕΙΔΟΠΟΊΗΣΗ: Εάν το όρισμα Degree_Deg δεν είναι σε αποτυγχάνει αυτή η προσαρμοσμένη συνάρτηση η ακόλουθη μορφή
<degrees>° <minutes>' <seconds>" </seconds></minutes></degrees>
ακόμη και αν η τιμή δευτερόλεπτα είναι 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
				
Για να χρησιμοποιήσετε αυτή τη λειτουργία, δημιουργείτε έναν τύπο μετατροπής, όπως στις ακόλουθες παράδειγμα:
  1. Ξεκινήστε το Excel και πιέστε το συνδυασμό πλήκτρων ALT + F11 για να ξεκινήσετε τη Visual Basic Πρόγραμμα επεξεργασίας.
  2. Από το Εισαγωγή μενού, κάντε κλικ στο κουμπί Λειτουργική μονάδα.
  3. Εισαγάγετε το δείγμα κώδικα για προσαρμοσμένη Convert_Decimal η συνάρτηση που περιγράφεται παραπάνω στο φύλλο λειτουργικής μονάδας.
  4. Πιέστε το συνδυασμό πλήκτρων ALT + F11, για να επιστρέψετε στο excel.
  5. Στο κελί A1, πληκτρολογήστε τον ακόλουθο τύπο:
    = Convert_Decimal("10° 27' 36""")
    ΣΗΜΕΊΩΣΗ: Είναι απαραίτητο να πληκτρολογήσετε τρία εισαγωγικά ("" ") στο τέλος το όρισμα αυτό τον τύπο για να εξισορροπήσετε το εισαγωγικό τα δευτερόλεπτα και εισαγωγικά για τη συμβολοσειρά κειμένου. Μια αναφορά κελιού θα απαιτήσει ένα εισαγωγικά.
  6. Ο τύπος που αποδίδει 10.45 παρακάτω

Ιδιότητες

Αναγν. άρθρου: 213449 - Τελευταία αναθεώρηση: Δευτέρα, 19 Σεπτεμβρίου 2011 - Αναθεώρηση: 5.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
Λέξεις-κλειδιά: 
kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:213449

Αποστολή σχολίων

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com