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 :( |
|
|
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! |
|
|
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 |
|
|
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
|
