[VB6] DTPicker Datum Format

[EmilneM]

Met een DTPicker kies ik een datum waar vervolgens een SQL-query mee wordt uitgevoerd. Het lijkt er op dat het systeem de waarde van de DTPicker interpreteert als mm-dd-yyyy ipv dd-mm-yyyy. Hierdoor klopt geen enkele berekening. Wat kan ik hier aan doen?

Dit gebeurt trouwens niet bij een datum als 13-05-2003. Hier ziet het systeem dat er geen 13e maand is en interpreteert hij het netjes als 13 mei 2003. 01-06-2003 (1 juni 2003) wordt geinterpreteerd als 6 januari 2003.

[ Voor 31% gewijzigd door EmilneM op 01-06-2003 14:22 ]

[EmilneM]

Sorry dat ik zo snel kick.....maar het is een projectje dat ik voor morgen wil opleveren...

Heb het nog steeds niet aan de praat gekregen. Geprobeerd met Custom Format te werken maar nog steeds rekent hij met mm-dd-yyyy.

[RobIII]

Datum aan SQL meegeven in ISO formaat : yyyymmdd, werkt altijd en feilloos!

[EmilneM]

RobIII schreef op 01 June 2003 @ 18:23:
Datum aan SQL meegeven in ISO formaat : yyyymmdd, werkt altijd en feilloos!

Maar hoe zet ik de datumwaarde uit de DTPicker om zodat hij in dat formaat werkt? Hij moet het dus echt omzetten zodat het in de interface naar de gebruiker toe wel in dd-mm-yyyy staat.

[robjanssen]

Hoe de DateTimePicker de datum laat zien is afhankelijk van je Windows-instellingen.

Voordat je hem naar de SL-database post, kun je de datum formateren met:

code:

Format(DTPPicker.Value, "yyyy-mm-dd")

[EmilneM]

robjanssen schreef op 01 June 2003 @ 20:41:
Hoe de DateTimePicker de datum laat zien is afhankelijk van je Windows-instellingen.

Voordat je hem naar de SL-database post, kun je de datum formateren met:

code:

Format(DTPPicker.Value, "yyyy-mm-dd")

Kun je wat specifieker zijn?

Ik heb hier een stuk code. Datapickers zijn DTPicker1 en DTPicker2.....waar zet ik precies de datum om?

Visual Basic:

Private Sub Combo1_Click()
    Dim sHuidigeDatum As Date
    Dim sBegin As Date
    Dim sEind As Date
    Dim sPersonen As String
    Dim sSQL As String
    
    sHuidigeDatum = Format(Now, "dd-mm-yyyy")
    sBegin = DTPicker1.Value
    sEind = DTPicker2.Value
    sPersonen = Combo1.Text
    sSQL = "SELECT Kamernummer, Aantal_personen FROM Kamers WHERE 
Aantal_personen =" & sPersonen & " AND Kamernummer NOT IN 
(SELECT Kamernummer FROM Reserveringen WHERE #" & sBegin & "# BETWEEN
Begindatum AND Einddatum OR #" & sEind & "# BETWEEN Begindatum AND 
Einddatum OR (#" & sBegin & "# < Begindatum AND #" & sEind & "# > 
Einddatum))"
      
    If sEind > sBegin Then
        If sBegin >= sHuidigeDatum Then
            
            Adodc2.CommandType = adCmdText
            Adodc2.RecordSource = sSQL
            Adodc2.Refresh
        End If
    End If
End Sub

Om de lay-out niet te vernaggelen heb ik de SQL-statement een paar keer geënterd.

[curry684]

EmilneM schreef op 01 juni 2003 @ 21:05:
Kun je wat specifieker zijn?

Ik heb hier een stuk code. Datapickers zijn DTPicker1 en DTPicker2.....waar zet ik precies de datum om?

Eej het is hier de bedoeling dat we je helpen bij het zelfstandig vinden van oplossingen, niet dat we de code voor je schrijven. Aan de hand van Rob's opmerkingen moet je er nu echt wel ruimschoots uit kunnen komen, anders zou ik wellicht het hele concept programmeren maar opgeven als ik jou was.

[EmilneM]

curry684 schreef op 01 June 2003 @ 21:12:
[...]

Eej het is hier de bedoeling dat we je helpen bij het zelfstandig vinden van oplossingen, niet dat we de code voor je schrijven. Aan de hand van Rob's opmerkingen moet je er nu echt wel ruimschoots uit kunnen komen, anders zou ik wellicht het hele concept programmeren maar opgeven als ik jou was.

Mee eens, maar ik denk dat ik door de code laat zien dat ik er zeker mee bezig ben. Ken alleen 'Format(DTPicker1.Value, "yyyy-mm-dd")' niet, zodat ik ook niet weet waar ik deze moet plaatsen.

[Verwijderd]

Stukje code ergens anders vandaan....

datum1 en datum2 zijn DTPickers.

Zo snel mogelijk filteren en daarna pas sleutelen met de data.

Visual Basic:

  Dim myDatum1 as Date
  Dim myDatum2 as Date

  myDatum2 = DateSerial(Datum2.Year,Datum2.Month,Datum2.Day)

  frmData.datdatabank.RecordSource = _
  " SELECT datum,max(klantnummer) AS KLN," & _
  " SUM(verkoopprijs) AS VK" & _
  " FROM verkoop" & _
  " WHERE datum BETWEEN #" & cstr(Datum1.Month) & "/" & _
                             cstr(Datum1.Day) & "/" & _
                             cstr(Datum1.Year) & "#" & _
  " AND #" & Format$(myDatum2+1,"mm") & "/" & _
             Format$(myDatum2+1,"dd") & "/" & _
             Format$(myDatum2+1,"yyyy") & "#" & _
  " GROUP BY datum"

[whoami]

P&W is niet het forum waar men je bij het handje neemt om snel een oplossing te bereiken.
Zoals curry al zegt, is het de bedoeling dat je er zelf ook nog wat van opsteekt, en dat doe je niet als iemand alles voor jou gaat voorzeggen.
Met de tips die intussen gegeven zijn, moet je er ondertussen toch wel kunnen uitkomen.

Verder is het ook niet toegestaan dat je zo snel kickt. (Na 24u mag je dat doen, check de FAQ). Dat je projectje morgen moet afgeleverd worden is daar ook geen excuus voor.