Tema: Re: Kreipiniai
Autorius: Jornada Del Muerto
Data: 2010-12-13 11:38:29
    Logiska ir paprasta :) nos uzsakovas nezino dar ko jam ten tiksliai reikia, programa tai universali ne konkreciam variantui, tai kazkaip pasake neskubet, kad dar pagalvos ko jis nori :/

"NicMC" <easy@freemail.lt> wrote in message news:ie0bib$tnj$1@trimpas.omnitel.net...
> Function Kreiptis(Vardas As String) As String
> Kreiptis = Vardas
> If InStr(1, Vardas, " ") = 0 Then
>   If Right(Vardas, 2) = "as" Then Kreiptis = Left(Vardas, Len(Vardas) - 
> 2) + "ai"
>   If Right(Vardas, 2) = "us" Then Kreiptis = Left(Vardas, Len(Vardas) - 
> 2) + "au"
>   If Right(Vardas, 2) = "is" Then Kreiptis = Left(Vardas, Len(Vardas) - 
> 2) + "i"
>   If Right(Vardas, 2) = "ys" Then Kreiptis = Left(Vardas, Len(Vardas) - 
> 2) + "y"
>   If Right(Vardas, 1) = "ë" Then Kreiptis = Left(Vardas, Len(Vardas) - 
> 1) + "e"
> End If
> End Function
> 
> Dar nei karto nepramazino. Jei užsienietiškas ir neatitinka lietuviško, 
> tai arba lietuvinam arba nelinksniuojam - čia taisyklė. T.y. Bynas - 
> Bynai, Byn - Byn.
> todėl geriausia kreiptis "Gerb. p. XXXX" ir Gausim "Gerb. p. Byn"
> 
> Formulė išbandyta ant maždaug 300-400 tūkst. adresatų, nei vienas 
> nesiskundė...
> 
> Čia tik iš excelio, jei reikia galiu paduoti dar pythonu ar c++