בנק ישראל החליפה את הלינק ואין האפשרות לבקש לפי תאריך והפונקציה הנ"ל הפסיקה לעבוד
יש אפשרות לבקש לפי תאריך - כך נראה במבט מלמעלהבנק ישראל החליפה את הלינק ואין האפשרות לבקש לפי תאריך והפונקציה הנ"ל הפסיקה לעבוד
בנק ישראל החליפה את הלינק ואין האפשרות לבקש לפי תאריך והפונקציה הנ"ל הפסיקה לעבוד
להחליף לפונקציה הבאהיש אפשרות לבקש לפי תאריך - כך נראה במבט מלמעלה
מאוחר יותר אבדוק לעומק בעז"ה
Public Function GetNISExchangeRate(Optional dtDate As Date = #1/1/1900#, Optional strCurr As String = "01") As Double
Dim strURL As String
Dim strResult As String
Dim lngStartPosition As Long
Dim lngEndPosition As Long
Dim strFirstSearch As String
Dim strLastSearch As String
Dim dtPreviousDate As Date
Dim NameCurr As String
Dim i As Integer
Select Case strCurr
Case "01": NameCurr = "USD"
Case "02": NameCurr = "GBP"
Case "03": NameCurr = "SEK"
Case "05": NameCurr = "CHF"
Case "06": NameCurr = "CAD"
Case "09": NameCurr = "NZD"
Case "12": NameCurr = "DKK"
Case "13": NameCurr = "SGD"
Case "14": NameCurr = "HKD"
Case "17": NameCurr = "ZAR"
Case "18": NameCurr = "AUD"
Case "20": NameCurr = "EUR"
Case "27": NameCurr = "JOD"
Case "28": NameCurr = "NOK"
Case "30": NameCurr = "JPY"
Case "53": NameCurr = "RUB"
Case "55": NameCurr = "PLN"
Case "59": NameCurr = "MXN"
Case "61": NameCurr = "CZK"
Case "64": NameCurr = "TRY"
Case "65": NameCurr = "LBP"
Case "68": NameCurr = "EGP"
Case "72": NameCurr = "HUF"
Case "73": NameCurr = "INR"
Case "77": NameCurr = "CNY"
Case "00", "99": NameCurr = "ILS"
Case Else: NameCurr = ""
End Select
Select Case NameCurr
Case ""
MsgBox "קוד מטבע לא חוקי!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight
Case "ILS"
GetNISExchangeRate = 1
Case Else
strFirstSearch = """currentExchangeRate"":"
strLastSearch = ","
If dtDate = #1/1/1900# Then
dtDate = Date
End If
If IsConnected Then
If dtDate > #1/1/1900# Then
strFirstSearch = "OBS_VALUE="""
strLastSearch = """>"
strURL = "https://edge.boi.gov.il/FusionEdgeServer/sdmx/v2/data/dataflow/BOI.STATISTICS/EXR/1.0/RER_" & NameCurr _
& "_ILS?startperiod=" & Format(dtDate - 7, "YYYY-MM-DD") & "&endperiod=" & Format(dtDate, "YYYY-MM-DD")
strResult = GetHTML(strURL)
If Len(strResult) > 0 Then
strResult = Right(strResult, 130)
lngStartPosition = InStr(1, strResult, strFirstSearch, vbTextCompare)
lngEndPosition = CLng(InStr(lngStartPosition + 1, strResult, strLastSearch, vbTextCompare))
If lngStartPosition > 0 Then
GetNISExchangeRate = Mid(strResult, lngStartPosition + Len(strFirstSearch), lngEndPosition - CLng(lngStartPosition + Len(strFirstSearch)))
End If
End If
Else
strFirstSearch = """currentExchangeRate"":"
strLastSearch = ","
strURL = "https://www.boi.org.il/PublicApi/GetExchangeRate?key=" & NameCurr
strResult = GetHTML(strURL)
If Len(strResult) > 0 Then
lngStartPosition = InStr(1, strResult, strFirstSearch, vbTextCompare)
lngEndPosition = CLng(InStr(lngStartPosition, strResult, strLastSearch, vbTextCompare))
If lngStartPosition > -1 Then
GetNISExchangeRate = Mid(strResult, lngStartPosition + Len(strFirstSearch), lngEndPosition - CLng(lngStartPosition + Len(strFirstSearch)))
End If
End If
End If
Else
MsgBox "לא זוהה חיבור לאינטרנט!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight
End If
End Select
End Function
אכןנראה לי שזה מיותר כאן
If dtDate = #1/1/1900# Then
dtDate = Date
End If
למה אתה חושב?נראה לי שזה מיותר כאן
If dtDate = #1/1/1900# Then
dtDate = Date
End If
בזה:Public Function GetNISExchangeRate(Optional dtDate As Date = #1/1/1900#,
Public Function GetNISExchangeRate(Optional dtDate As Date = Date,
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
2.04
כ"ג אדר ב'
השקה חגיגית
חדש בפרוג
קורס חדשנות AI ובינה מלאכותית
14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!
ההרשמה נפתחה!
20.03
י' אדר ב'
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
26.03
טז' אדר ב'
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
תהילים פרק קכז
א שִׁיר הַמַּעֲלוֹת לִשְׁלֹמֹה אִם יְהוָה לֹא יִבְנֶה בַיִת שָׁוְא עָמְלוּ בוֹנָיו בּוֹ אִם יְהוָה לֹא יִשְׁמָר עִיר שָׁוְא שָׁקַד שׁוֹמֵר:ב שָׁוְא לָכֶם מַשְׁכִּימֵי קוּם מְאַחֲרֵי שֶׁבֶת אֹכְלֵי לֶחֶם הָעֲצָבִים כֵּן יִתֵּן לִידִידוֹ שֵׁנָא:ג הִנֵּה נַחֲלַת יְהוָה בָּנִים שָׂכָר פְּרִי הַבָּטֶן:ד כְּחִצִּים בְּיַד גִּבּוֹר כֵּן בְּנֵי הַנְּעוּרִים:ה אַשְׁרֵי הַגֶּבֶר אֲשֶׁר מִלֵּא אֶת אַשְׁפָּתוֹ מֵהֶם לֹא יֵבֹשׁוּ כִּי יְדַבְּרוּ אֶת אוֹיְבִים בַּשָּׁעַר: