makravba.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest środa, 05 sierpnia 2020 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

Problem z PESEL'em


otwartyotwarty rozpoczął: Ben postów: 7



napisał: Ben
postów: 3


umieszczony:
9 stycznia 2008
11:26

edytowany:
9 stycznia 2008
11:27

  
Cytat:

...No chyba, że szukasz rozwiązania za pomocą makra, a nie formuł...


Hej, formule widzialem, a szukam makra.
Na wikipedi jest opis jak mozna to "wyciagnac" z PESELa (http://pl.wikipedia.org/wiki/Pesel#Numer_PESEL/)
ale ja niemam zielonego pojecia jak to zrobic :(
Reklama
napisał: plitfyg
postów: 2


umieszczony:
8 stycznia 2008
23:18

  
Cytat:

Przejde teraz do meritum sprawy, musze ten algorytm rozbudowac o opcje pokazywania daty urodzenia na podstawie nr.PESEL, tzn jak sie wpisze PESEL to pokazuje tak jak teraz plec oraz date urodzenia.


Masz to opisane na blogu Excelblog (http://www.excelblog.pl/sprawdzanie-numerow-pesel-i-regon/).
Link był już podawany wiec nie wiem czemu nie doczytałeś. Jest zarówno o "wyciąganiu" płci, jak też daty urodzenia z numeru Pesel. No chyba, że szukasz rozwiązania za pomocą makra, a nie formuł.

Pozdrawiam,


Plitfyg
napisał: Ben
postów: 3


umieszczony:
7 stycznia 2008
10:46

  
Czesc, dzieki za szybka odpowiedz :)

Przejde teraz do meritum sprawy, musze ten algorytm rozbudowac o opcje pokazywania daty urodzenia na podstawie nr.PESEL, tzn jak sie wpisze PESEL to pokazuje tak jak teraz plec oraz date urodzenia.

Z gory dzieki za pomoc, dla mnie to czarna magia!
Reklama
napisał: jalamas
postów: 316


umieszczony:
6 stycznia 2008
16:28

  
Ściągnij sobie ze strony:
http://www.oaltd.co.uk/Indenter/Default.htm
Smart Indenter
Będziesz miał możliwość formatowania kodu, lepiej będziesz widział gdzie i czego brakuje.
Patrz też
http://www.access.vis.pl/war028.htm
i tutaj:
http://www.excelblog.pl/sprawdzanie-numerow-pesel-i-regon
napisał: ferges
postów: 6


umieszczony:
6 stycznia 2008
16:25

edytowany:
6 stycznia 2008
16:32

  
brakuje End If w pierwszej części.
Function PeselPlec(p As String) As String

' 1.weryfikacja czy argument p posiada 11 znakow

If Len(p) <> 11 Then
PeselPlec = "zle wpisany PESEL"
Exit Function
End If

' 2.wyluskanie 10tego znaku do zmiennej z (z-znak)

Dim z As String
z = Mid(p, 10, 1) ' 10 - liczba znakow , 1- ile znakow ma wyrzucic

' 3.zamiana zmiennej z na wartosc liczbowa zl
'konwersja

Dim zl As Integer
zl = CInt(z)

' 4.weryfikacja przystosci zmiennej zl

If (zl Mod 2) = 0 Then
    PeselPlec = "K"
Else
    PeselPlec = "M"
End If


End Function

Reklama
napisał: Ben
postów: 3


umieszczony:
6 stycznia 2008
15:28

  
Hej,
moj 1 post, w VBA jestem zielony jak laczka na wiosne, wiec prosze o pomoc:
Co tu jest nie tak!?

Option Explicit

Function PeselPlec(p As String) As String

' 1.weryfikacja czy argument p posiada 11 znakow

If Len(p) <> 11 Then
PeselPlec = "zle wpisany PESEL"
Exit Function

' 2.wyluskanie 10tego znaku do zmiennej z (z-znak)

Dim z As String
z = Mid(p, 10, 1) ' 10 - liczba znakow , 1- ile znakow ma wyrzucic

' 3.zamiana zmiennej z na wartosc liczbowa zl
'konwersja

Dim zl As Integer
zl = CInt(z)

' 4.weryfikacja przystosci zmiennej zl

If (zl Mod 2) = 0 Then
    PeselPlec = "K"
Else
    PeselPlec = "M"
End If


End Function



Wyskakuje blad - "Compile Error: Block IF without End IF"

Z gory dziekuje za pomoc. Pozdrawiam.


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z