Calcolo Date nei moduli legacy WORD

Question

Calcolo Date nei moduli legacy WORD

Anonimo

Buongiorno,

sto provando a calcolare, senza riuscirci, la differenza in giorni tra due date usando le caselle di testo.

prima ho creato due caselle di testo:

Tipo: "Data"

Lunghezza massima: "Illimitata"

Formato data "dd/MM/yyyy"

Segnalibro "Testo1" e "Testo2"

poi ho creato una terza casella di testo:

Tipo: "Calcolo"

Calcolo: "=(Testo2)-(Testo1)"

Lunghezza massima: "Illimitata"

Formato numero "0"

Segnalibro "Testo3"

ma non calcola la differenza e restituisce semplicemente "0",

sicuramente sto sbagliando la sintassi ma non trovo nulla in rete che non implichi l'uso di codici di VBA.... qualche consiglio?

Grazie, Sergio

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

1 risposta

Answer 1

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao, Sergio Callai

Grazie per aver utilizzato i prodotti Microsoft e per averli pubblicati nella community.

Non ha nulla a che fare con la sintassi. La funzione di calcolo di Word non supporta operazioni complesse sulla data nelle caselle di testo. La casella di testo in Word può elaborare solo testo normale e numeri e non può riconoscere o calcolare direttamente le date. Per elaborare i calcoli della data, si consiglia di utilizzare i campi del modulo combinati con le macro VBA. Ciò consente di calcolare automaticamente la data.

Anche se potrebbe essere diverso dalle tue aspettative, puoi comunque prendere in considerazione la possibilità di provare il seguente codice:

Sub CalculateDateDifference()

    Dim date1 As Date

    Dim date2 As Date

    Dim diff As Long    

    date1 = CDate(ActiveDocument.FormFields("Testo1").Result)

    date2 = CDate(ActiveDocument.FormFields("Testo2").Result)

    diff = DateDiff("d", date1, date2)

    ActiveDocument.FormFields("Testo3").Result = CStr(diff)

End Sub

Questo codice calcolerà la differenza di data e la visualizzerà in Text3.

Spero che le informazioni di cui sopra possano aiutarti. Sentiti libero di inviare un messaggio se hai bisogno di ulteriore aiuto.

I miei migliori auguri

Aiden.C - MSFT |Specialista del supporto della community Microsoft