MS Excel

prípadne takto
Function PrveCisloZprava(text As String) As Variant
Dim i As Long, j As Long
PrveCisloZprava = "nenalezeno"
For i = Len(text) To 1 Step -1
j = Asc(Mid(text, i, 1))
If (j < 58) * (j > 47) > 0 Then PrveCisloZprava = Len(text) + 1 - i: Exit Function
Next i
End Functioncitovat

vycházel jsem z toho co napsal Marjankaj - pokud jsem to správně pochopil :-)citovat

@opičák
děkuji, už je to skoro dobré, ale...
Je tam asi "nekorektně" udělané kontrola:
když najde první číslo zprava, tak by mělo otestovat, jestli tato nalezená pozice (první) a následující další tři (doleva) jsou čísla TYP(1), pokud ano a zároveň ty čtyři znaky jsou číslo v intervalu od 1990 do 2100, tak je vypiš, pokud ne, jiná hláška (např. není rok).
Konkrétně to je na řádcích:
1122
1425 (tady by to mělo ten rok vypsat)
1530 (tady by to mělo ten rok vypsat)
1697 až 1699 (tady je chybně test, mělo by to vypsat 2013)
2291 (tady je také chybně test, mělo by to vypsat 2014)

a ještě maličkost, o které jsem nepsal.
Na řádku 1179 je například SPZ a následujících...
Pokud by šlo přidat ještě jednu "úvodní" kontrolu, že pokud je první nebo druhý nebo třetí znak ZLEVA TYP(2), tak, aby to rovnou napsalo "není rok".

@AL
Také děkuji, nicméně jsou tam nějaké "nekorektní" věci...
Není tam ta kontrola na čtyři znaky, jak jsem psal výše a proto to nefunguje dobře například na řádcích:
1531
1532
ale na řádku 1533 už ano...?
a také to bez té kontroly najde i čísla, která mají jen dva znaky a není tam letopočet. (rok)
A ty SPZ by mi taky pomohly...

Každopádně, pokud byste byli ochotní mi to dopracovat, moc by mi to pomohlo.

Děkujicitovat

@AL
Ty řádky 1531 atd. jsem nějak popletl, asi jsem se překoukl, najde to korektně, omlouvám se za dezinformaci

nepriem sa, nehľadal som, ale mohol by si uviesť nejaký príklad?
Jde mi to, aby ta rutina, když najde první číslo zprava, tak by měla ještě otestovat, jestli tato nalezená pozice (první) a následující další tři (doleva) jsou čísla TYP(1).
Pokud ano a zároveň ty čtyři znaky jsou číslo v intervalu od 1990 do 2100, tak je vypiš, pokud ne, jiná hláška (např. není rok).
Příklad:

396/2010 1
3962009/01 4
3962009/02 4
3962009-003 5
952010 1
0952011E 2

V těchto případech by se rok vypsal, neboť od nalezené pozice i další tři znaky doleva jsou TYP(1) a navíc jsou v intervalu od 1990 do 2100.

Naopak tady, by se měla vypsat chyba:

9999 1
9889 1
9999 1
48 1
114 1


A jako první by byla ideální kontrola SPZ, které nepotřebuji, ale zapomněl jsem to původně napsat.
Na řádku 1179 je například SPZ a následujících...
Pokud by šlo přidat ještě jednu "úvodní" kontrolu, že pokud je první nebo druhý nebo třetí znak ZLEVA TYP(2), tak, aby to rovnou napsalo "není rok".

Zatím děkujicitovat

Vyskúšajte toto:
Function GETYEAR(T As String) As Variant
Dim i As Byte, Y As Variant
GETYEAR = vbNullString
If Len(T) >= 4 Then
For i = 0 To Len(T) - 4
Y = Mid(T, Len(T) - 4 - i + 1, 4)
If IsNumeric(Y) And Y > 1900 And Y < 2100 Then GETYEAR = Y: Exit Function
Next i
End If
End Functioncitovat