נכתב ע"י מר נחמיאס;917868:יש כמה באגים, אבל חמוד.
[forms]![תנועות]![חשבון]
Like [forms]![תנועות]![חשבון] & "*"
נכתב ע"י לפום ריהטא;1151346:שער הדולר-בעיית חיבור
נכתב ע"י HUBHCBH;1152253:מן הסתם, או שזה במחשב שלי אינטרנט או שזה במחשב "מנותב" או חסום בדרך אחרת.
נכתב ע"י אברהם ב;1159432:איך סוגרים ל64 ביט
נכתב ע"י גיטי 123;1159537:לא הבנתי.
המחשב שלי גם 64 סיביות, מה אני אמורה לעשות?
Private Function BankOfIsraelExchangeRate([date] As DateTime, Optional currency As String = "01") As Double
Dim ExchangeRate As Double = 0
Dim XmlUrl As String = Convert.ToString("http://www.boi.org.il/currency.xml?" + "rdate=" + [date].ToString("yyyyMMdd") + "&curr=") & currency
Dim dtExchangeRate As New DataSet("BankOfIsraelExchangeRate")
dtExchangeRate.ReadXml(XmlUrl)
If dtExchangeRate.Tables.Count > 1 Then
ExchangeRate = Convert.ToDouble(dtExchangeRate.Tables(1).Rows(0)("RATE"))
' No exchange rate published for this date, then loop 6 days back
ElseIf dtExchangeRate.Tables.Count > 0 Then
For i As Integer = 1 To 6
Dim CheckDate As DateTime = [date].AddDays((-1) * i)
Dim XmlLoopUrl As String = Convert.ToString("http://www.boi.org.il/currency.xml?" + "rdate=" + CheckDate.ToString("yyyyMMdd") + "&curr=") & currency
Dim dtLoopExchangeRate As New DataSet("BankOfIsraelLoopExchangeRate")
dtLoopExchangeRate.ReadXml(XmlLoopUrl)
' Found valid published exchange rate
If dtLoopExchangeRate.Tables.Count > 1 Then
ExchangeRate = Convert.ToDouble(dtLoopExchangeRate.Tables(1).Rows(0)("RATE"))
Exit For
End If
Next
End If
Return ExchangeRate
End Function
נכתב ע"י Rרחמים;1160481:...
קוד:..
Option Explicit
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, ByVal dwReserved As Long) As Boolean
Public Function GetBankOfIsraelExchangeRate(Optional dtDate As Date = #1/1/1900#, Optional strCurr As String = "01") As Double
Dim strURL As String
Dim strResult As String
Dim pos As Long
Dim strSearch As String
strSearch = Chr(60) & "RATE" & Chr(62)
Dim dtPreviousDate As Date
Dim i As Integer
If dtDate = #1/1/1900# Then dtDate = Date
DoCmd.Hourglass True
If IsConnected Then
strURL = "http://www.boi.org.il/currency.xml?rdate=" & Format(IIf(Not IsNothing(dtPreviousDate), dtPreviousDate, dtDate), "YYYYMMDD") & "&curr=" & strCurr
strResult = GetHTML(strURL)
If InStr(1, strResult, strSearch) < 1 Then
For i = 1 To 6
dtPreviousDate = dtDate - 1
strURL = "http://www.boi.org.il/currency.xml?rdate=" & Format(dtPreviousDate, "YYYYMMDD") & "&curr=" & strCurr
strResult = GetHTML(strURL)
If InStr(1, strResult, strSearch) > 0 Then Exit For
Next i
End If
Else
MsgBox "אינך מחובר לאינטרמת!", vbCritical
End If
DoCmd.Hourglass False
If Len(strResult) > 0 Then
pos = InStr(1, strResult, strSearch, vbTextCompare)
If pos > -1 Then
GetBankOfIsraelExchangeRate = Mid(strResult, pos + Len(strSearch), 5)
End If
End If
End Function
Function IsConnected() As Boolean
Dim Stat As Long
IsConnected = (InternetGetConnectedState(Stat, 0&) <> 0)
End Function
Function GetHTML(strURL As String) As String
Dim HTML As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", strURL, False
.Send
GetHTML = .ResponseText
End With
End Function
Public Function IsNothing(ByVal varValueToTest) As Integer
Dim intSuccess As Integer
On Error GoTo IsNothing_Err
IsNothing = True
Select Case VarType(varValueToTest)
Case 0 ' Empty
GoTo IsNothing_Exit
Case 1 ' Null
GoTo IsNothing_Exit
Case 2, 3, 4, 5, 6 ' Integer, Long, Single, Double, Currency
If varValueToTest <> 0 Then IsNothing = False
Case 7 ' Date / Time
IsNothing = False
Case 8 ' String
If (Len(varValueToTest) <> 0 And varValueToTest <> " ") Then IsNothing = False
End Select
IsNothing_Exit:
On Error GoTo 0
Exit Function
IsNothing_Err:
IsNothing = True
Resume IsNothing_Exit
End Function
<rate><rate><rate>
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
2.04
כ"ג אדר ב'
השקה חגיגית
חדש בפרוג
קורס חדשנות AI ובינה מלאכותית
14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!
ההרשמה נפתחה!
20.03
י' אדר ב'
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
26.03
טז' אדר ב'
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
תהילים פרק קיט ב'
ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ: