[VB6] Manipolazione stringhe

[JCave]

Ho un database con campi numerici ma i valori (che devono essere valuta) non hanno la virgola.

Esempio:

valore campo 210000
deve diventare 2.100,00 (con o senza punto, non ha importanza)
come faccio?

Avevo anche campi di date con formato yyyymmdd e tramite codice VB6 left, right e mid ho fatto diventare dd/mm/yyyy.

Posso seguire una strada simile?

N.B.: il campo in Access è in formato numerico; nel caso delle date era pure numerico e l'ho dovuto trasformare manualmente in testo altrimenti non mi accettava le modifiche.

[JCave]

Ho risolto così:

importoFinale = Format(210000 / 100, "#,##.00")

impostando in Access il tipo in testo.

Scusate il disturbo!

[Mabi]

Originariamente inviato da JCave
nel caso delle date era pure numerico e l'ho dovuto trasformare manualmente in testo altrimenti non mi accettava le modifiche.

Non ti è possibile trasformarlo in Date ?
Altrimenti potresti fare una formattazione del genere:

Data = Format(s, "dd/mm/yyyy", vbMonday)

[JCave]

Originariamente inviato da Mabi
Non ti è possibile trasformarlo in Date ?
Altrimenti potresti fare una formattazione del genere:

Data = Format(s, "dd/mm/yyyy", vbMonday)

Ho provato a cambiarlo manualmente in Date e mi ha cancellato tutti i dati del campo! (Access mi aveva anche avvisato)

Con Data = Format(s, "dd/mm/yyyy", vbMonday) non ha fatto alcuna modifica. Devo sempre trasformarlo in testo e poi fare la prassi con right, left e mid.

[Mabi]

Originariamente inviato da JCave
Con Data = Format(s, "dd/mm/yyyy", vbMonday) non ha fatto alcuna modifica. Devo sempre trasformarlo in testo e poi fare la prassi con right, left e mid.

OK, considerando la conversione in stringa, puoi sostituire l'elaborazione (Mid,Left,Right) così:

Dim Data As String

Data = "2005/07/08"
Data = Format(Data, "dd/mm/yyyy", vbMonday)

MsgBox Data

L'esempio non funzionava per l'errato passaggio di parametro evidenziato sopra.