Springen naar inhoud


- - - - -
VS 2012

Werken Met Datums

Visual Basic 2012

  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 ludo64

ludo64

    Rookie Developer

  • Leden
  • Pip
  • 30 berichten
    Laatst bezocht 25 jul 2019 15:42
  • LocatieTongeren

Geplaatst op 29 april 2019 - 16:51

Hallo, ik ben een newbie en daarom doe ik zoveel mogelijk oefeningen.
Maar uit deze oefening geraak ik niet wijs uit, heb me al suf gezocht in Google.
Ik heb een vaste datum (1/20/2017) en een textbox waar ik een geboortedatum moet invullen.
Dan moet ik het verschil hebben (in jaren) om de leeftijd te kennen, en hier loopt het mis
Dit is mijn code tot nu toe:
Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click
    Dim dt As Date = #1/20/2017#
    Dim dateOfBirth As Date
    Dim age As Integer
    dateOfBirth = CDate(txtDateOfBirth.Text)
    age = CInt(DateDiff(DateInterval.Year, dt, dateOfBirth))
    End Sub
Bij de rode regel krijg ik de foutmelding:
De conversie van tekenreeks 12/20/1980 naar type Date is ongeldig.
Iemand een idee ?

#2 Supervos

Supervos

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1398 berichten
    Laatst bezocht 30 apr 2019 19:04

Geplaatst op 30 april 2019 - 07:26

Dag Ludo,

De functie CDate doet een conversie van de datum op basis van het formaat op je computer. Als je computer staat ingesteld op "dag/maand/jaar" zal je "20/12/1980" moeten ingeven.
Een andere mogelijkheid is dat je gebruik maakt van de DatePicker control. Hiermee krijg je een kalender waarmee je de datum kan selecteren en met de property "SelectedDate" (in plaats van "Text") krijg je al meteen een Date terug, geen CDate meer nodig.





Ook met taq VS 2012, Visual Basic 2012 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2012] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)