Accedi

Wählen Sie das Produkt, für das Sie Hilfe benötigen:

WD2000: Come eseguire calcoli con date e ore

Identificativo articolo: 212684 - Visualizza i prodotti a cui si riferisce l’articolo.

Attenzione: Questo è un articolo tradotto in automatico.

Per visualizzare l'articolo tradotto automaticamente accanto all'originale in inglese, fare clic qui.

Espandi tutto | Chiudi tutto

In questo articolo vengono forniti diversi esempi di utilizzare macro di applicazioni di Visual Basic per eseguire calcoli in date e ore. Word viene eseguita la prima conversione una data o un'ora in un numero seriale. Word, quindi, il numero di serie viene utilizzato nei calcoli e converte nuovamente in un formato di ora o data standard.

Torna all'inizio | Invia suggerimenti

Informazioni

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Questo include, ma non è limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo specifico. Questo articolo si presuppone che conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug di procedure. Tecnici del supporto Microsoft possono spiegare la funzionalità di una particolare procedura, ma in nessun sono caso a modificare questi esempi per fornire funzionalità aggiuntive o creare procedure per soddisfare specifiche esigenze.
Per ulteriori informazioni su come utilizzare il codice di esempio in questo articolo, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito:

212536

(http://support.microsoft.com/kb/212536/EN-US/ )

OFF2000: Come esecuzione di codice di esempio da articoli della Knowledge Base

Esempi:

Sub Date_DateCalc()
   'To calculate a date seven days from the current date.
   MsgBox DateSerial(Year(Now), Month(Now), Day(Now) + 7)
End Sub

Sub Date_YourAge()
   'To return your age in number of days.
   'Replace "mm/dd/yy" with your birth date.
   MsgBox Int(Now - DateValue("mm/dd/yy"))
End Sub

Sub Date_DivideTime()
   'To display 6:00 AM (because 6:00 AM is one-half of 12:00 PM).
   MsgBox TimeSerial(12 / 2, 0, 0)
End Sub

Sub Date_CurrentDateTime()
   'The current date and time.
   MsgBox Now
End Sub

Sub MyDateTime_CurrentDateTime()
   ' The current date and time in my format
   Dim MyTime, MyDate
   MyTime = Time
   MyDate = Date
   MyDatestr = Format(MyDate, "dddd mmmm d, yyyy")
   MyTimestr = Format(MyTime, "h:mm")
   MsgBox ("Time: " + MyTimestr + Chr$(13) + "Date: " + MyDatestr)
End Sub

Sub Date_LastDayPreviousMonth()
   'To calculate the last day of the previous month.
   MsgBox (Now - Day(Now))
End Sub

Torna all'inizio | Invia suggerimenti

Riferimenti

Per ulteriori informazioni su come ottenere aiuto con Visual Basic Applications, vedere il seguente articolo della Microsoft Knowledge Base riportato di seguito:

212623

(http://support.microsoft.com/kb/212623/EN-US/ )

WD2000: Risorse di programmazione di macro

Torna all'inizio | Invia suggerimenti

Proprietà

Identificativo articolo: 212684 - Ultima modifica: mercoledì 11 ottobre 2006 - Revisione: 3.2

Le informazioni in questo articolo si applicano a:

Microsoft Word 2000 Standard Edition

kbmt kbdtacode kbhowto kbmacroexample kbprogramming KB212684 KbMtit

Traduzione automatica articoli

Il presente articolo è stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell’utente. Tuttavia, un articolo tradotto in modo automatico non è sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, più o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non è la sua. Microsoft non è responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell’utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.

Clicca qui per visualizzare la versione originale in inglese dell’articolo: 212684

(http://support.microsoft.com/kb/212684/en-us/ )

LE INFORMAZIONI CONTENUTE NELLA MICROSOFT KNOWLEDGE BASE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA' IN IMPIEGHI PARTICOLARI. L'UTENTE SI ASSUME L'INTERA RESPONSABILITA' PER L'UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO MICROSOFT CORPORATION E I SUOI FORNITORI SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE MICROSOFT O I SUOI FORNITORI FOSSERO STATI AVVISATI. IL DOCUMENTO PUO' ESSERE COPIATO E DISTRIBUITO ALLE SEGUENTI CONDIZIONI: 1) IL TESTO DEVE ESSERE COPIATO INTEGRALMENTE E TUTTE LE PAGINE DEVONO ESSERE INCLUSE. 2) I PROGRAMMI SE PRESENTI, DEVONO ESSERE COPIATI SENZA MODIFICHE, 3) IL DOCUMENTO DEVE ESSERE DISTRIBUITO INTERAMENTE IN OGNI SUA PARTE. 4) IL DOCUMENTO NON PUO' ESSERE DISTRIBUITO A SCOPO DI LUCRO.

Torna all'inizio | Invia suggerimenti