Εφαρμογή Access - (Υπηρεσίες - Αδειες - ...)

officeandi · #1 10-12-10, 14:56

Γεια σε όλους τους συνομιλητές του θέματος,

Αν και δεν έχω καμία σχέση με διαχείριση αδειών, παρακολουθώ το θέμα από ενδιαφέρον.

Αγαπητέ Χρήστο (Free_Ghost) στο τελευταίο σου μήνυμα διατυπώνεις τους κανόνες του μοντέλου.

Παράθεση:

4) Μιλάμε για ημερήσιους και όχι για βάρδια..

Δηλαδή τα 1,2,3 ισχύουν μόνο για ημερησίους;
Πως είναι οι κανόνες για τη βάρδια;

Επιπλέον έχω τις ακόλουθες ερωτήσεις:

Καινούργια χρονιά, καινούργια βάση δεδομένων;
Υπάρχει περίπτωση σε κάποιον να αλλάξει από «ημερήσιος» σε «βάρδια» ή αντίθετα στα μέσα της χρονιάς;
Τι γίνεται στην περίπτωση που κάποιος δεν πήρε όλη την άδεια που δικαιούται σε μια χρονιά; Περνάει το υπόλοιπο της άδειας στην επόμενη χρονιά;

Μήπως θα βοηθούσε περισσότερο αν δημιουργούσες έναν καινούργιο πίνακα με στήλες
Πίνακας Ρυθμίσεις Προσωπικού : «μητρώο», «από», «έως», «ημερήσιος/βάρδια», «δικαιούται(μέρες)»;
Έτσι θα μπορούσες για τον ίδιο αριθμό μητρώου να διατυπώνεις περισσότερα χρονικά διαστήματα (από/έως), για τα οποία κάθε φορά μπορείς ρυθμίσεις τυχόν αλλαγές στις δυο τελευταίες στήλες.

Για να είναι α βάση δεδομένων ανεξάρτητη ως προς τη χρονιά, οι στήλες (από/ έως) θα πρέπει να είναι τύπου DateTime. Όταν αναφέρεσαι π.χ. για ολόκληρο το 2010, τότε βάζεις από:1/1/2010 έως:31/12/2010.Όμως δε σε εμποδίζει τίποτα να θέσεις και από:1/6/2010 έως:1/2/2011 !!

Μια ιδέα είναι.

Φιλικά
Ανδρέας

kapetang · #2 10-12-10, 16:32

Καλησπέρα στην παρέα

Χρήστο, αν κατάλαβα καλά, θα ήθελες μία συνάρτηση που θα υπολογίζει τις μέρες των ημιαργιών, που δε θα μετρούν σα μέρες κανονικής άδειας.
Αν υποθέσουμε ότι ένας εργαζόμενος απουσιάζει, λόγω κανονικής άδειας, από την ημερομηνία D1 μέχρι τη D2, συμπεριλαμβανομένων, για τον υπολογισμό των ημερών που θα χρεωθούν ως κανονική άδεια θα έχουμε:

Μέρες απουσίας: Ms=D2-D1+1.
Μέρες αργιών (γιορτών Κυριακών, κλπ): Mk.
Μέρες ημιαργιών που θεωρούνται αργίες: Μa.
Μέρες που χρεώνονται ως κανονική άδεια: Ms-Mk-Ma

Για τον προσδιορισμό της Ma, στηριζόμενος στα στοιχεία που έδωσες, έγραψα μία συνάρτηση, που παραθέτω παρακάτω.

Κώδικας:

Public Function ArgiesApoHmiargies(D1 As Variant, _
        D2 As Variant) As Integer
        
    Dim dte(3) As Date
    Dim i As Integer, x As Integer

    'Αν υπάρχουν τιμές null
    If IsNull(D1) Or IsNull(D2) Then Exit Function
    
    'Αρχική τιμή συνάρτησης
    ArgiesApoHmiargies= 0

    'Ημερομηνίες ημιαργιών. Αν τα έτη έναρξης και λήξης της απουσίας
    'δεν είναι ίδια (πχ 2010, 2011) και στο διάστημα απουσίας που εμπίπτει
    'στο μεγαλύτερο έτος (2011) υπάρχουν ημιαργίες τα αποτελέσματα δεν είναι
    'σωστά. Την περίπτωση αυτή, για τις κανονικές αδειες, τη θεώρησα αδύνατη.
    dte(0) = DateSerial(Year(D1), 3, 24)
    dte(1) = DateSerial(Year(D1), 10, 27)
    dte(2) = DateSerial(Year(D1), 12, 24)
    dte(3) = DateSerial(Year(D1), 12, 31)
        
    '1. Η άδεια είναι μικρότερη από 3 μέρες
    If D2 - D1 + 1 < 3 Then Exit Function
    
    '2. Περιέχονται δύο ημιαργίες (περιλαμβάνονται και τα όρια του διαστήματος απουσίας)
    x = 0
    For i = 0 To 3
        If D1 <= dte(i) And dte(i) <= D2 Then x = x + 1
    Next
    If x > 1 Then
        ArgiesApoHmiargies= 1
        Exit Function
    End If
    
    '3. Η ημιαργία περιέχεται στα όρια του διαστήματος της απουσίας (χωρίς να περιλαμβάνονται)
    For i = 0 To 3
        If D1 < dte(i) And dte(i) < D2 Then
            ArgiesApoHmiargies= 1
            Exit For
        End If
    Next

End Function

Θα πρέπει να την αντιγράψεις και να δοκιμάσεις , όλες τις περιπτώσεις που έχεις, για να δεις αν σε καλύπτει, αλλά και για να δοκιμαστεί η ακρίβεια του κώδικα.
Φυσικά θα πρέπει να λάβεις υπόψη σου και τις εύστοχες επισημάνσεις του Ανδρέα.

Φιλικά/Γιώργος
ΥΓ Φίλε Ανδρέα καλωσόρισες στο φόρουμ .

Free_Ghost · #3 10-12-10, 18:08

Παράθεση: