Visual Basic 6.0 inneholder en rekke formateringsalternativer som tillater brukeren å vise og skrive ut datoer på forskjellige måter. Ved hjelp av noen enkle Visual Basic -kontroller og betinget utsagn , kan du lage et lite program som vil illustrere disse metodene . Dette aktuelt eksempel starter med dagens dato og viser ulike formater for samme dato . Bruk formatering retninger for å sette inn ønskede måter å vise en dato innen hvilket som helst program du skriver. Instruksjoner
en

Opprett en ny Visual Basic ( VB ) prosjekt ved hjelp av " Standard EXE " mal tilgjengelig når du klikker på " File" og deretter " New Project" i VB. Klikk på " File" og deretter " Lagre prosjekt som . " Lagre skjemaet som " ConvertDate " og prosjektet som " Konverter Date" .
2

Dobbeltklikk på " Liste- " kontroll i verktøykassa til venstre på skjermen for å legge det til i skjemaet. I " Properties "-listen på høyre side av skjermen , sett formen " Høyde " egenskapen til 2600 og " bredde" til 4500 . Dra " Liste- " til venstre side av skjemaet og sette " Høyde " og " bredde" egenskapene til 1425 og 4725 . Legg tre " Etiketter " til skjemaet ved å dobbeltklikke på den store bokstaven " A" i verktøykassa tre ganger . Ordne etikettene slik at " Label3 " er den øverste punkt på skjemaet . Sett " Label1 " og " Label2 " på rad under Liste- . Sett " Høyde " og " bredde" eiendom " Label1 " til 500 og 1800 . Sett " Høyde " og " bredde" av " Label2 " til 800 og 3250 . Fjerne bildetekster på " Label1 " og " Label2 " i deres " Properties "-delen , slik at de er tomme .
3

Klikk på " Vis" og deretter " Code" i den øverste nivå Visual Basic menyen . Skriv inn følgende kode nøyaktig slik den vises .

Option ExplicitPrivate Sub Form_Load ( ) Label3.Caption = " Marker format ønsket å vise den. " Label1.Caption = "I dag er " & Format (Now , " m /d /åååå ") Label2.Visible = TrueList1.AddItem " Full Date " List1.AddItem " Forkortet Date " List1.AddItem " Day /Month " List1.AddItem " måned /år " List1.AddItem " Måned dato, år (Dag of the Week ) " List1.AddItem " Forkortet Dato pluss Day, Week, og Quarter of the Year " End Sub
4

Skriv inn følgende linjer med kode under de i Trinn 3 : en < p> Private Sub List1_Click ( ) Velg sak List1.ListIndexCase " 0 " Label2.Caption = Format (Now , " dddd , mmmm dd, åååå " ) veske " 1 " Label2.Caption = Format (Now , " m /d /åå ") veske" 2 " Label2.Caption = Format (Now , " d - mmmm ") veske" 3 " Label2.Caption = Format (Now , " mmmm - åå ") veske" 4 " Label2.Caption = Format (Now , " mmm dd, åååå ( dddd )" ) veske " 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

Trykk" F5 "for å kjøre programmet . Hvis det ikke er noen problemer , kan du klikke på "File " og deretter "Make Konverter Date.exe " for å lage en kjørbar versjon . Hvis noe ikke vises korrekt , og trykk "F8" til å gå gjennom linjene med kode og isolere der en skrivefeil kan ha kommet inn i linjer med kode. Ved å undersøke format instruksjonene i trinn 4 vil du forstå hvordan dato konverteringer blir håndtert i Visual Basic.