04-12-2007, 15:24
|
|
|
חבר מתאריך: 07.10.06
הודעות: 1,795
|
|
איפה בדיוק אתה מסתבך?
ראיתי שיש כל מיני בעיות. למשל, יש קריאה ל-Dec2Hex אבל הפוקנציה עצמה לא קיימת. לא שזה בעיה, אפשר לכתוב אותה בקלות. אבל השאלה מה עוד חסר ואיפה הבעיה שאתה מתקשה בה.
אם כבר מדברים על dec2hex, אז הנה, שיהיה לך פונקציה כזו:
קוד:
Public Function dec2hex(ByVal num As String) As String
Dim number As String
Dim neg As Boolean
number = num
If Left(number, 1) = "-" Then
neg = True
number = Right(number, Len(number) - 1)
Else
neg = False
End If
While Left(number, 1) = "0"
number = Right(number, Len(number) - 1)
Wend
If Len(number) = 0 Then
dec2hex = 0
Exit Function
End If
number = Hex(number)
If neg = True Then
number = "-" & number
End If
dec2hex = LCase(number)
End Function
נערך לאחרונה ע"י רמי ד בתאריך 04-12-2007 בשעה 15:29.
|