פרוג

מכללת פרוג ירושלים











חזור   פרוג - פורום חרדי מקצועי > תוכנות מייקרוסופט אופיס

תגובה
 
אפשרויות דיון חפש בדיון זה אפשרויות תצוגה
ישן 28-09-2014, 10:00   #1
יאיר משה
תחום מקצוע עיקרי: תיכנות
 
תאריך הצטרפות: Jul 2013
הודעות: 413
שלח תודה: 206
קיבל 71 תודות ב 31 הודעות
ברירת מחדל קודים למפתחים באקסס

אשכול זה נועד לעזור למפתחים באקסס ע"י קודים שימושיים שפורסמו בפורום.
בבקשה פרסמו בו רק קודים או קבצי דוגמה ולא שאלות לעזרה.
מקווה שיהיה לעזר
יאיר משה לא מחובר   הגב עם ציטוט
8 המשתמשים הבאים מודים לך יאיר משה על הודעתך השימושית, חן חן!
ישן 28-09-2014, 10:04   #2
יאיר משה
תחום מקצוע עיקרי: תיכנות
 
תאריך הצטרפות: Jul 2013
הודעות: 413
שלח תודה: 206
קיבל 71 תודות ב 31 הודעות
ברירת מחדל בדיקת תקינות חשבון בנק

נתכב ע"י מוישי - תודה לו על כך
קבצים מצורפים
סוג הקובץ: zip בודק מעודכן חשבון.zip‏ (44.1 ק"ב, 108 צפיות)
יאיר משה לא מחובר   הגב עם ציטוט
3 המשתמשים הבאים מודים לך יאיר משה על הודעתך השימושית, חן חן!
ישן 28-09-2014, 10:09   #3
יאיר משה
תחום מקצוע עיקרי: תיכנות
 
תאריך הצטרפות: Jul 2013
הודעות: 413
שלח תודה: 206
קיבל 71 תודות ב 31 הודעות
ברירת מחדל בדיקת תקינות תעודת זהות

קוד HTML:
Public Function fValidateTeudatZehut(id As Variant) As Boolean
' http://halemo.net/info/idcard/index.html
    Dim I As Integer
    Dim Sum As Integer
    Dim Digit As Integer

    id = Val(id)
    While Len(id) < 9
        id = "0" & id
    Wend

    Sum = 0

    For I = 1 To 9
        Digit = Strings.Mid$(id, I, 1)
        If (I Mod 2) = 0 Then
            If Digit >= 5 Then
                Digit = 2 * Digit - 9
            Else
                Digit = Digit * 2
            End If
        End If
        Sum = Sum + Digit
    Next I

    fValidateTeudatZehut = (Sum Mod 10) = 0

End Function
הפונקציה היא: fValidateTeudatZehut
ואם היא 0 הת"ז אינו תקין
יאיר משה לא מחובר   הגב עם ציטוט
2 המשתמשים הבאים מודים לך יאיר משה על הודעתך השימושית, חן חן!
ישן 28-09-2014, 10:14   #4
יאיר משה
תחום מקצוע עיקרי: תיכנות
 
תאריך הצטרפות: Jul 2013
הודעות: 413
שלח תודה: 206
קיבל 71 תודות ב 31 הודעות
ברירת מחדל המרת סכום למילים עבור צ'קים ישראלים

עבור צקים אמריקים יפורסם בקרוב.
קבצים מצורפים
סוג הקובץ: zip המרת סכום למילים.zip‏ (24.7 ק"ב, 78 צפיות)
יאיר משה לא מחובר   הגב עם ציטוט
2 המשתמשים הבאים מודים לך יאיר משה על הודעתך השימושית, חן חן!
ישן 28-09-2014, 10:16   #5
יאיר משה
תחום מקצוע עיקרי: תיכנות
 
תאריך הצטרפות: Jul 2013
הודעות: 413
שלח תודה: 206
קיבל 71 תודות ב 31 הודעות
ברירת מחדל המרת תאריכים

גם זה פורסם ע"י מושי.
קבצים מצורפים
סוג הקובץ: rar המרת תאריכים (1).rar‏ (70.8 ק"ב, 124 צפיות)
יאיר משה לא מחובר   הגב עם ציטוט
4 המשתמשים הבאים מודים לך יאיר משה על הודעתך השימושית, חן חן!
ישן 28-09-2014, 10:18   #6
יאיר משה
תחום מקצוע עיקרי: תיכנות
 
תאריך הצטרפות: Jul 2013
הודעות: 413
שלח תודה: 206
קיבל 71 תודות ב 31 הודעות
ברירת מחדל מסתיר את מסך הרקע של האקסס

לא זוכר ע"י מי פורסם.
קבצים מצורפים
סוג הקובץ: zip מסתיר מסך.zip‏ (25.7 ק"ב, 110 צפיות)
יאיר משה לא מחובר   הגב עם ציטוט
5 המשתמשים הבאים מודים לך יאיר משה על הודעתך השימושית, חן חן!
ישן 28-09-2014, 10:28   #7
יאיר משה
תחום מקצוע עיקרי: תיכנות
 
תאריך הצטרפות: Jul 2013
הודעות: 413
שלח תודה: 206
קיבל 71 תודות ב 31 הודעות
ברירת מחדל המרת סכום למילים עבור צ'קים אמריקיים

ביצוע שלי על בסיס קיים
קבצים מצורפים
סוג הקובץ: zip המרת סכום למילים - אנגלית.zip‏ (29.2 ק"ב, 34 צפיות)
יאיר משה לא מחובר   הגב עם ציטוט
2 המשתמשים הבאים מודים לך יאיר משה על הודעתך השימושית, חן חן!
ישן 29-09-2014, 19:29   #8
יאיר משה
תחום מקצוע עיקרי: תיכנות
 
תאריך הצטרפות: Jul 2013
הודעות: 413
שלח תודה: 206
קיבל 71 תודות ב 31 הודעות
ברירת מחדל קבלת שער הדולר מבנק ישראל באמצעות פונקציה

אודות למוישי.
קוד HTML:
Option Explicit

Public Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, ByVal dwReserved As Long) As Boolean

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 pos As Long
    Dim strSearch As String
    Dim dtPreviousDate As Date
    Dim i As Integer

    strSearch = chr(60) & "RATE" & chr(62)

    If dtDate = #1/1/1900# Then
        dtDate = Date
    End If

    Select Case strCurr
        Case "01", "02", "03", "05", "06", "12", "17", "18", "27", "28", "31", "69", "70", "79"
        Case Else
            MsgBox "קוד מטבע לא חוקי!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight
            Exit Function
    End Select

    If IsConnected Then
        strURL = "http://www.boi.org.il/currency.xml?rdate=" & Format(IIf(dtPreviousDate > 1, dtPreviousDate, dtDate), "YYYYMMDD") & "&curr=" & strCurr
        strResult = GetHTML(strURL)
        If InStr(1, strResult, strSearch) < 1 Then
            For i = 1 To 6
                dtPreviousDate = dtDate - i
                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 + vbMsgBoxRtlReading + vbMsgBoxRight
    End If

    If Len(strResult) > 0 Then
        pos = InStr(1, strResult, strSearch, vbTextCompare)
        If pos > -1 Then
            GetNISExchangeRate = 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
הפונקציה לשער הדולר היא: =GetNISExchangeRate(Date(),"01")

נערך לאחרונה על ידי יאיר משה, 29-09-2014 בשעה 19:33
יאיר משה לא מחובר   הגב עם ציטוט
3 המשתמשים הבאים מודים לך יאיר משה על הודעתך השימושית, חן חן!
ישן 23-11-2014, 09:40   #9
יאיר משה
תחום מקצוע עיקרי: תיכנות
 
תאריך הצטרפות: Jul 2013
הודעות: 413
שלח תודה: 206
קיבל 71 תודות ב 31 הודעות
ברירת מחדל שמירת שם משתמש ע"י קוקיס

כמובן - מוישי

ומחיקת קוקיס -
קוד HTML:
Kill C:\Users\<שם המשתמש>\AppData\Local\Temp\Your Application\cookie.users
קבצים מצורפים
סוג הקובץ: rar Cookie Demo.rar‏ (24.3 ק"ב, 30 צפיות)

נערך לאחרונה על ידי יאיר משה, 23-11-2014 בשעה 22:05
יאיר משה לא מחובר   הגב עם ציטוט
2 המשתמשים הבאים מודים לך יאיר משה על הודעתך השימושית, חן חן!
ישן 23-11-2014, 09:53   #10
a26955
 
תאריך הצטרפות: Jan 2013
הודעות: 3,481
שלח תודה: 1,661
קיבל 1,162 תודות ב 768 הודעות
ברירת מחדל

תכניס גם את זה, מחיקת הקוקיס.
http://www.prog.co.il/showpost.php?p...9&postcount=18
a26955 לא מחובר   הגב עם ציטוט
The Following User Says Thank You to a26955 For This Useful Post:
תגובה

תגיות
אקסס, קודים

אפשרויות דיון חפש בדיון זה
חפש בדיון זה:

חיפוש מתקדם
אפשרויות תצוגה

הרשאות
אתה לא יכול לפרסם נושאים חדשים
אתה לא יכול לפרסם תגובות
אתה לא יכול לצרף קבצים להודעותיך
אתה לא יכול לערוך את הודעותיך

BB code פועל
קוד [IMG] פועל
קוד HTML פועל

קפיצה לפורום

נושאים דומים
נושא מפרסם הנושא פורום תגובות הודעה אחרונה
חיפוש והחלפה/ הכנסת קודים באקסס nothing תוכנות מייקרוסופט אופיס 2 03-05-2013 13:10
HTML/CSS: תחרות אתגרית למפתחים wmw קהילת מעצבי ובוני אתרים 0 03-10-2010 09:51


כל הזמנים הם GMT +2. השעה כרגע היא 14:08.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
ProG - professional groups , Est 2007.