01. 01')) then Result:= -5; Result:= 0; Az utolsó feltétellel, vagyis ezzel van gondom: Mert ügye ez excelben nem lehet "1867. 01"-es szöveget dátummá alakítani. Nem kezeli dátumként.... Hogyan lehetne ezt másképp megoldani??? Mutasd a teljes hozzászólást! Adóazonosító jel és adószám ellenőrzés probléma - Prog.Hu. Válasz Privát üzenet SamBowry megoldása 2006. 13:33 permalink CDV ellenőrzés (A2-ben van az adóazonosító jel): =HA( KÖZÉP(A2;10;1)+0 = MARADÉK( KÖZÉP(A2;1;1)*1 + KÖZÉP(A2;2;1)*2 + KÖZÉP(A2;3;1)*3 + KÖZÉP(A2;4;1)*4 + KÖZÉP(A2;5;1)*5 + KÖZÉP(A2;6;1)*6 + KÖZÉP(A2;7;1)*7 + KÖZÉP(A2;8;1)*8 + KÖZÉP(A2;9;1)*9; 11); "ok"; "hibás") Születési dátum ellenőrzés (I2-ben van a születési dátum): =HA( I2 = (KÖZÉP(A2;2;5)- 12051); "ok"; KÖZÉP(A2;2;5)- 12051) Ronda, de működik. Mutasd a teljes hozzászólást! Válasz Előzmények Privát üzenet Előző hozzászólás SamBowry megoldása 2006. 13:33 permalink CDV ellenőrzés (A2-ben van az adóazonosító jel): Mutasd a teljes hozzászólást! Válasz Előzmények Privát üzenet Előző hozzászólás nova76 2006. 30. 08:49 permalink Na most már tényleg nem értem... A KÖZÉP(A2;2;5) a születési dátumot határozza meg?
C: Amikor kitalálták, akkor kiszámolták, hogy mi lesz az a dátum, amitől már biztos nem lesz élő ember, akinek adószám kellene. (pl. 150 évnél nincs idősebb senki az adószám "kitalálásakor") A KÖZÉP(A2;2;5) egy szövegből kivesz a 2. karaktertől 5 karaktert. Mutasd a teljes hozzászólást! Válasz Előzmények Privát üzenet Előző hozzászólás mjocoo 2007. 03. 21. 16:59 permalink Hali! Bár tudom nem aktuális, de kicsit kísérleteztem, és megírtam a VBA-s függvényt az adóazonosító ellenőrzésére: Public Function TESZT(ByVal x As String) Dim i As Integer Dim num As Double Dim nCDV As Integer Dim kul As Long On Error Resume Next TESZT = 0 If (Len(x) <> 10) Then TESZT = -1 Exit Function End If num = CDbl(x) If <> 0 Then TESZT = -2 If (CInt(Mid(x, 1, 1)) <> 8) Then TESZT = -3 nCDV = 0 For i = 1 To 9 nCDV = nCDV + CInt(Mid$(x, i, 1)) * i Next If ((nCDV Mod 11) <> CInt(Mid$(x, 10, 1))) Then TESZT = -4 kul = DateDiff("d", FormatDateTime(CDate("1867. "), vbShortDate), FormatDateTime(Now, vbShortDate)) If (CLng(Mid(x, 2, 5)) > kul) Then TESZT = -5 End Function Üdv: mjocoo Mutasd a teljes hozzászólást!
Ha a Te feladatod a cégnél az új munkavállalók bejelentése, minden bizonnyal Veled is előfordult már, hogy nem az eredeti személyi iratokról rögzítetted az adatokat. Ennek a kockázatát szerintem mindketten jól ismerjük. Viszont egyértelmű, hogy szeretnénk megelőzni, hogy később ebből adódóan probléma alakuljon ki. Hiszen előfordulhat olyan eset, hogy a munkavállaló felvétele nem ugyanott történik, ahol a számfejtés (bejelentés), így csak telefonon vagy mailen kapunk információkat a bejelentésről, ami lássuk be, magában foglalja a hibázás lehetőségét. És, sajnos, ilyenkor az is elegendő, ha egyetlen számot is rosszul küldenek, diktálnak, akkor már is jön a hibaüzenet. Jobb esetben még a bejelentéskor, rosszabb esetben a hó végén a 08-as bevallás fut hibára. Ilyenkor kell telefonálgatnod, nyomozgatnod, másolatot bekérned. Vagy, ami még rosszabb, berángatni a munkavállalót – aki természetesen már dolgozna-, mert nem tudod bejelenteni őt. Ezért készítettem egy táblázatot, ami a segítségedre lehet, ha a program vagy valamely bejelentés során a NAV hibát jelez.
Am E Sötét kapuk, magas házak, fényes udvarok. Nyíljatok meg lábam előtt, ha arra indulok. Ref:(2x) C Erdő közepében járok, Dm Egyszer, majd rád találok. Am C Csillagom vezess! E Am Én utánad megyek. Felhő, felhő fenn az égen Vártunk már nagyon. Esőt hozz a virágoknak. Mosd el sok bajom. Fehér ingem tiszta legyen, Olyan, mint a hó. Átok engem elne érjen, Ne bánthasson a szó. Csillagom vezess!
Erdo közepében-Fényes utakon Lyrics Sötét kapuk, magas házak, fényes udvarok Nyíljatok meg lábam előtt, ha arra indulok Erdő közepében járok Egyszer, majd rád találok Csillagom vezess! Én utánad megyek Erdő közepében járok Egyszer, majd rád találok Csillagom vezess! Én utánad megyek Felhő, felhő fenn az égen Vártunk már nagyon Esőt hozz a virágoknak Mosd el sok bajom Erdő közepében járok Egyszer, majd rád találok Csillagom vezess! Én utánad megyek Erdő közepében járok Egyszer, majd rád találok Csillagom vezess! Én utánad megyek Fehér ingem tiszta legyen Olyan, mint a hó Átok engem elne érjen Ne bánthasson a szó Erdő közepében járok Egyszer, majd rád találok Csillagom vezess! Én utánad megyek Erdő közepében járok Egyszer, majd rád találok Csillagom vezess! Én utánad megyek Erdő közepében járok Egyszer, majd rád találok Csillagom vezess! Én utánad megyek Erdő közepében járok Egyszer, majd rád találok Csillagom vezess!
"Részese lenni egy olyan, mindenki számára építő megújulásnak, mely a Sziget sokszínű szabadságában válhat teljessé" – tette hozzá Kádár. Visszatér a Nagyszínpadra a Love Revolution A Sziget pár éve hívta életre a Szeretet Forradalmát, ami a programokban is megnyilvánul. Idén is visszatér tehát a Nagyszínpadra a Love Revolution Special, ahol minden nap 10 percben olyan előadások és rövid felszólalások színesítik az átállásokat, melyek a körülöttünk zajló társadalmi változásokra és az ezzel kapcsolatos kollektív felelősségünkre igyekeznek felhívni a figyelmet. A Sziget vendégeként a holland Aynouk Tan az elfogadás fontosságáról Az extravagáns öltözködéséről és interaktív beszédeiről híres queer aktivista önmagunk felvállalása és az identitástudatunk kapcsolatára specializálódott. Fel lép Franciaország egyik leghíresebb táncoslábú ikerpárja, a Les Twins Táncosként, koreográfusként vagy épp modellként olyan szupersztárokkal és márkákkal dolgoztak együtt, mint Beyoncé és Missy Elliott vagy épp Jean Paul Gaultier, a Chanel, a Gucci és a Prada.
A "Diagnosztikus és terápiás eljárások a prehospitális gyakorlatban" című mű olyan fejezetekkel is szeretné megörvendeztetni a kedves olvasót, amelyek teljesen új szemléletet képviselnek és ezáltal előremutató üzenetet hordoznak hazánkban, mint például a "Minőségbiztosítás és dokumentáció", az "Informatika a sürgősségi ellátásban", vagy a "Csapatmunka és kommunikáció" című fejezetek. Természetesen az evidencia alapú szakmai ajánlásokat tárgyaló fejezetek között is van több olyan, amely ebben a könyvben jelenik meg önállóan Magyarországon először, ilyenek például a "Gyermektraumatológia", a "Lélegeztetési stratégiák", vagy a "Fájdalomcsillapítás" című fejezetek. Azonban a harc nem könnyű, így életek vesznek oda… Szóval a főszerepben az a Jean-Claude Van Damme játszik, akiről tudni illik, hogy az egyik kedvenc akcióhősöm, és akinek ezt a filmjét csak néhány napja láttam először. km-re 41. P Benzin, 2017/2, 1 998 cm³, 88 kW, 120 LE, 24 000 km? km-re 42. P Benzin, 2016/9, 1 998 cm³, 88 kW, 120 LE, 31 000 km?
A weboldal használatához el kell fogadnod, hogy cookie-kat helyezünk el a számítógépeden. Részletek Egy EU-s törvény alapján kötelező tájékoztatni a látogatókat, hogy a weboldal ún. cookie-kat használ. A cookie-k (sütik) apró, tökéletesen veszélytelen fájlok, amelyeket a weboldal helyez el a számítógépeden, hogy minél egyszerűbbé tegye a böngészést. A sütiket letilthatod a böngésző beállításaiban. Amennyiben ezt nem teszed meg, illetve ha az "cookie" feliratú gombra kattintasz, elfogadod a sütik használatát. Bezár