[Tasos]

Καλησπέρα!
Φίλε μου μπορείς να επιτύχεις το ζητούμενο σε ελληνικούς και λατινικούς χαρακτήρες με την εξής παράσταση:

Σε ερώτημα:

Έλεγχος: StrComp([Text1];UCase(Replace(Replace(Replace([Text1];"σ";"Σ");"ΐ";"Ϊ");"ΰ";"Ϋ"));0)=0

Επιστρέφει True/False (0/1)



Στη VB:

Dim IsUcase as Boolean

IsUcase  = StrComp([Text1],UCase(Replace(Replace(Replace([Text1],"σ","Σ"),"ΐ","Ϊ"),"ΰ","Ϋ")),0)=0

Κατάλληλη για υπολογιστές με μη ελληνική τοπική ρύθμιση συστήματος είναι η παρακάτω παράσταση:

    Dim IsUcase As Boolean

    IsUcase = StrComp([Text1], UCase(Replace(Replace(Replace([Text1], ChrW(962), ChrW(931)), ChrW(912), ChrW(938)), _
                                                                                        ChrW(944), ChrW(939))), 0) = 0

Καλή συνέχεια!

Τάσος