VBA] manipolare stringa

[Dany73]

Dovrei manipolare alcune stringhe in Visual Basic, ma non mi ricordo bene la sintassi del codice.

da una stringa: "22/2005" devo estrarre solo "22/05" (il valore, rappresenta un codice numerico progressivo associato all'anno corrente), quale funzione Visual Basic posso usare ?

Grazie a tutti

[MMarzia]

quale versione di VB?
va sempre specificata anche quella


intanto ti sposto nel subforum

[Brainjar]

Premesso che :

1) La parte numerica varia da 0 a 9999999....
2) L'anno è sempre di 4 cifre
3) L'anno è sempre preceduto da "/".
4) Vuoi solo le ultime due cifre dell'anno (ne millennio ne secolo)

Per estrarre il codice numerico

' Questa è la funzione
Private Function EstraiCodice(MiaStringa As String) As String
    Dim sCodice As String
    EstraiCodice = Left$(MiaStringa, InStr(MiaStringa, "/")) & Right$(MiaStringa, 2)
End Function

' la richiami così : 

EstraiCodice("22/2005")

Considerazioni sul codice di esempio :
1) Il codice di esempio indica uno dei probabilmente molti metodi di
risoluzione del problema.
2) E' stato provato prima di essere postato.
3) Non sono inclusi tutti i controlli di validità degli argomenti
passati alle funzioni, che andranno comunque inseriti nel codice
dell'applicazione reale.
4) Il codice riflette, se presenti, le premesse stabilite in testa al
messaggio di risposta.
5) Quando è possibile, si propende per una soluzione generalizzata,
per il riutilizzo del codice.

Ciao,

[xegallo]

se prima di rispondere aspettate di sapere per quale linguaggio lo chiede, forse non scrivete per niente

[Dany73]

l'ambiente è VBA in ACCESS XP

ok, a forza di tentativi ci sono riuscito così:

ho gestito separatamente anno e codice e li ho uniti successivamente nel formato es. "22/05" dove 22 è un codice progressivo e 05 l'anno corrente

ecco la parte di codice interessata:

Me.N_Offerta = numeroOfferta
annoDaFormattare = Year(Date)
annoFormattato = Right(annoDaFormattare, 2)
numeroOffertaFormattato = numeroOfferta & "/" & annoFormattato
Me.N_OffertaVisualizzato = numeroOffertaFormattato

grazie per il supporto