Setting text format for a textbook on a form

[Aussiebear]

How does one set the format for a textbox on a form to accept either time degrees or decimal degrees?

[SamT]

A TextBox holds text, String Values.

TextBox1.Value = CStr(DecimalDegreeNumber)
TextBox2.Value = Degrees & "*:" & Minutes & "':" & Seconds & """

TextBox1 reads as : 150.82375927
TextBox2 reads as: 150^*:13':34.395"

[Aussiebear]

Hmmm, what about if I wanted to put a cat amongst the pidgeons by only wanting Degrees &"." & Minutes &"." & Seconds in the form of
23.45.789 or 150.56.345

[snb]

did you try

format(2345789,"@@@.@@.@@@")

[Aussiebear]

@snb, I did try to write it as txtLatitude1.Value = Format(txtLatitude1.Value, "00.00.000") but haven't tested it yet.

[SamT]

Hmmm, what about if I wanted to put a cat amongst the pidgeons by only wanting Degrees &"." & Minutes &"." & Seconds in the form of
23.45.789 or 150.56.345

Use Left(CStr(Seconds * 10), 3)

If the starting value is Decimal degrees, you will have to convert it to Degrees, Minutes Seconds.

By definition, in D:M:S Nomenclature, Degrees are integers from 0 to 359 or from -179 to +179, Minutes are integers from 0 to 59, and seconds are doubles from 0 to 59.999...

For decimal Degrees, Degrees are doubles from -179.999... to +179.999...

Thought Experiment:

Function ConvertToDMS(DecDegree As Double) As Variant
Dim NegativeSign As Boolean

'DecDegree is Double
Dim dmsDegree As Int
Dim DecMinute As Double
Dim dmsMinute As Int
Dim dmsSecond As Double


NegativeSign = DecDegree < 0
If NegativeSign then DecDegree = DecDegree * -1
dmsDegree = Int(DecDegree)

DecMinute = DecDegree - dmsDegree
dmsMinute = Int(DecMinute * 60)

dmsSecond = (DecMinute - dmsMinute) * 60

If NegativeSign Then dmsDegree = dmsDegree * -1
ConvertToDMS = Array(dmsDegree, dmsMinute, dmsSecond)

End Function

[snb]

I changed the format in #4 to format(y,"@@@.@@.@@@")

[Paul_Hossler]

@SamT

 For decimal Degrees, Degrees are doubles from -179.999... to +179.999...

Not for latitudes of course

[SamT]

[Paul_Hossler]