Håller på med ett tidtagningsprogram och behöver hjälp lite fort... Du kan ju avrunda ned innan: Skruvade ihop detta lite snabbt,du får kolla om det är heltäckande. Roade mig med att göra en heltäckande Function Jag skulle säga nej. Tycker att han som ställde problemmet kunde logga in och ge någon form av FeedBack. Som vanligt retar det mig. Så... Löste det via att avrunda innan... Som det första förslaget.... Tackar alla förslag...Liknande FORMAT() fast den inte avrundar??
Har 2 st ScoreBoards som visar tider...
De är uppbyggda på 7seg diplayer med en punkt mellan siffra 2 och 3...
Typ 88.88
Nu till Problemet...
Har använt Format(Tid,"00.00") för att få tiden till tavlorna men har insett att Format avrundar tillnärmaste tal och det får inte ske...
Dvs måste 9.997 bli 09.99 och inte 10.00
Någon som har en bra ide??Sv: Liknande FORMAT() fast den inte avrundar??
Format((Tid * 100) \ 100,"00.00")
\ är heltals division. Vilket struntar i resten.
Sv:Liknande FORMAT() fast den inte avrundar??
<code>
Private Sub Command1_Click()
Dim tid As Single, display As String
tid = 9.997
display = Left$(CStr(tid), 4)
display = Replace(Format$(display, "00.00"), ",", ".")
MsgBox display
End Sub
</code>
Kan inte hjälpa det men jag ogillar skarpt när Ni slentrianmässigt skriver
<b>Format(xxx,"00.00") skall vara Format$(xxx,"00.00")</b>Sv: Liknande FORMAT() fast den inte avrundar??
<code>
Option Explicit
Private Sub Command1_Click()
MsgBox Display(9.997)
MsgBox Display(99.99)
End Sub
Private Function Display(ByVal tid As Single) As String
Dim displ As String, pos As Long
displ = CStr(tid)
pos = InStr(displ, ",")
If pos = 2 Then
displ = Left$(displ, 4)
Else
displ = Left$(displ, 5)
End If
Display = Replace(Format$(displ, "00.00"), ",", ".")
End Function
</code>Sv:Liknande FORMAT() fast den inte avrundar??
pos = InStr(displ, ",")
Detta ser väldigt hårdkodat ut. CStr() omvandlar decimaltal till den för användaren inställda decimalseparatorn.
Sv: Liknande FORMAT() fast den inte avrundar??
Håller med om att (,) strular till det.Förutsätter att han skickar 9.997 eller 99.99.
Om inte får Vi ta hand om det också.
Fattar fortfarande inte varför Vi inte skulle kunna inta en standard över hela jordklotet.
Punkt (period) är den naturliga decimalavskiljaren som alltid bör användas.Sv:Liknande FORMAT() fast den inte avrundar??
Så här skrev han: <b>Håller på med ett tidtagningsprogram och behöver hjälp lite fort... </b>
Jag skriver igen:
<b>Margaritas ante porcos iacere.</b>Sv: Liknande FORMAT() fast den inte avrundar??
Han inte skriva innan jag var tvungen att sticka till kusten...
Därför var det lite brådis...