|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Konvertera datum till militär datum i Access 2007 VBA

    Räkna ut hur du formaterar ett datum kan vara en utmaning om du är obekant med funktionen Format i Visual Basic for Applications , eller VBA . Använd funktionen Format för att formatera något datum till ett annat datum format , såsom ett militärt format . Den militära datum är vanligen kommenterad genom att visa en tvåsiffrig dag nummer , de tre första bokstäverna i månaden och ett tvåsiffrigt årtal . Du kan hitta denna funktion användbar , särskilt om du behöver konvertera många datum att militära datum på en Access-databas . Instruktioner
    1

    Start " Tillgång , " klick " Tom databas " och klicka sedan på " Skapa ". Välj " Database Tools " -menyn , och klicka sedan på " Visual Basic . " Välj " Infoga " -menyn , klicka sedan på " modul " för att infoga en ny kodmodul
    2

    Skriv följande för att skapa ett nytt VBA procedur : .

    Private Sub convertToMilitaryDate ( )

    On Error GoTo Err_convertToMilitaryDate : Addera 3

    Skriv följande för att skapa två variabler , en för att hålla dagens datum och den andra för att hålla formaterade militära datum :

    Dim todaysDate som Datum

    Dim militaryDate As String
    4

    Skriv följande för att få dagens datum med " nu ( ) " -funktion :

    todaysDate = nu ( )
    5

    Skriv följande till format dagens datum i en militär datumformat :

    militaryDate = format ( todaysDate , " Medium Date " ) katalog
    6

    Skriv följande för att ersätta bindestreck med ett blanksteg :

    militaryDate = Ersätt ( militaryDate , " - " , " " )
    7

    Skriv följande för att visa den sista militära datumsträng genom en meddelanderuta :

    MsgBox ( militaryDate )
    8

    Skriv följande för att avsluta förfarandet och visa fel genom en meddelanderuta :
    < p > Exit_convertToMilitaryDate :

    Exit Sub

    Err_convertToMilitaryDate :

    MsgBox Err.Description

    Resume Exit_convertToMilitaryDate :

    End Sub

    Tryck " F5 " för att köra proceduren .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur beräkna enkel ränta i Visual Basic
    ·Långa Dubbla heltal i Visual Basic
    ·Visual Basic 2010 Handledning för nybörjare
    ·Så ringer en subrutin inifrån sig Visual Basic
    ·Hur storleksändra importerade bilder i Visual Basic 20…
    ·Visual Basic Application självstudie
    ·Hur man bygger en JSON Parser i VB.NET
    ·Hur får man ett svar från en meddelanderuta
    ·Hur man använder Winsock.dll i Visual Basic
    ·Hur man Byta namn på en fil i Visual Basic 2005
    Utvalda artiklarna
    ·Hur man gör en matris av Strings
    ·Hur man skriver yttre beroenden för ett IT-projekt
    ·Varför är binärt används i datorer
    ·Hur hitta Hur många skärmar är i en VB6 kod
    ·Vad är statisk referens i Java
    ·Hur man spelar Alarm wav-fil från PHP Script
    ·Hur man läser en digital signatur i C #
    ·Handledning av Visual Basic for MSN
    ·Hur man byter en lista i Python
    ·Javascript Grid Tutorial
    Copyright © Dator Kunskap http://www.dator.xyz