A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Access » General Discussion
Reload this Page Converting from Inches to Feet Conditionally
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Converting from Inches to Feet Conditionally


« Previous Thread | Next Thread »

 
 
Thread Tools Display Modes
  #1  
Old September 30th, 2005, 10:33 PM
zookeee
external usenet poster
  
Posts: n/a
Default Converting from Inches to Feet Conditionally
Hi, I have a question on how change from inches to feet only if there is a
decimal. It is a lumber count that I am creating and everything is feet with
a whole number, except some lumber is 104 1/4 or 103 3/4 for example. So I
want it to convert to feet ONLY IF I input it as 104.25.

Is that possible? I'm sure it is, but I am at a loss on how to do it.
  #2  
Old October 1st, 2005, 01:48 AM
Ricky Hicks MVP
external usenet poster
  
Posts: n/a
Default
Here is a function that will convert the decimal portion to a fraction that
is accurate within 128th of an inch ...

Public Function fDecToFrac(x) As String
Dim strTmp As String
Dim intFixed As Integer

If Not IsNumeric(x) Then Exit Function

x = Abs(x)
intFixed = Int(x)

If intFixed 0 Then
strTmp = str(intFixed) & " "
End If

Select Case x - intFixed
Case Is 0.007813
strTmp = strTmp
Case 0.007813 To 0.023438
strTmp = strTmp & "1/64"
Case 0.023438 To 0.039063
strTmp = strTmp & "1/32"
Case 0.039063 To 0.054688
strTmp = strTmp & "3/64"
Case 0.054688 To 0.070313
strTmp = strTmp & "1/16"
Case 0.070313 To 0.085938
strTmp = strTmp & "5/64"
Case 0.085938 To 0.101563
strTmp = strTmp & "3/32"
Case 0.101563 To 0.117188
strTmp = strTmp & "7/64"
Case 0.117188 To 0.132813
strTmp = strTmp & "1/8"
Case 0.132813 To 0.148438
strTmp = strTmp & "9/64"
Case 0.148438 To 0.164063
strTmp = strTmp & " 5/32"
Case 0.164063 To 0.179688
strTmp = strTmp & "11/64"
Case 0.179688 To 0.195313
strTmp = strTmp & "3/16"
Case 0.195313 To 0.210938
strTmp = strTmp & "13/64"
Case 0.210938 To 0.226563
strTmp = strTmp & "7/32"
Case 0.226563 To 0.242188
strTmp = strTmp & "15/64"
Case 0.242188 To 0.257813
strTmp = strTmp & "1/4"
Case 0.257813 To 0.273438
strTmp = strTmp & "17/64"
Case 0.273438 To 0.289063
strTmp = strTmp & "9/32"
Case 0.289063 To 0.304688
strTmp = strTmp & "19/64"
Case 0.304688 To 0.320313
strTmp = strTmp & "5/16"
Case 0.320313 To 0.335938
strTmp = strTmp & "21/64"
Case 0.335938 To 0.351563
strTmp = strTmp & "11/32"
Case 0.351563 To 0.367188
strTmp = strTmp & "23/64"
Case 0.367188 To 0.382813
strTmp = strTmp & "3/8"
Case 0.382813 To 0.398438
strTmp = strTmp & "25/64"
Case 0.398438 To 0.414063
strTmp = strTmp & "13/32"
Case 0.414063 To 0.429688
strTmp = strTmp & "27/64"
Case 0.429688 To 0.445313
strTmp = strTmp & "7/16"
Case 0.445313 To 0.460938
strTmp = strTmp & "29/64"
Case 0.460938 To 0.476563
strTmp = strTmp & "15/32"
Case 0.476563 To 0.492188
strTmp = strTmp & "31/64"
Case 0.492188 To 0.507813
strTmp = strTmp & "1/2"
Case 0.507813 To 0.523438
strTmp = strTmp & "33/64"
Case 0.523438 To 0.539063
strTmp = strTmp & "17/32"
Case 0.539063 To 0.554688
strTmp = strTmp & "35/64"
Case 0.554688 To 0.570313
strTmp = strTmp & "9/16"
Case 0.570313 To 0.585938
strTmp = strTmp & "37/64"
Case 0.585938 To 0.601563
strTmp = strTmp & "19/32"
Case 0.601563 To 0.617188
strTmp = strTmp & "39/64"
Case 0.617188 To 0.632813
strTmp = strTmp & "5/8"
Case 0.632813 To 0.648438
strTmp = strTmp & "41/64"
Case 0.648438 To 0.664063
strTmp = strTmp & "21/32"
Case 0.664063 To 0.679688
strTmp = strTmp & "43/64"
Case 0.679688 To 0.695313
strTmp = strTmp & "11/16"
Case 0.695313 To 0.710938
strTmp = strTmp & "45/64"
Case 0.710938 To 0.726563
strTmp = strTmp & "23/32"
Case 0.726563 To 0.742188
strTmp = strTmp & "47/64"
Case 0.742188 To 0.757813
strTmp = strTmp & "3/4"
Case 0.757813 To 0.773438
strTmp = strTmp & "49/64"
Case 0.773438 To 0.789063
strTmp = strTmp & "25/32"
Case 0.789063 To 0.804688
strTmp = strTmp & " 51/64"
Case 0.804688 To 0.820313
strTmp = strTmp & "13/16"
Case 0.820313 To 0.835938
strTmp = strTmp & "53/64"
Case 0.835938 To 0.851563
strTmp = strTmp & "27/32"
Case 0.851563 To 0.867188
strTmp = strTmp & "55/64"
Case 0.867188 To 0.882813
strTmp = strTmp & "7/8"
Case 0.882813 To 0.898438
strTmp = strTmp & "57/64"
Case 0.898438 To 0.914063
strTmp = strTmp & "29/32"
Case 0.914063 To 0.929688
strTmp = strTmp & "59/64"
Case 0.929688 To 0.945313
strTmp = strTmp & "15/16"
Case 0.945313 To 0.960938
strTmp = strTmp & "61/64"
Case 0.960938 To 0.976563
strTmp = strTmp & "31/32"
Case 0.976563 To 0.992188
strTmp = strTmp & "63/64"
Case Is 0.992188
strTmp = str(Int(x) + 1)
End Select

fDecToFrac = strTmp

End Function

R. Hicks

"zookeee" wrote:

Hi, I have a question on how change from inches to feet only if there is a
decimal. It is a lumber count that I am creating and everything is feet with
a whole number, except some lumber is 104 1/4 or 103 3/4 for example. So I
want it to convert to feet ONLY IF I input it as 104.25.

Is that possible? I'm sure it is, but I am at a loss on how to do it.
  #3  
Old October 2nd, 2005, 01:53 AM
zookeee
external usenet poster
  
Posts: n/a
Default
That is probably very helpful if someone wanted to convert to a fraction. I
want to change to feet only if I input a decimal (rounded to the nearest
foot, but I know how to do that). If I input 12 or 550 I want it to say 12
or 550. If I put in 104.25 then I want to convert it to say 9.

thanks though...

"Ricky Hicks MVP" wrote:

Here is a function that will convert the decimal portion to a fraction that
is accurate within 128th of an inch ...

Public Function fDecToFrac(x) As String
Dim strTmp As String
Dim intFixed As Integer

If Not IsNumeric(x) Then Exit Function

x = Abs(x)
intFixed = Int(x)

If intFixed 0 Then
strTmp = str(intFixed) & " "
End If

Select Case x - intFixed
Case Is 0.007813
strTmp = strTmp
Case 0.007813 To 0.023438
strTmp = strTmp & "1/64"
Case 0.023438 To 0.039063
strTmp = strTmp & "1/32"
Case 0.039063 To 0.054688
strTmp = strTmp & "3/64"
Case 0.054688 To 0.070313
strTmp = strTmp & "1/16"
Case 0.070313 To 0.085938
strTmp = strTmp & "5/64"
Case 0.085938 To 0.101563
strTmp = strTmp & "3/32"
Case 0.101563 To 0.117188
strTmp = strTmp & "7/64"
Case 0.117188 To 0.132813
strTmp = strTmp & "1/8"
Case 0.132813 To 0.148438
strTmp = strTmp & "9/64"
Case 0.148438 To 0.164063
strTmp = strTmp & " 5/32"
Case 0.164063 To 0.179688
strTmp = strTmp & "11/64"
Case 0.179688 To 0.195313
strTmp = strTmp & "3/16"
Case 0.195313 To 0.210938
strTmp = strTmp & "13/64"
Case 0.210938 To 0.226563
strTmp = strTmp & "7/32"
Case 0.226563 To 0.242188
strTmp = strTmp & "15/64"
Case 0.242188 To 0.257813
strTmp = strTmp & "1/4"
Case 0.257813 To 0.273438
strTmp = strTmp & "17/64"
Case 0.273438 To 0.289063
strTmp = strTmp & "9/32"
Case 0.289063 To 0.304688
strTmp = strTmp & "19/64"
Case 0.304688 To 0.320313
strTmp = strTmp & "5/16"
Case 0.320313 To 0.335938
strTmp = strTmp & "21/64"
Case 0.335938 To 0.351563
strTmp = strTmp & "11/32"
Case 0.351563 To 0.367188
strTmp = strTmp & "23/64"
Case 0.367188 To 0.382813
strTmp = strTmp & "3/8"
Case 0.382813 To 0.398438
strTmp = strTmp & "25/64"
Case 0.398438 To 0.414063
strTmp = strTmp & "13/32"
Case 0.414063 To 0.429688
strTmp = strTmp & "27/64"
Case 0.429688 To 0.445313
strTmp = strTmp & "7/16"
Case 0.445313 To 0.460938
strTmp = strTmp & "29/64"
Case 0.460938 To 0.476563
strTmp = strTmp & "15/32"
Case 0.476563 To 0.492188
strTmp = strTmp & "31/64"
Case 0.492188 To 0.507813
strTmp = strTmp & "1/2"
Case 0.507813 To 0.523438
strTmp = strTmp & "33/64"
Case 0.523438 To 0.539063
strTmp = strTmp & "17/32"
Case 0.539063 To 0.554688
strTmp = strTmp & "35/64"
Case 0.554688 To 0.570313
strTmp = strTmp & "9/16"
Case 0.570313 To 0.585938
strTmp = strTmp & "37/64"
Case 0.585938 To 0.601563
strTmp = strTmp & "19/32"
Case 0.601563 To 0.617188
strTmp = strTmp & "39/64"
Case 0.617188 To 0.632813
strTmp = strTmp & "5/8"
Case 0.632813 To 0.648438
strTmp = strTmp & "41/64"
Case 0.648438 To 0.664063
strTmp = strTmp & "21/32"
Case 0.664063 To 0.679688
strTmp = strTmp & "43/64"
Case 0.679688 To 0.695313
strTmp = strTmp & "11/16"
Case 0.695313 To 0.710938
strTmp = strTmp & "45/64"
Case 0.710938 To 0.726563
strTmp = strTmp & "23/32"
Case 0.726563 To 0.742188
strTmp = strTmp & "47/64"
Case 0.742188 To 0.757813
strTmp = strTmp & "3/4"
Case 0.757813 To 0.773438
strTmp = strTmp & "49/64"
Case 0.773438 To 0.789063
strTmp = strTmp & "25/32"
Case 0.789063 To 0.804688
strTmp = strTmp & " 51/64"
Case 0.804688 To 0.820313
strTmp = strTmp & "13/16"
Case 0.820313 To 0.835938
strTmp = strTmp & "53/64"
Case 0.835938 To 0.851563
strTmp = strTmp & "27/32"
Case 0.851563 To 0.867188
strTmp = strTmp & "55/64"
Case 0.867188 To 0.882813
strTmp = strTmp & "7/8"
Case 0.882813 To 0.898438
strTmp = strTmp & "57/64"
Case 0.898438 To 0.914063
strTmp = strTmp & "29/32"
Case 0.914063 To 0.929688
strTmp = strTmp & "59/64"
Case 0.929688 To 0.945313
strTmp = strTmp & "15/16"
Case 0.945313 To 0.960938
strTmp = strTmp & "61/64"
Case 0.960938 To 0.976563
strTmp = strTmp & "31/32"
Case 0.976563 To 0.992188
strTmp = strTmp & "63/64"
Case Is 0.992188
strTmp = str(Int(x) + 1)
End Select

fDecToFrac = strTmp

End Function

R. Hicks

"zookeee" wrote:

Hi, I have a question on how change from inches to feet only if there is a
decimal. It is a lumber count that I am creating and everything is feet with
a whole number, except some lumber is 104 1/4 or 103 3/4 for example. So I
want it to convert to feet ONLY IF I input it as 104.25.

Is that possible? I'm sure it is, but I am at a loss on how to do it.
  #4  
Old October 4th, 2005, 08:57 PM
dd
external usenet poster
  
Posts: n/a
Default
Use the instr function to determine if the field contains a decimal point.

if instr("some string/number", ".") 0 then
convert to feet ....
end if

Hope this helps,
-Duy


zookeee wrote:

That is probably very helpful if someone wanted to convert to a fraction. I
want to change to feet only if I input a decimal (rounded to the nearest
foot, but I know how to do that). If I input 12 or 550 I want it to say 12
or 550. If I put in 104.25 then I want to convert it to say 9.

thanks though...

"Ricky Hicks MVP" wrote:


Here is a function that will convert the decimal portion to a fraction that
is accurate within 128th of an inch ...

Public Function fDecToFrac(x) As String
Dim strTmp As String
Dim intFixed As Integer

If Not IsNumeric(x) Then Exit Function

x = Abs(x)
intFixed = Int(x)

If intFixed 0 Then
strTmp = str(intFixed) & " "
End If

Select Case x - intFixed
Case Is 0.007813
strTmp = strTmp
Case 0.007813 To 0.023438
strTmp = strTmp & "1/64"
Case 0.023438 To 0.039063
strTmp = strTmp & "1/32"
Case 0.039063 To 0.054688
strTmp = strTmp & "3/64"
Case 0.054688 To 0.070313
strTmp = strTmp & "1/16"
Case 0.070313 To 0.085938
strTmp = strTmp & "5/64"
Case 0.085938 To 0.101563
strTmp = strTmp & "3/32"
Case 0.101563 To 0.117188
strTmp = strTmp & "7/64"
Case 0.117188 To 0.132813
strTmp = strTmp & "1/8"
Case 0.132813 To 0.148438
strTmp = strTmp & "9/64"
Case 0.148438 To 0.164063
strTmp = strTmp & " 5/32"
Case 0.164063 To 0.179688
strTmp = strTmp & "11/64"
Case 0.179688 To 0.195313
strTmp = strTmp & "3/16"
Case 0.195313 To 0.210938
strTmp = strTmp & "13/64"
Case 0.210938 To 0.226563
strTmp = strTmp & "7/32"
Case 0.226563 To 0.242188
strTmp = strTmp & "15/64"
Case 0.242188 To 0.257813
strTmp = strTmp & "1/4"
Case 0.257813 To 0.273438
strTmp = strTmp & "17/64"
Case 0.273438 To 0.289063
strTmp = strTmp & "9/32"
Case 0.289063 To 0.304688
strTmp = strTmp & "19/64"
Case 0.304688 To 0.320313
strTmp = strTmp & "5/16"
Case 0.320313 To 0.335938
strTmp = strTmp & "21/64"
Case 0.335938 To 0.351563
strTmp = strTmp & "11/32"
Case 0.351563 To 0.367188
strTmp = strTmp & "23/64"
Case 0.367188 To 0.382813
strTmp = strTmp & "3/8"
Case 0.382813 To 0.398438
strTmp = strTmp & "25/64"
Case 0.398438 To 0.414063
strTmp = strTmp & "13/32"
Case 0.414063 To 0.429688
strTmp = strTmp & "27/64"
Case 0.429688 To 0.445313
strTmp = strTmp & "7/16"
Case 0.445313 To 0.460938
strTmp = strTmp & "29/64"
Case 0.460938 To 0.476563
strTmp = strTmp & "15/32"
Case 0.476563 To 0.492188
strTmp = strTmp & "31/64"
Case 0.492188 To 0.507813
strTmp = strTmp & "1/2"
Case 0.507813 To 0.523438
strTmp = strTmp & "33/64"
Case 0.523438 To 0.539063
strTmp = strTmp & "17/32"
Case 0.539063 To 0.554688
strTmp = strTmp & "35/64"
Case 0.554688 To 0.570313
strTmp = strTmp & "9/16"
Case 0.570313 To 0.585938
strTmp = strTmp & "37/64"
Case 0.585938 To 0.601563
strTmp = strTmp & "19/32"
Case 0.601563 To 0.617188
strTmp = strTmp & "39/64"
Case 0.617188 To 0.632813
strTmp = strTmp & "5/8"
Case 0.632813 To 0.648438
strTmp = strTmp & "41/64"
Case 0.648438 To 0.664063
strTmp = strTmp & "21/32"
Case 0.664063 To 0.679688
strTmp = strTmp & "43/64"
Case 0.679688 To 0.695313
strTmp = strTmp & "11/16"
Case 0.695313 To 0.710938
strTmp = strTmp & "45/64"
Case 0.710938 To 0.726563
strTmp = strTmp & "23/32"
Case 0.726563 To 0.742188
strTmp = strTmp & "47/64"
Case 0.742188 To 0.757813
strTmp = strTmp & "3/4"
Case 0.757813 To 0.773438
strTmp = strTmp & "49/64"
Case 0.773438 To 0.789063
strTmp = strTmp & "25/32"
Case 0.789063 To 0.804688
strTmp = strTmp & " 51/64"
Case 0.804688 To 0.820313
strTmp = strTmp & "13/16"
Case 0.820313 To 0.835938
strTmp = strTmp & "53/64"
Case 0.835938 To 0.851563
strTmp = strTmp & "27/32"
Case 0.851563 To 0.867188
strTmp = strTmp & "55/64"
Case 0.867188 To 0.882813
strTmp = strTmp & "7/8"
Case 0.882813 To 0.898438
strTmp = strTmp & "57/64"
Case 0.898438 To 0.914063
strTmp = strTmp & "29/32"
Case 0.914063 To 0.929688
strTmp = strTmp & "59/64"
Case 0.929688 To 0.945313
strTmp = strTmp & "15/16"
Case 0.945313 To 0.960938
strTmp = strTmp & "61/64"
Case 0.960938 To 0.976563
strTmp = strTmp & "31/32"
Case 0.976563 To 0.992188
strTmp = strTmp & "63/64"
Case Is 0.992188
strTmp = str(Int(x) + 1)
End Select

fDecToFrac = strTmp

End Function

R. Hicks

"zookeee" wrote:


Hi, I have a question on how change from inches to feet only if there is a
decimal. It is a lumber count that I am creating and everything is feet with
a whole number, except some lumber is 104 1/4 or 103 3/4 for example. So I
want it to convert to feet ONLY IF I input it as 104.25.

Is that possible? I'm sure it is, but I am at a loss on how to do it.
 



« Previous Thread | Next Thread »

Thread Tools
Display Modes
Linear Mode Linear Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
is there a macro that will convert from inches to feet and inches cable guy General Discussion 1 June 20th, 2005 07:29 PM
Calculate formulas with feet & inches PeggyC Worksheet Functions 1 January 30th, 2005 09:58 PM
Converting inches to feet & inches. svech61 Worksheet Functions 2 November 27th, 2004 04:23 AM
inputting feet and inches Lesa Worksheet Functions 2 March 14th, 2004 11:14 PM
Converting feet and inches to inches. Scott Worksheet Functions 1 October 12th, 2003 12:56 AM


All times are GMT +1. The time now is 05:42 PM.

Feed Icon - Contact Us - OfficeFrustration excel & word help home - FAQ - Links - Privacy Statement - Top

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.