Visual Basic 6.0 indeholder en række formateringsindstillinger , der tillader brugeren at vise og udskrive datoer i forskellige måder. Ved at bruge et par enkle Visual Basic kontrol og betingede sætninger , kan du oprette en lille program, der vil illustrere disse metoder. Denne aktuelle eksempel starter med dags dato og viser forskellige formater til samme dato. Brug formatering retninger for at indsætte de ønskede måder at vise en dato inden for ethvert program, du skriver . Instruktioner
1

Opret en ny Visual Basic ( VB) projekt ved hjælp af " Standard EXE " skabelon til rådighed, når du klikker på "File" og derefter " Nyt projekt " i VB. Klik på " File" og derefter " Save Project As. " Gem formularen som " ConvertDate ", og projektet som "Konverter Date" .
2

Dobbeltklik på " ListBox " kontrol i værktøjskassen på venstre side af skærmen for at føje det til formularen. I " Egenskaber" listen til højre på skærmen , skal du indstille formularen " Højde " ejendom til 2600 og " Width " til 4500 . Træk " ListBox " til venstre side af skemaet og sæt " Højde " og " Bredde " egenskaber til 1425 og 4725 . Tilføj tre " Labels " til formularen ved at dobbeltklikke på den store bogstav "A" i værktøjskassen tre gange. Arranger etiketterne , så " Label3 " er den øverste punkt på formularen. Put " Label1 " og " Label2 " i en række under den ListBox . Sæt " Højde " og " Bredde " ejendom " Label1 " til 500 og 1800. Sæt " Højde " og " Bredde " under " Label2 " til 800 og 3250 . Fjern billedtekster om " Label1 " og " Label2 " i deres "Egenskaber " sektionen , så de er tomme.
3

Klik på " View" og derefter " Code" i det øverste niveau Visual Basic menu . Indtast følgende kode nøjagtigt som den vises .

Option ExplicitPrivate Sub Form_Load () Label3.Caption = " Fremhæv det format ønskede at vise det. " Label1.Caption = "I dag er " & Format (Now , "m /d /yyyy " ) Label2.Visible = TrueList1.AddItem " Full Date " List1.AddItem " Forkortet Date " List1.AddItem " Day /Month " List1.AddItem " Måned /År " List1.AddItem " Month dato, år (Dag i ugen ) " List1.AddItem " Forkortet Date plus Dag, Uge og Quarter of the Year " End Sub
4

skrive følgende linjer kode lavere end i Trin 3 : Hej < p> Private Sub List1_Click () Vælg Case List1.ListIndexCase "0" Label2.Caption = Format (Now , " dddd , mmmm dd, yyyy" ) Case "1" Label2.Caption = Format (Now , "m /d /åå " ) Case " 2 " Label2.Caption = Format (Now , " d- mmmm " ) Case " 3 " Label2.Caption = Format (Now , " mmmm - åå " ) Case " 4 " Label2.Caption = Format (Now , " mmm dd, yyyy ( dddd )" ) Case "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 SelectEnd Sub
5

Tryk på" F5 "for at køre programmet. Hvis der ikke er nogen problemer , kan du klikke på "File " og derefter "Make Konverter Date.exe " for at skabe en eksekverbar udgave . Hvis noget ikke vises korrekt, så tryk "F8" til at gå gennem linjer kode og isolere hvor en tastefejl kan have indtastet linjer kode. Ved at undersøge formatet instruktionerne i Trin 4 , vil du forstå, hvordan dato konverteringer håndteres i Visual Basic.