Ako previesť formát dátumu

Visual Basic 6.0 obsahuje celý rad možností formátovania , ktoré umožňujú užívateľovi zobraziť a vytlačiť dáta v rôznych spôsoboch . Pomocou niekoľkých jednoduchých jazyka kontroly a podmienené príkazy , môžete vytvoriť malý program , ktorý bude ilustrovať tieto metódy . Tento prúd príklad začína dnešným dňom a zobrazuje rôzne formáty k rovnakému dátumu . Pomocou pokynov formátovanie vložiť požadované spôsoby , ako zobraziť dáta v každom programe , ktorý píšete . Pokyny dovolená 1

Vytvoriť nový Visual Basic ( VB ) projekt pomocou " Štandardné EXE " šablóny k dispozícii , keď kliknete na " Súbor " a potom " New Project " v VB . Kliknite na " Súbor " a potom " Uložiť projekt ako . " Uložte formulár ako " ConvertDate " a projekt ako " Previesť dáta " .
2

Dvakrát kliknite na ovládací prvok " listbox " v paneli na ľavej strane obrazovky a pridajte ju do formulára . Vo " Vlastnosti " zoznamu na pravej strane obrazovky , nastavte formulár " Výška " vlastnosť na 2600 a " Šírka " , 4500 . Pretiahnite " listbox " na ľavej strane formulára a nastavte " Výška " a " Šírka " vlastnosti , 1425 a 4725 . Pridať tri " štítky " na formulári dvojitým kliknutím na veľké písmeno " A " v paneli nástrojov trikrát . Usporiadať štítky tak , aby " Label3 " je najvyšší bod na formulári . Dajte " Label1 " a " Label2 " v riadku pod listbox . Nastavte " Výška " a " š " vlastnosť " Label1 " , 500 a 1800 . Nastavte " Výška " a " Šírka " z " Label2 " na 800 a 3250 . Zrušte titulky na " Label1 " a " Label2 " ich " Vlastnosti " sekcii , takže sú prázdne .
3

Kliknite na " Zobraziť " a potom " kód " na najvyššej úrovni Visual Basic ponuka . Zadajte nasledujúci kód presne tak , ako sa objavia .

Možnosť ExplicitPrivate Sub Form_Load ( ) Label3.Caption = " Zvýrazniť formát požadovaný na zobrazenie . " Label1.Caption = " Dnes je " & Format ( Now , " m /d /rrrr " ) Label2.Visible = TrueList1.AddItem " Full Date " List1.AddItem " Skrátený Dátum " List1.AddItem " deň /mesiac " List1.AddItem " mesiac /Rok " List1.AddItem " mesiac Deň , Rok ( deň týždňa ) , " List1.AddItem " Skrátený Dátum a deň , týždeň , a Quarter of the Year " End Sub
4

Zadajte nasledujúce riadky kódu pod tými v kroku 3 :

Private Sub List1_Click ( ) Select Case List1.ListIndexCase " 0 " Label2.Caption = Format ( Now , " dddd , mmmm dd , yyyy " ) Prípad " 1 " Label2.Caption = Format ( Now , " m /d /yy " ) Prípad " 2 " Label2.Caption = Format ( Now , " d - mmmm " ) Prípad " 3 " Label2.Caption = Format ( Now , " mmmm - rr " ) Prípad " 4 " Label2.Caption = Format ( Now , " mmm dd , yyyy ( dddd ) " ) Prípad " 5 " Label2.Caption = Format ( Now , " dd /mm /rr ( \\ d \\ \\ y = y \\ w \\ e \\ e \\ k = ww \\ q \\ u \\ \\ r \\ t \\ e \\ r = q ) " ) End Sub SelectEnd
5

Stlačte " F5 " pre spustenie programu . Ak nie sú žiadne problémy , môžete kliknúť na " Súbor " a potom " Make Previesť Date.exe " vytvoriť spustiteľný verzii . Ak sa niečo nezdá správne , potom stlačte tlačidlo " F8 " krokovať riadky kódu a izolovať , kde môže byť preklep vstúpil do riadkov kódu . Tým , že skúma pokyny o formáte v kroku 4 budete vedieť , ako sa dátum konverzie spracované v jazyku Visual Basic .

• Predchádzajúca strana: Ako vytlačiť dokument pomocou jazyka Visual Basic 6.0 
• Ďalšia strana: Ako previesť Fortran do jazyka