Visual Basic 6.0 innehåller ett antal formateringsalternativ som gör det möjligt för användaren att visa och skriva 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 . Denna aktuellt exempel börjar med dagens datum och visar olika format för samma dag . Använd formatering riktningar att infoga önskade sätt att visa ett datum inom alla program som du skriver . Instruktioner
1
Skapa ett nytt Visual Basic ( VB ) projekt med hjälp av " Standard EXE " mall tillgänglig när du klickar på " File " och sedan " Nytt projekt " i VB . Klicka på " File " och sedan " Spara projekt som. " Spara formuläret som " ConvertDate " och projektet som " Konvertera Date " .
2
Dubbelklicka på " ListBox " kontrollen i verktygslådan till vänster på skärmen för att lägga till den i formen . I " Egenskaper " listan till höger på skärmen , ställ in formen " Höjd " egendom till 2600 och " Width " till 4500 . Dra " ListBox " till vänster i formuläret och ange " Höjd " och "Bredd" egenskaper till 1425 och 4725 . Lägg tre " etiketter" till formuläret genom att dubbelklicka på den stora bokstaven " A " i verktygslådan tre gånger . Ordna etiketterna så att " LABEL3 " är det översta punkt i formuläret . Sätt " Label1 " och " Label2 " i en rad nedanför ListBox . Ställ in " Höjd " och " Bredd " egendom " Label1 " till 500 och 1800 . Ställ in " Höjd " och " Bredd " av " Label2 " till 800 och 3250 . Rensa bildtexter av " Label1 " och " Label2 " i deras " Egenskaper " sektionen så de är tomma .
3
Klicka på " Visa " och sedan " Code " i den översta nivån Visual Basic meny. Skriv följande kod exakt som den visas .
Option ExplicitPrivate Sub Form_Load ( ) Label3.Caption = " Markera formatet önskade att visa det . " Label1.Caption = "Idag är " & Format ( Nu , " m /d /åååå " ) Label2.Visible = TrueList1.AddItem " Full Date " List1.AddItem " Förkortad Date " List1.AddItem " Day /Month " List1.AddItem " Month /Year " List1.AddItem " Månad Datum , År ( Dag av veckan ) " List1.AddItem " Förkortad Date plus Dag , Vecka , och Quarter of the Year " End Sub
4
Skriv följande kodrader lägre än i Steg 3 :
Private Sub List1_Click ( ) Välj mål List1.ListIndexCase " 0 " Label2.Caption = Format ( nu , " dddd , mmmm dd, åååå " ) Case " 1 " Label2.Caption = Format ( nu , " m /d /yy " ) Case " 2 " Label2.Caption = Format ( nu , " d - mmmm " ) Case " 3 " Label2.Caption = Format ( nu , " mmmm - yy " ) Case " 4 " Label2.Caption = Format ( nu , " mmm dd, åååå ( dddd ) " ) Case " 5 " Label2.Caption = Format ( nu , " mm /dd /åå ( \\ d \\ a \\ y = y \\ w \\ e \\ e \\ k = ww \\ q \\ u \\ a \\ r \\ t \\ e \\ r = q ) " ) End SelectEnd Sub
5
Tryck " F5 " för att köra programmet . Om det inte finns några problem , kan du klicka på " File " och sedan " Gör Konvertera Date.exe " för att skapa en körbar version . Om något inte visas korrekt , tryck på " F8 " för att stega igenom kodrader och isolera där ett stavfel kanske har skrivit in kodrader . Genom att undersöka de format instruktionerna i steg 4 kommer du att förstå hur datum omvandlingar hanteras i Visual Basic .
