chrispan

Στο cell Α1 = "δοκιμή διαχωρισμού κειμένου με διαφορετικό διαχωριστικό π.χ. - ή / ή οτιδήποτε" εντολή Separator(A1;1) = δοκιμή Separator(A1;2) = διαχωρισμού Separator(A1;2;"-") = - ή / ή οτιδήποτε Σε ένα module γράφουμε τον παρακάτω κώδικα Function Separator(strCell As String, NumWord As Long, Optional Sep As String = " ") As String Dim a As Integer, b As Integer, Kena As Long Dim Start(1 To 15) As Long, Leght(1 To 15) As Long For b = 1 To 15 Start(b) = 1 Leght(b) = 1 Next b strCell = TrimAll(strCell) Kena = CountIn(strCell, Sep) For a = 1 To Kena + 1 If a = 1 Then Start(1) = 0 Leght(1) = InStr(1, strCell, Sep, vbBinaryCompare) Else Start(a) = InStr(Start(a - 1) + 1, strCell, Sep, vbBinaryCompare) If InStr(Start(a) + 1, strCell, Sep, vbBinaryCompare) = 0 Then Leght(a) = Len(strCell) - Start(a) + 1 Else Leght(a) = InStr(Start(a) + 1, strCell, Sep, vbBinaryCompare) - Start(a) End If End If Next a If NumWord = 1 Then Separator = (Left$(strCell, Leght(1))) Else Separator = (Mid$(strCell, Start(NumWord), Leght(NumWord))) End If 'Separator = Leght(NumWord) End Function Function TrimAll(ByVal strInput As String, _ Optional blnRemoveTabs As Boolean = True) As String Const conTowSpace = " " Const conSpace = " " strInput = Trim$(strInput) If blnRemoveTabs Then strInput = Replace(strInput, vbTab, conSpace) End If Do Until InStr(strInput, conTowSpace) = 0 strInput = Replace(strInput, conTowSpace, conSpace) Loop TrimAll = strInput End Function Function CountIn(strText As String, strFind As String, _ Optional lngCompare As VbCompareMethod = vbBinaryCompare) As Long Dim lngCount As Long Dim lngPos As Long If Len(strFind) > 0 Then lngPos = 1 Do lngPos = InStr(lngPos, strText, strFind, lngCompare) If lngPos > 0 Then lngCount = lngCount + 1 lngPos = lngPos + Len(strFind) End If Loop While lngPos > 0 Else lngCount = 0 End If CountIn = lngCount End Function split data from one cell to multiple cells.xlsm

Αν το υπόγειο είναι όλο μέσα στο έδαφος και έχει ένα μπάνιο και μιά κουζίνα μπορεί να κάνει αλλαγή χρήσης σε κατοικία (κύρια χρήση) ; κτιριοδομικός άρθρο 2 παρ. 3 Χώροι κύριας χρήσης των κτιρίων είναι όσοι προορίζονται για την παραμονή σε κανονικές συνθήκες λειτουργίας, ατόμων (έστω και ενός) επί δύο τουλάχιστον ώρες το 24ωρο. Για παράδειγμα στα κτίρια με χρήση κατοικίας χώροι κύριας χρήσης είναι τα υπνοδωμάτια, οι χώροι διημέρευσης (καθιστικά, σαλόνια, τραπεζαρίες, χώροι παιχνιδιού), οι κουζίνες τα γραφεία κλπ. κτιριοδομικός άρθρο 11 παρ. 1.4 & 2 1.4. Η απαίτηση φυσικού αερισμού για τους χώρους κύριας χρήσης των κατοικιών ισχύει, έστω και αν υπάρχει εγκατάσταση τεχνητού αερισμού. 2. Οπωσδήποτε άμεσο φυσικό φωτισμό και αερισμό πρέπει να έχουν οι χώροι κύριας χρήσης των κατοικιών και τα υπνοδωμάτια των κτιρίων προσωρινής διαμονής.

Σε win 7 με autocad2011 64bit δουλεύει τέλεια Μια παρατήρηση μόνο όταν κάνεις save σου βγάζει Path/File access error (Run-Time Error '75') Αυτό πρέπει να οφείλεται στο ότι η πρόσβαση για εγγραφή στο κατάλογο C:\Program Files\AutoCAD 2010\pinopl ή C:\Program Files\Autodesk\AutoCAD 2011\pinopl θέλει άδεια διαχειριστή. Θα πρότεινα να διορθωθεί αυτό με δυνατότητα αποθήκευσης σε άλλο κατάλογο ή με common dialog μπορείς να εμφανίσεις παράθυρο saveas με tree

Σήμερα υπάρχει το Σχέδιο Νόμου μαζί με την αιτιολογική έκθεση στη βουλή __________________ http://anendoto.blogspot.com

άρθρο 9 παράργαφος 4 Δεν προσμετρώνται στον σ.δ. «η) οι στεγασμένοι ανοικτοί χώροι στάθμευσης αυτοκινήτων που κατασκευάζονται στο ισόγειο του κτιρίου ή στην πυλωτή καθώς και οι κλειστοί χώροι στάθμευσης αυτοκινήτων που κατασκευάζονται σε υπόγειους ορόφους» __________________ http://anendoto.blogspot.com

Δυστυχώς είναι ένα πολύ κακογραμμένο κείμενο που σίγουρα δεν είναι σε μορφή νόμου. Διαβάζοντας το σου δημιουργούνται πάρα πολλές απορίες. πχ - Δεν νομιμοποιεί τις υπερβάσεις δόμησης, αλλά επιτρέπει με καταβολή ειδικού προστίμου πράσινης χρήσης για 40 χρόνια την διατήρηση ημιυπαίθριων χώρων, καθώς και χώρων που βρίσκονται στο υπόγειο, ισόγειο ή άλλη στάθμη του κτιρίου, οι οποίοι βρίσκονται εντός του "νόμιμου ;;; κτιριακού όγκου βάσει οικοδομικής άδειας ;;;;". Ελπίζω μέχρι την τελική του μορφή να το επεξεργαστούν περισσότερο. Κατά τα άλλα έχει κάποια καινοτόμα σημεία που είναι θετικά. - Ορίζει διαδικασία ελέγχου κατασκευής των κτιρίων - Ταυτότητα Κτιρίου. - Ορίζει Περιβαλλοντικό ισοζύγιο και αντισταθμιστικά μέτρα αποκατάστασης του περιβάλλοντος. Διορθώνει τα προβλήματα του άρθρου 40 & 41 - Καταργεί την διαστασιολόγηση των ημιυπαιθρίων χώρων. - Επιτρέπει την επέκταση υπογείων για θέσεις στάθμευση. - Επαναφέραι τα υπόγεια στο 1.50 μ. Και τέλος ευτυχώς Επαναφέρει σε ισχύ το άρθρο 4 του ν. 3212/2003 και όχι το άρθρο 5. Μήπως γνωρίζει κανείς αν όντος και ποιό κείμενο τελικά κατατέθηκε στην βουλή ; __________________ http://anendoto.blogspot.com

Αυτό που γράφει στον πίνακα τη παραγράφου 2 "Δεν προσμετρούνται οι υπόγειοι χώροι στάθμευσης στον συντελεστή δόμησης." πρέπει να το δούμε με την κατάργηση της αλλαγής του ΓΟΚ στο άρθρο 7 παράγραφος (1) του εδαφίου (Β) περίπτωση (η) που είχε κάνει το άρθρο 41 του Ν.3775 (ΦΕΚ. 122/21-7-2009) «η) οι υπέργειοι στεγασμένοι ανοικτοί χώροι στάθμευσης επιβατικών αυτοκινήτων που κατασκευάζονται στο ισόγειο του κτιρίου ή στην Πυλωτή» όσο για το "Καταργείται η βύθιση των υπογείων." πρέπει να αλλάξει το «β) εφόσον η οροφή του σε κανένα σημείο δεν υπερβαίνει τα 0,80 μ. από την οριστική στάθμη του εδάφους » της περίπτωσης (β) σε 1.50 μ. Το βασικό πρόβλημα που παρατηρώ στο Ενημερωτικό σημείωμα σχεδίου νόμου Αυθαίρετες Υπερβάσεις Δόμησης είναι αυτό που αναφέρεται στην παράγραφο 1. Βασικά σημεία νομοσχεδίου στο τελευταίο εδάφιο "Επαναφέρει σε ισχύ το άρθρο 5 του ν.3212/2003 για τις κυρώσεις σε περίπτωση κατασκευής αυθαιρεσιών στους κυρίους, εργολάβους ή μηχανικούς."