Hoe een datum naar een maand en jaar te converteren

Bij het ontwerpen van zakelijke computersoftware vereisen sommige toepassingen slechts de maand en het jaar vanaf een datum en negeren ze de dag. Als u bijvoorbeeld de weekdag wilt berekenen waarop de eerste dag van de maand valt, heeft de software de maand en het jaar nodig. Omdat dit een algemene behoefte is, bevatten moderne zakelijke programmeertalen van oudsher functies om de maand en het jaar uit een bepaalde datum te halen. Wanneer software een datum vertegenwoordigt als een reeks tekens, zoals "07/01/2009", hebt u geen speciale datumfuncties nodig; in plaats daarvan gebruikt u algemene functies om subsets van deze tekens te vinden.

Microsoft Visual Basic - datumgegevens

1.

Definieer een variabele als datumgegevenstype, zoals weergegeven in de volgende Visual Basic-code:

Dim Input_Date As Date

2.

Definieer twee gehele variabelen om de maand en het jaar vast te houden, en wel als volgt:

Dim Date_Month As Integer, Date_Year As Integer

3.

Wijs een datumwaarde toe aan de variabele die u zojuist hebt gedefinieerd, inclusief het symbool voor het vlagteken, "#." Dit teken onderscheidt datums van cijfer- en karaktergegevens:

Input_Date = # 07/01/2009 #

4.

Gebruik de functies "Maand ()" en "Jaar ()" om de maand en het jaar uit de datumvariabele te extraheren, zoals de volgende code illustreert:

Date_Month = Month (Input_Date) Date_Year = Year (Input_Date)

Microsoft Visual Basic - Karaktergegevens

1.

Definieer drie tekenreeksvariabelen met behulp van de volgende verklaring als richtlijn:

Dim Date_String As String, Date_Month As String, Date_Year As String

2.

Wijs de eerste variabele toe met een datumwaarde, zoals in de volgende Visual Basic-code:

Date_String = "07/01/2009"

3.

Extraheer de maand van de meest linkse twee tekens van de datum. Wanneer Visual Basic deze instructie uitvoert, bevat "Date_Month" twee tekens, "07."

Date_Month = Left (Date_String, 2)

4.

Pak het jaar uit de vier uiterst rechtse tekens met behulp van de tekenreeks "Rechts ()". Na uitvoering bevat "Date_Year" de tekens "2009", zoals geïllustreerd:

Date_Year = Rechts (Date_String, 4)

COBOL - Karaktergegevens

1.

Definieer een variabele in de sectie Werkopslag van de gegevensdeling en definieer deze opnieuw als afzonderlijke subonderdelen, zoals de volgende COBOL-code illustreert:

01 INGANGSDATUM. 05 COMPLETE DATUM PIC X (10). 05 DATUM-ONDERDELEN HERINDIGEN COMPLETE DATUM. 10 MONTH-PART PIC X (2). 10 FILLER PIC X (4). 10 JAARGANG PIC X (4).

2.

Definieer variabelen om als bestemming voor de maand en het jaar te dienen:

01 OUTPUT-DATE. 05 UITGANG-MAAND PIC X (2). 05 UITVOERJAAR PIC X (4).

3.

Verplaats de datum naar de variabele 01-niveau in de divisie Procedure van het programma, met behulp van de volgende COBOL-code als richtlijn:

MOVE '07 / 01/2009 'OP INGANGSDATUM.

4.

Verplaats de maand en het jaar naar de uitvoervariabelen van de herdefiniërende subvariabelen:

VERPLAATS MONTH-PART NAAR OUTPUT-MAAND. VERPLAATS JAARLIJKS JAAR UITVOERING-JAAR.

 

Laat Een Reactie Achter