[mso] Re: Excel 2000 Personal.xls

  • From: "Linda F. Johnson" <linda@xxxxxxxxxxxxxxxxxxxxxxxxxxx>
  • To: <mso@xxxxxxxxxxxxx>
  • Date: Wed, 20 Dec 2006 22:06:38 -0500

Sorry, Robert .... That is not a "formula" ... It's VBA, so someone besides
me will have to help you with that. 


Linda F. Johnson
Linda's Computer Stop
Author, MOS: Excel 2003 Study Guide, published by John Wiley and Sons
http://personal-computer-tutor.com

-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf
Of Robert Carneal
Sent: Wednesday, December 20, 2006 9:12 PM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Excel 2000 Personal.xls

Linda and everyone-

Here is the formula I wrote; not perfect, but shouldn't it work?

Function Latify(Decimal_Deg) As Variant
    With Application
        Degrees = Int(Decimal_Deg)   'Get Integer of Argument
        Port = Decimal_Deg - Degrees 'Get portion of Degrees
        MinutesO = Port * 60          'Get Minutes value
        Minutes = Int(MinutesO)       'Get Integer port Minutes
        Port = MinutesO - Minutes     'Get dec port of Minutes
        SecondsO = Port * 60          'Get Seconds value
        ' Finished calculating, do Formatting....
        Seconds = Format(SecondsO, "00.0000") ' Format Seconds
        Minutes = Format(Minutes, "00")      ' Format Degrees
        Degrees = Format(Degrees, "00")      ' Format Minutes
        'Put it all together...
        Latify = Degrees & Minutes & Seconds
    End With
End Function


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the dropdown 
menu at the top.  This will allow you to unsubscribe your email address or 
change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso

If you are using Outlook and you see a lot of unnecessary code in your email 
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************

Other related posts: