Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come convertire le date alle Date militari in Access 2007 VBA

Capire come formattare una data può essere una sfida se non si ha familiarità con la funzione Format in Visual Basic, Applications Edition , o VBA . Utilizzare la funzione Format per formattare una data in un formato di data diversa , come ad esempio un formato militare . La data di militare è comunemente annotato , visualizzando un numero di giorno a due cifre , le prime tre lettere del mese e un anno a due cifre . Potete trovare questa funzione utile, soprattutto se avete bisogno di convertire molti date per le date militari in un database di Access . Istruzioni
1

Start " di accesso ", fare clic su " Database vuoto " e quindi fare clic su "Crea ". Selezionare il menu " Strumenti di database " , quindi su " Visual Basic ". Selezionare il menu "Inserisci" , quindi fare clic su "Modulo" per inserire un nuovo modulo di codice
2

Digitare quanto segue per creare una nuova procedura VBA : .

ConvertToMilitaryDate Private Sub ( )

On Error GoTo Err_convertToMilitaryDate :
3

digitare quanto segue per creare due variabili , una per tenere la data odierna e l'altro per tenere la data formattata militare :

Dim TodaysDate As Date Dim

militaryDate As String
4

Digitare quanto segue per ottenere la data odierna con la funzione " Now ( ) " :

TodaysDate = Now ( ) economici 5

Digitare il seguente formato per la data odierna in un formato di data militare :

militaryDate = Format ( TodaysDate , " data breve " ) per
6

digitare quanto segue per sostituire i trattini con uno spazio :

militaryDate = Replace ( militaryDate , " - " , " " ) economici 7

Digitare il seguente per visualizzare la stringa finale militare data attraverso una finestra di messaggio :

MsgBox ( militaryDate ) economici 8

digitare quanto segue per terminare la procedura e visualizzare gli eventuali errori attraverso una finestra di messaggio :

Exit_convertToMilitaryDate :

Exit Sub

 

Programmazione © www.354353.com