לכבוד הרב פאטאקי שליט"א און אלע אנדערע בעלי מלאכה איך מוז האבן הילף מיט דעם....... איך האב א עקסעס ד.ב. איין פאנקשטן דארט האב איך צו פרינטן טשעקס. סאו האב איך געגאגלט א קאוד צו טושין פון נאמבערס צו טעקסט כדי צו קענען אויס שרייבן $15.00 צו FIFTEEN DOLLARS וכדומה. האב איך געטראפן דעם VB קאוד און אלעס ארבעט א מחי'. נאר איין פראבלעם האב איך ווען איך לייג אריין א אמאונט וואס ענדיגט זיך מיט צען סענטס למשל 14.10 שרייבט ער עס כאילו עס איז 14. און ער לאזט עס אינגאנצען אויס, אפשר ווייסט איינער וואס איז די פראבלעם מיט דעם קאוד.
Function SpellDollar(dblValue As Double) As String Dim centspot As Integer, dollarlen As Integer Dim dollars As Double, Cents As Integer Dim Hundreds As Integer, Thousands As Integer Dim Millions As Integer, Billions As Integer Dim centtext As String, huntext As String, thoutext As String Dim milltext As String, billtext As String, temptext As String
If dblValue < 0.01 Then temptext = "Zero" Else centspot = InStr(dblValue, ".") If centspot > 0 Then Cents = Right(dblValue, 2) dollars = Left(dblValue, centspot - 1) Else Cents = 0 dollars = dblValue End If
dollarlen = Len(CStr(dollars))
If dollarlen > 0 Then Select Case dollars Case 1 To 999 Select Case dollars Case 1 To 9 Hundreds = Right(dollars, 1) Case 10 To 99 Hundreds = Right(dollars, 2) Case 100 To 999 Hundreds = Right(dollars, 3) End Select Case 1000 To 999999 Hundreds = Right(dollars, 3) Select Case dollars Case 1000 To 9999 Thousands = Left(dollars, 1) Case 10000 To 99999 Thousands = Left(dollars, 2) Case 100000 To 999999 Thousands = Left(dollars, 3) End Select Case 1000000 To 999999999 Hundreds = Right(dollars, 3) Thousands = Mid(dollars, (dollarlen - 5), 3) Select Case dollars Case 1000000 To 9999999 Millions = Left(dollars, 1) Case 10000000 To 99999999 Millions = Left(dollars, 2) Case 100000000 To 999999999 Millions = Left(dollars, 3) End Select Case 1000000000 To 999999999999# Hundreds = Right(dollars, 3) Thousands = Mid(dollars, (dollarlen - 5), 3) Millions = Mid(dollars, (dollarlen - 8), 3) Select Case dollars Case 1000000000 To 9999999999# Billions = Left(dollars, 1) Case 10000000000# To 99999999999# Billions = Left(dollars, 2) Case 100000000000# To 999999999999# Billions = Left(dollars, 3) End Select End Select End If
If Hundreds > 0 Then huntext = GetDollarString("hundreds", Hundreds) If Thousands > 0 Then thoutext = GetDollarString("thousands", Thousands) If Millions > 0 Then milltext = GetDollarString("millions", Millions) If Billions > 0 Then billtext = GetDollarString("billions", Billions)
If billtext = "" Then If milltext = "" Then If thoutext = "" Then If huntext = "" Then temptext = centtext Else temptext = huntext & " Dollars and " & Cents & "/100" End If Else temptext = thoutext & " " & huntext & " Dollars and " & Cents & "/100" End If Else temptext = milltext & " " & thoutext & " " & huntext & " Dollars and " & Cents & "/100" End If Else temptext = billtext & " " & milltext & " " & thoutext & " " & huntext & " Dollars and " & Cents & "/100" End If End If
If Right(temptext, 1) = "d" Then temptext = Left(temptext, Len(temptext) - 4) SpellDollar = Trim(temptext) End Function
Function GetDollarString(strPart As String, intPart As Integer) As String Dim strDollars As String
If intPart > 99 Then Select Case Mid(intPart, 1, 1) Case 1: strDollars = "One Hundred" Case 2: strDollars = "Two Hundred" Case 3: strDollars = "Three Hundred" Case 4: strDollars = "Four Hundred" Case 5: strDollars = "Five Hundred" Case 6: strDollars = "Six Hundred" Case 7: strDollars = "Seven Hundred" Case 8: strDollars = "Eight Hundred" Case 9: strDollars = "Nine Hundred" End Select End If
Select Case Right(intPart, 2) Case 1: strDollars = strDollars & " One" Case 2: strDollars = strDollars & " Two" Case 3: strDollars = strDollars & " Three" Case 4: strDollars = strDollars & " Four" Case 5: strDollars = strDollars & " Five" Case 6: strDollars = strDollars & " Six" Case 7: strDollars = strDollars & " Seven" Case 8: strDollars = strDollars & " Eight" Case 9: strDollars = strDollars & " Nine" Case 10: strDollars = strDollars & " Ten" Case 11: strDollars = strDollars & " Eleven" Case 12: strDollars = strDollars & " Twelve" Case 13: strDollars = strDollars & " Thirteen" Case 14: strDollars = strDollars & " Fourteen" Case 15: strDollars = strDollars & " Fifteen" Case 16: strDollars = strDollars & " Sixteen" Case 17: strDollars = strDollars & " Seventeen" Case 18: strDollars = strDollars & " Eighteen" Case 19: strDollars = strDollars & " Nineteen" Case 20: strDollars = strDollars & " Twenty" Case 21: strDollars = strDollars & " Twenty One" Case 22: strDollars = strDollars & " Twenty Two" Case 23: strDollars = strDollars & " Twenty Three" Case 24: strDollars = strDollars & " Twenty Four" Case 25: strDollars = strDollars & " Twenty Five" Case 26: strDollars = strDollars & " Twenty Six" Case 27: strDollars = strDollars & " Twenty Seven" Case 28: strDollars = strDollars & " Twenty Eight" Case 29: strDollars = strDollars & " Twenty Nine" Case 30: strDollars = strDollars & " Thirty" Case 31: strDollars = strDollars & " Thirty One" Case 32: strDollars = strDollars & " Thirty Two" Case 33: strDollars = strDollars & " Thirty Three" Case 34: strDollars = strDollars & " Thirty Four" Case 35: strDollars = strDollars & " Thirty Five" Case 36: strDollars = strDollars & " Thirty Six" Case 37: strDollars = strDollars & " Thirty Seven" Case 38: strDollars = strDollars & " Thirty Eight" Case 39: strDollars = strDollars & " Thirty Nine" Case 40: strDollars = strDollars & " Forty" Case 41: strDollars = strDollars & " Forty One" Case 42: strDollars = strDollars & " Forty Two" Case 43: strDollars = strDollars & " Forty Three" Case 44: strDollars = strDollars & " Forty Four" Case 45: strDollars = strDollars & " Forty Five" Case 46: strDollars = strDollars & " Forty Six" Case 47: strDollars = strDollars & " Forty Seven" Case 48: strDollars = strDollars & " Forty Eight" Case 49: strDollars = strDollars & " Forty Nine" Case 50: strDollars = strDollars & " Fifty" Case 51: strDollars = strDollars & " Fifty One" Case 52: strDollars = strDollars & " Fifty Two" Case 53: strDollars = strDollars & " Fifty Three" Case 54: strDollars = strDollars & " Fifty Four" Case 55: strDollars = strDollars & " Fifty Five" Case 56: strDollars = strDollars & " Fifty Six" Case 57: strDollars = strDollars & " Fifty Seven" Case 58: strDollars = strDollars & " Fifty Eight" Case 59: strDollars = strDollars & " Fifty Nine" Case 60: strDollars = strDollars & " Sixty" Case 61: strDollars = strDollars & " Sixty One" Case 62: strDollars = strDollars & " Sixty Two" Case 63: strDollars = strDollars & " Sixty Three" Case 64: strDollars = strDollars & " Sixty Four" Case 65: strDollars = strDollars & " Sixty Five" Case 66: strDollars = strDollars & " Sixty Six" Case 67: strDollars = strDollars & " Sixty Seven" Case 68: strDollars = strDollars & " Sixty Eight" Case 69: strDollars = strDollars & " Sixty Nine" Case 70: strDollars = strDollars & " Seventy" Case 71: strDollars = strDollars & " Seventy One" Case 72: strDollars = strDollars & " Seventy Two" Case 73: strDollars = strDollars & " Seventy Three" Case 74: strDollars = strDollars & " Seventy Four" Case 75: strDollars = strDollars & " Seventy Five" Case 76: strDollars = strDollars & " Seventy Six" Case 77: strDollars = strDollars & " Seventy Seven" Case 78: strDollars = strDollars & " Seventy Eight" Case 79: strDollars = strDollars & " Seventy Nine" Case 80: strDollars = strDollars & " Eighty" Case 81: strDollars = strDollars & " Eighty One" Case 82: strDollars = strDollars & " Eighty Two" Case 83: strDollars = strDollars & " Eighty Three" Case 84: strDollars = strDollars & " Eighty Four" Case 85: strDollars = strDollars & " Eighty Five" Case 86: strDollars = strDollars & " Eighty Six" Case 87: strDollars = strDollars & " Eighty Seven" Case 88: strDollars = strDollars & " Eighty Eight" Case 89: strDollars = strDollars & " Eighty Nine" Case 90: strDollars = strDollars & " Ninety" Case 91: strDollars = strDollars & " Ninety One" Case 92: strDollars = strDollars & " Ninety Two" Case 93: strDollars = strDollars & " Ninety Three" Case 94: strDollars = strDollars & " Ninety Four" Case 95: strDollars = strDollars & " Ninety Five" Case 96: strDollars = strDollars & " Ninety Six" Case 97: strDollars = strDollars & " Ninety Seven" Case 98: strDollars = strDollars & " Ninety Eight" Case 99: strDollars = strDollars & " Ninety Nine" End Select
ConstructString: Select Case strPart Case "cents" GetDollarString = strDollars & "/100" Case "hundreds" GetDollarString = strDollars Case "thousands" GetDollarString = strDollars & " Thousand" Case "millions" GetDollarString = strDollars & " Million" Case "billions" GetDollarString = strDollars & " Billion" End Select End Function
[align=Left]If dblValue < 0.01 Then temptext = "Zero" Else centspot = InStr(dblValue, ".") If centspot > 0 Then Cents = Right(dblValue, 2) dollars = Left(dblValue, centspot - 1) Else Cents = 0 dollars = dblValue End If
dollarlen = Len(CStr(dollars)) [/align]
לכאורה דארף דא ליגן די זאך
עס איז שווער צי ליינען ווייל דא מען קען נישט פעיסטן אין די קרעטשמע די קאוד כמו שהוא עס דרייט זיך איבער פון לינקס אויף רעכטס אפילו מיט די קרעטשמעס אלייען טול וואס איך האב יעצט געטרייעט צי טוהן ארבעט עס אויך נישט
לכבוד פאטאקי יא די קענסט עס נוצען עס איז נישט מיינס, איך האב באקומען פון דעם מחבר זיינער וואס האט עס געפויסט לטובת הציבור. יעצט איך פארשטיי נישט וואס די האסט צוריק געשריבן און וואס איך דארף טוישן, אזוי אויך האב איך קיינמאל נישט געהערט פון בילטאין פאנקשען CONVSTR וואס איז דאסץ ביטע לאז מיך וויסן, יישר כח
איך האב גטרייעט צו ניצן די SQL סטעיטמענט: SELECT List.FIRST, Mid([first],1,InStr([first],' ')-InStr([first],' ')+1) & '.' AS Name1, Mid([first],InStr([first],' ')+1,1) & '.' AS Name2 FROM List;
און ער גיט מיר און איין פיעלד די ערשטע נאמען נאר די אינישעלס אןו אין די צווייטע פיעלדס נאר די צווייטע נאמען נאר די אינישעלס
אבער ביי איינעם וואס האט נאר איין נאמען קומט ארויף ביי ביידע פיעלדס די זעלבע איך ווייס נישט וויאזוי דאס ארויסציפילטרן אויך האב איך א פראבלעם מיט איינעם וואס האט נישט קיין ערשטע נאמען קומט ארויף ביי די ערשטע פיעלד א פינטל און ביי די צווייטע פילד "ERROR"
איך האב געמאכט עפעס פאר די דריטע חלק ערשטע נאמען אבער דא גיט ער מיר אן ERROR אויב די ערשטע נאמען איז ליידיג Name3: IIf(InStr(InStr([first],' ')+1,[first],' ')>0,Mid([first],InStr(InStr([first],' ')+1,[first],' ')+1))
איך וועל טרייען צו ניצן די סוויטש פאנקשען אויב איינער ווייסט בעסער ביטע פאוסטן
SELECT List.FIRST, IIf([first] Is Not Null,Mid([first],1,InStr([first],' ')-InStr([first],' ')+1) & '.') AS Name1, IIf(InStr([first],' ')>0,Mid([first],InStr([first],' ')+1,1) & '.') AS Name2, IIf([first] Is Not Null,IIf(InStr(InStr([first],' ')+1,[first],' ')>0,Mid([first],InStr(InStr([first],' ')+1,[first],' ')+1,1) & '.')) AS Name3 FROM List;
Name1: IIf([first] Is Not Null,Left([first],1) & '.')
פיינעל קווערי:
SELECT List.FIRST, IIf([first] Is Not Null,Left([first],1) & '.') AS Name1, IIf(InStr([first],' ')>0,Mid([first],InStr([first],' ')+1,1) & '.') AS Name2, IIf([first] Is Not Null,IIf(InStr(InStr([first],' ')+1,[first],' ')>0,Mid([first],InStr(InStr([first],' ')+1,[first],' ')+1,1) & '.')) AS Name3 FROM List;
