Oprettet tir. d. 30. december 2008 kl. 20:53:39

200 point uddelt | 8 kommentarer

yezper (22.499 point. Point ude: 0)

[VB.NET] Konvertering af cm til fod og tommer

Hej alle,

Jeg har brug for at konvertere Europæiske cm til formatet 6'8" (6 fod, 8 tommer.)

Er der nogen som kan hjælpe med dette?

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 30. december 2008 kl. 20:55:33| #1

arne_v (1.048.628 point)

1 engelsk tomme = 2.54 cm
1 engelsk fod = 12 engelske tommer = 30.48 cm

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 30. december 2008 kl. 21:01:49| #2

arne_v (1.048.628 point)

Så:

Dim fod As Integer = CType(Math.Floor(cm / 30.48), Integer)
Dim tommer As Integer = CType(Math.Floor(cm - fod*30.48), Integer)

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 30. december 2008 kl. 21:11:46| #3

yezper (22.499 point)

Tusind tak - det virker perfekt :)
Smider du et svar?

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 30. december 2008 kl. 21:15:15| #4

Accepteret svar!200 point tildelt

arne_v (1.048.628 point)

kommer her

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 30. december 2008 kl. 21:21:47| #5

yezper (22.499 point)

Ved yderligere tjek - det gør det faktisk ikke.

Har følgende function:

Public Shared Function ConvertCmToFeet(ByVal cm As Double) As String
Dim feet As Integer = 0
Dim inches As Double = 0
Dim feetandinches As String = ""

feet = CType(Math.Floor(cm / 30.48), Integer)
inches = CType(Math.Floor(cm - feet * 30.48), Integer)

feetandinches = feet & "'" & inches & """"

Return feetandinches
End Function

Som bruges på følgende måde:

' Populate Weight Dropdown
Dim kg As Double = 0
Dim lbs As String = ""

For kg = 35 To 250
lbs = ConvertKgToLbs(kg)

l = New ListItem
l.Value = kg
l.Text = lbs & " (" & kg & " kg)"

drpWeight.Items.Add(l)

l = Nothing
Next

Resultatet er en liste, som ser således ud:

[...]
<option value="153">5'0" (153 cm)</option>
<option value="154">5'1" (154 cm)</option>
<option value="155">5'2" (155 cm)</option>
<option value="156">5'3" (156 cm)</option>
<option value="157">5'4" (157 cm)</option>
<option value="158">5'5" (158 cm)</option>
<option value="159">5'6" (159 cm)</option>
<option value="160">5'7" (160 cm)</option>
<option value="161">5'8" (161 cm)</option>
<option value="162">5'9" (162 cm)</option>
<option value="163">5'10" (163 cm)</option>
<option value="164">5'11" (164 cm)</option>
<option value="165">5'12" (165 cm)</option>
<option value="166">5'13" (166 cm)</option>
<option value="167">5'14" (167 cm)</option>
<option value="168">5'15" (168 cm)</option>
<option value="169">5'16" (169 cm)</option>
<option value="170">5'17" (170 cm)</option>
<option value="171">5'18" (171 cm)</option>
<option value="172">5'19" (172 cm)</option>
<option value="173">5'20" (173 cm)</option>
<option value="174">5'21" (174 cm)</option>
<option value="175">5'22" (175 cm)</option>
<option value="176">5'23" (176 cm)</option>
<option value="177">5'24" (177 cm)</option>
<option value="178">5'25" (178 cm)</option>
<option value="179">5'26" (179 cm)</option>
<option value="180">5'27" (180 cm)</option>
<option value="181">5'28" (181 cm)</option>
<option value="182">5'29" (182 cm)</option>
<option value="183">6'0" (183 cm)</option>
<option value="184">6'1" (184 cm)</option>
<option value="185">6'2" (185 cm)</option>
<option value="186">6'3" (186 cm)</option>
<option value="187">6'4" (187 cm)</option>
<option value="188">6'5" (188 cm)</option>
<option value="189">6'6" (189 cm)</option>
<option value="190">6'7" (190 cm)</option>
<option value="191">6'8" (191 cm)</option>
<option value="192">6'9" (192 cm)</option>
<option value="193">6'10" (193 cm)</option>
<option value="194">6'11" (194 cm)</option>
<option value="195">6'12" (195 cm)</option>
<option value="196">6'13" (196 cm)</option>
<option value="197">6'14" (197 cm)</option>
<option value="198">6'15" (198 cm)</option>
<option value="199">6'16" (199 cm)</option>
<option value="200">6'17" (200 cm)</option>
<option value="201">6'18" (201 cm)</option>
<option value="202">6'19" (202 cm)</option>
<option value="203">6'20" (203 cm)</option>
<option value="204">6'21" (204 cm)</option>
<option value="205">6'22" (205 cm)</option>
<option value="206">6'23" (206 cm)</option>
<option value="207">6'24" (207 cm)</option>
<option value="208">6'25" (208 cm)</option>
<option value="209">6'26" (209 cm)</option>
<option value="210">6'27" (210 cm)</option>
<option value="211">6'28" (211 cm)</option>
<option value="212">6'29" (212 cm)</option>
<option value="213">6'30" (213 cm)</option>
<option value="214">7'0" (214 cm)</option>
<option value="215">7'1" (215 cm)</option>
<option value="216">7'2" (216 cm)</option>
<option value="217">7'3" (217 cm)</option>
<option value="218">7'4" (218 cm)</option>
<option value="219">7'5" (219 cm)</option>
<option value="220">7'6" (220 cm)</option>
[...]

Der er altså fejl - der går 12 tomme på en fod, så når man når til 5'11" skal der altså skiftes til 6'0", men her går vi helt op til 5'30", før der skiftes til 6 fod.

Kan du se problemet?

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 30. december 2008 kl. 21:24:10| #6

arne_v (1.048.628 point)

Jeg glemte at dividere med 2.54 - så:

Dim fod As Integer = CType(Math.Floor(cm / 30.48), Integer)
Dim tommer As Integer = CType(Math.Floor((cm - fod*30.48) / 2.54), Integer)

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 30. december 2008 kl. 21:29:04| #7

yezper (22.499 point)

Så får jeg følgende:

[...]
<option value="145">4'97" (145 cm)</option>
<option value="146">4'98" (146 cm)</option>
<option value="147">4'99" (147 cm)</option>
<option value="148">4'100" (148 cm)</option>
<option value="149">4'101" (149 cm)</option>
<option value="150">4'102" (150 cm)</option>
<option value="151">4'103" (151 cm)</option>
<option value="152">4'104" (152 cm)</option>
<option value="153">5'93" (153 cm)</option>
<option value="154">5'94" (154 cm)</option>
<option value="155">5'95" (155 cm)</option>
<option value="156">5'96" (156 cm)</option>
<option value="157">5'97" (157 cm)</option>
<option value="158">5'98" (158 cm)</option>
<option value="159">5'99" (159 cm)</option>
<option value="160">5'100" (160 cm)</option>
<option value="161">5'101" (161 cm)</option>
<option value="162">5'102" (162 cm)</option>
<option value="163">5'103" (163 cm)</option>
<option value="164">5'104" (164 cm)</option>
<option value="165">5'105" (165 cm)</option>
<option value="166">5'106" (166 cm)</option>
<option value="167">5'107" (167 cm)</option>
<option value="168">5'108" (168 cm)</option>
<option value="169">5'109" (169 cm)</option>
<option value="170">5'110" (170 cm)</option>
<option value="171">5'111" (171 cm)</option>
<option value="172">5'112" (172 cm)</option>
<option value="173">5'113" (173 cm)</option>
<option value="174">5'114" (174 cm)</option>
<option value="175">5'115" (175 cm)</option>
<option value="176">5'116" (176 cm)</option>
<option value="177">5'117" (177 cm)</option>
<option value="178">5'118" (178 cm)</option>
<option value="179">5'119" (179 cm)</option>
<option value="180">5'120" (180 cm)</option>
<option value="181">5'121" (181 cm)</option>
<option value="182">5'122" (182 cm)</option>
<option value="183">6'111" (183 cm)</option>
<option value="184">6'112" (184 cm)</option>
<option value="185">6'113" (185 cm)</option>
<option value="186">6'114" (186 cm)</option>
[...]

Hvilket jo heller ikke er rigtigt?

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 30. december 2008 kl. 22:02:09| #8

yezper (22.499 point)

Ah, jeg glemte paranteserne.
Tak for hjælpen :)

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Log ind

Opret bruger | Glemt adgangskode

Seneste spørgsmål

powershell script for creating website via asp.net

Oprettet den 1. maj 2013 kl. 16.58

projektet giver 60 point for svar | Giv et svar »

Entity framework code first mangler fremmednøgle entity...

Oprettet den 11. april 2013 kl. 21.19

xenoxsis giver 200 point for svar | Giv et svar »

Licens til ASP.NET?

Oprettet den 12. februar 2013 kl. 14.25

dallan2007 giver 200 point for svar | Giv et svar »

Seneste guides

Håndtering af tekstoversættelse i...

29. april 2013 kl. 21.46 | Læs »

Parameteriseret tekstformatering i C#

29. april 2013 kl. 21.45 | Læs »

C++ Historie og Programmering - Del 1

26. april 2013 kl. 19.05 | Læs »

Afstande mellem Ikoner På Windows 8 skrivebordet

7. april 2013 kl. 08.31 | Læs »

koper mappe uden af skifte dato.

2. april 2013 kl. 00.23 | Læs »

Se alle guides »

Seneste nyheder

Galleri: Her er Googles nyeste værktøj og legetøj

17. maj 2013 kl. 16.06 | Læs »

Antallet af ændringer i Linux-kernen eksploderer

17. maj 2013 kl. 15.29 | Læs »

Nordea politianmeldte Pirate Bay-mands hacking

17. maj 2013 kl. 14.57 | Læs »

Tre smarte trick som gør Windows 8 bedre

17. maj 2013 kl. 13.03 | Læs »

Problemer igen igen: Yousee-kunder uden tv-signal

17. maj 2013 kl. 13.02 | Læs »

Se alle nyheder »

Tips & Tricks fra PC World

Her er seks Google Labs-funktioner, som du skal slå til med det samme

Gmail Labs giver dig adgang til en masse smarte funktioner, som Googles ingeniører leger med i øjeblikket.

Læs mere »

Anmeldelser fra PC World

Test: Samsung Galaxy S4 er et hit - trods gøglertricks

Kan Samsung beholde førertrøjen i det store Android-race? Galaxy S4 er smækfyldt med innovative funktioner, men også med en del gøgl. Er det for meget? Få vores dom over Samsungs nye topmodel.

Læs mere »

Seneste blogindlæg

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...

Læs mere »

Nyheder fra PC World

Tre smarte trick som gør Windows 8 bedre

Boot direkte til skrivebordet, få en strategisk godt placeret luk-knap og slip for at logge ind. Her er tre tips til Windows 8, som gør det nemmere at blive venner med styresystemet.

Læs mere »