Datum in amerikaanse notatie terwijl europees ingegeven.

[damatoca]

De optie van spaarie wel, die van octafish nog niet,
ben hier wel mee bezig om de variabelen mee geven echter dit lukt me nog niet.
Weet ook nog niet hoe ik kan terug converteren

 

[damatoca]

de oplossing van Octafish werkt voor een gedeelte. na een 2de keer proberen geeft hij de datum ook weer in Amerikaanse notatie.

 

[spaarie]

De optie van spaarie wel, ....

Wat is dan nu nog het probleem???

 

[damatoca]

Het probleem is dat de gegevens op de data sheet goed staan, maar op het blad invulformulier nog steeds de verkeerde notatie staat.
Ben er verder nog mee aan het stoeien

 

[damatoca]

Probleem opgelost met de methode van Octafish.

 

[damatoca]

Klein probleempje nog,
Hoe kan ik de foutmelding (13) wegkrijgen typen komen niet met elkaar overeen ?
Deze foutmelding komt naar voren als er geen datum wordt ingevuld.

 

[spaarie]

Zoiets (uit me hoofdje)

If Not IsDate(Textbox1) Then
   Exit Sub
End If

 

[damatoca]

Dit werkt niet,
hij loopt vast op de eerste regel van de code

dtDatum = CDate(Me.Geldigtot1.Value)
iDatum = CDbl(dtDatum)
ws.Cells(iRow, 4).Value = CDate(iDatum)

 

[spaarie]

If Not IsDate(Textbox1) Then 
   If Textbox1 = "" Then
      Exit Sub
   End If
End If

 

[ReneDirks]

Beste Niels,
Zie pdf file
Ik weet nl niet wat ik hier aan kan veranderen
Edwin

Toevallig Engelstalige versie van Excel? Ik heb 'n klant met een kantoor in Canada en Duitsland en daar hebben we ook altijd van dit soort fijne issues - ongeacht de Regional Settings

 

[pixcel]

Vraag 1: welke voorbeelden van invoer in je textbox vind je geoorloofd?
Vraag 2: wat moet je programma van die invoer maken in een werkblad cel?
Vraag 3: doet de gekozen oplossing precies wat jij wilt?

"11-11-2013"
"13-11-2013"
"11-13-2013"
"2013-11-11"
"2013-11-13"
"2013-13-11"
"11-11-13"
"13-11-13"
"11-13-13"
"11/11/13"
"13/11/13"
"11/13/13"
"11-11/13"
"13-11/13"
"11-13/13"
"11.11.13"
"13.11.13"
"11.13.13"
"13-13-13"

Het invoeren van een datum in een userform mbv een tetxtbox is niet simpel, zeker niet in internationale context. Je maakt het jezelf èn je gebruikers een stuk eenvoudiger door een minder vrije invoervorm te kiezen. Bijv mbv drie afzonderlijke textboxes voor dag, maand en jaar.

 

[damatoca]

Beste Pixcel, Frans,

De datum wordt goed ingegeven en wordt goed weggezet in de cel. Echter als er geen datum wordt ingegeven komt er een foutmelding naar voren.

dtDatum = CDate(Me.Geldigtot1.Value) Hier komt de foutmelding als er geen datum wordt ingegeven.
iDatum = CDbl(dtDatum)
ws.Cells(iRow, 4).Value = CDate(iDatum)

Eerst even naar de code kijken voor een eventuele oplossing. Er wordt nl niet met een sub en end sub gewerkt

 

[snb]

Sub M_snb()
  if isdate(Geldigtot1.Value) then Cells(iRow, 4).Value = CDate(Geldigtot1.Value)
end sub

 

[pixcel]

De datum wordt goed ingegeven en wordt goed weggezet in de cel.

Ok, jij bepaalt als ontwikkelaar wat juist is, zie vraag 1.

Mijn probleem met de functies CDate en Isdate is altijd dat ze geen verschil zien tussen "13-11-2013" en "11-13-2013".
Debug.Print CDate("13-11-2013"), IsDate("13-11-2013")
Debug.Print CDate("11-13-2013"), IsDate("11-13-2013")