Estrazione caratteri da una data

[tornu]

Buonasera a tutti,

Dovrei estrarre da una variabile che contiene una data i caratteri che corrispondono al giorno e al mese da associare a due variabili, ho provato in questo modo:

Codice: [Seleziona]

DIM data AS Date
DIM giorno AS Integer
DIM mese AS Integer

data = (Date(Now))
giorno = Left(data, 2)
mese = Mid(data, 4, 2)

ma mi viene restituito questo errore:
" Type mismatch: wanted String, got Date instead "

premetto che la data deve essere (per l'utilizzo che ne devo fare io) obbligatoriamente contenuta da una variabile, ho fatto varie prove ma non ne sono venuto a capo.

[claudio]

Prova in questo modo:

DIM data AS Date
DIM giorno AS Integer
DIM mese AS Integer
DIM d AS String

data = (Date(Now))
d = Format(Data, "dd/mm/yyyy")
giorno = CInt(Left(d, 2))
mese = CInt(Mid(d, 4, 2))

[tornu]

:si:  grazie cbsoft

[md9327]

Esitono anche funzioni del tipo:

YEAR, MONTH e DAY

che estraggono da una Date le informazioni volute...

[claudio]

@ MD9327
Hai ragione, YEAR, MONTH e DAY sono le funzioni corrette, io gli ho convertito la data in formato stringa, per fargli capire l'errore.

[tornu]

Un esempio?

[tornu]

Grazie alle vostre indicazioni ho letto più attentamente la documentazione

Codice: [Seleziona]

DIM giorno AS Integer
DIM mese AS Integer

giorno = Day(Now)
mese = Month(Now)

[md9327]

Vedi, a volte un'altro paio di occhiali possono servire... :-P