• 
  

  Hur konvertera datumformat

  
  

Visual Basic 6. 0 ingår ett antal formateringsalternativ som gör att användaren kan visa och skriva ut datum på olika sätt . Genom att använda några enkla Visual Basic-kontroller och villkorssatser kan du skapa ett litet program som kommer att illustrera dessa metoder . Detta aktuellt exempel börjar med dagens datum och visar olika format för samma tidpunkt . Använd formatering riktningar för att infoga önskad sätt att visa ett datum inom alla program du skriver
1 .
Skapa ett nytt Visual Basic (VB ) projekt med hjälp av " Standard EXE " mall som finns när du klickar på " File " och sedan "Ny Project " i VB . Klicka på " Arkiv " och sedan " Spara projekt som. " Spara blanketten som " ConvertDate " och projektet som " Konvertera Date " .
2 .
Dubbelklicka på " ListBox " kontroll i verktygslådan till vänster på skärmen för att lägga till den till formuläret . I "Egenskaper " listan till höger på skärmen , ställ in formen " Höjd " egendom till 2600 och " Bredd " till 4500 . Dra " ListBox "till vänster sida av form och ställ in "Höjd " och " Bredd " egenskaper för att 1425 och 4725 . Lägg till tre " Labels " till formuläret genom att dubbelklicka på den stora bokstaven " A " i verktygslådan tre gånger . Ordna etiketterna så att " Label3 " är den översta punkten på formuläret . Sätt " Label1 " och " Label2 " i en rad under listrutan. Ställ "höjd" och "Bredd " egendom " Label1 " till 500 och 1800 . Ställ "höjd" och " Bredd " av " Label2 " till 800 och 3250 . Rensa bildtexter av " Label1 " och " Label2 "i sina "Egenskaper " avsnittet så de är tomma .
3 .
Klicka på " Visa " och sedan " Code " på den högsta nivån Visual Basic -menyn . Skriv följande kod exakt som den visas .

Option Explicit
Private Sub Form_Load ( )
Label3. Caption=" Markera det format som önskas för att visa det. "
Label1. Caption=" Idag är " Format ( Nu , " m /d /åååå " )
Label2. Visible=Sant
List1. AddItem " Full Datum "
List1. AddItem " Förkortat Datum "
List1. AddItem " Dag /Månad "
List1. AddItem " Månad /År "
List1. AddItem " Månad datum, år ( veckodag ) "
List1 . AddItem " Förkortad datum plus Dag , Vecka och kvartal "
End Sub
4
Skriv följande kodrader lägre än i Steg 3 : .

Private Sub List1_Click ( )
Select Case List1. ListIndex
Case " 0 "
Label2. Caption=Format (Now , " dddd , mmmm dd , yyyy " )
Case "1 "
Label2. Caption=Format (Now , " m /d /yy " )
Case "2 "
Label2. Caption=Format (Now , "D- MMMM " )
Case "3 "
Label2. Caption=Format (Now , " mmmm-yy " )
Case " 4 "
Label2. Caption=Format (Now , " mmm dd , åååå ( dddd ) " )
mål "5 "
Label2 . Caption=Format (Now , "mm /dd /åå ( \ d \ a \ y=y \ w \ e \ e \ k=ww \ q \ u \ a \ r \ t \ e \ r=q) )
End Markera
End Sub
5 .
Tryck " F5 " för att köra programmet . Om det inte finns några problem kan du klicka på " Fil " och sedan " Gör Konvertera Date. exe " för att skapa en körbar version . Om något inte visas korrekt och tryck "F8 " för att gå igenom raderna av kod och isolera där ett stavfel får ha införts till rader kod . Genom att undersöka det format instruktionerna i steg 4 att ni förstår hur datum omvandlingar hanteras i Visual Basic .


tips och varningar




Genom att lägga tid format som anges i den andra referensen kan du lägga tid formateringsalternativ till din kod .

Suppleant en " InputBox "för " Label1 "för att tillåta användaren att välja ett visst datum för att formatera .

Användningen av citationstecken och datum förkortningar typ i steg 4 är kritiska . Varje litet misstag kommer att kasta av resultaten .

Previous：nothing Next：Hur konvertera Fortran till Visual Basic

Relaterade artiklar