• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Datum in amerikaanse notatie terwijl europees ingegeven.

Status
Niet open voor verdere reacties.
D

damatoca

Gebruiker
Lid geworden
15 feb 2013
Berichten
21
Hallo,

Ben een leerling mbt VBA in Excel.
Ik heb een probleem waar ik al even mee bezig ben geweest maar niet opgelost krijg.
Diversen codes gebruikt om de in de textboxen gemaakte ingegeven datum dd mm jjjj juist in de cel te krijgen.
Echter de amerikaanse notatie verschijnt in de cel.
De landsinstellingen staan op europa ingesteld. de kolommen als standaard in excel.
Ook al geprobeerd om de kolommen als datum in te stellen, echter niet het juiste resultaat.
Wie kan mij helpen om de in vba europese datum in de cel te krijgen ?


Bekijk bijlage code.txt
 
Code: 
ws.Cells(iRow, 4).Value =Cdate(Geldigtot1.Value)



Niels
 
Niels28 zei:
Code: 
ws.Cells(iRow, 4).Value =Cdate(Geldigtot1.Value)



Niels
Klik om te vergroten...

Beste Niels,

Zo ver ben ik ook weer niet,
Ik heb de CDate op meerdere manieren geprobeerd, zag echter dat ik nog een foutje had staan in de code
onder de ws.Cells(iRow, 4).Value = (Geldigtot1.Value).
Het stukje
Private Sub plaats(x)
Range("D2").Value = DateSerial(Year(Kalender.Tag), Month(Kalender.Tag), Me("Label" & x).Caption)
Hide
End Sub
hoort er niet in thuis.
Kan je iets aan uitleg geven ?

Bedankt alvast
 
Niels28 zei:
Sorry begrijp niet wat je wilt.


Niels
Klik om te vergroten...

Als ik in het frmParts dus het formulier in de tekstbox de datum intyp 01-02-2013 dan geeft hij in de cel 02-01-2013 weer.

Dit geldt overal waar een datum moet worden ingevuld.
in de code is dat
iRow, 4
iRow, 6
iRow, 8
iRow, 10.

hij draait de dag en maand om.

Alvast bedankt
 
Daar heb ik je ook een oplossing voor gegeven, maar ik snap je reactie niet.

gelieve niet te quoten.

Niels
 
Hierbij een aantal verschillende oplossingen:

Code: 
Sub test()
Range("A1").Value = CDate(Date)
Range("A2").Value = Format(Date, "DD-MM-YYYY") 'gaat bij mij fout
Range("A3").Value = Format(Date, "MM-DD-YYYY") 'gaat bij mij goed
Range("A4").Value = DateValue(Date)
End Sub


Niels
 
Beste Hans,

Excusses voor het quoten.

Hoe plaats ik dit in het stukje code bij

ws.Cells(iRow, 4).Value = Me.Geldigtot1.Value

ws.Cells(iRow, 6).Value = Me.gekeurdtot2.Value

ws.Cells(iRow, 8).Value = Me.geldigtot3.Value

ws.Cells(iRow, 10).Value = Me.geldigtot4.Value

Dit zijn de cellen die de ingegeven datum moeten opslaan in de juiste europese notatie dd-mm-yyyy

Edwin
 
zie post #2

of een van de andere varianten uit mijn een na laatste post.

Code: 
ws.Cells(iRow, 4).Value =Cdate(Geldigtot1.Value)


Niels
 
Beste Niels,

Ook dan geeft hij de amerikaanse notatie weer, bij alle opties die je hebt aangegeven.
Dacht dat dit een simpel iets kon zijn maar is blijkbaar toch omslachtiger
 
het is ook simpel maar dan moet je wel je instellingen goed hebben staan.
Kijk bij de datuminstellingen van windows, deze staat dan op Amerikaans.

Niels
 
Het lijkt me trouwens sterk dat alle optie verkeerd om zijn, kijk ook eens bij de cel eigenschappen of het daar goed staat.

Niels
 
Code: 
= DateValue(Format(geldigtot1.Value, "dd-mm-yyyy"))
Werkt bij mij altijd vlekkeloos...
 
Laatst bewerkt:
Beste Niels,

Als ik de datum 01-02-2013 ingeef dan zet hij deze weg als 02-01-2013.
Op het forum diversen malen het probleem tegengekomen dat hij inderdaad de dag en de maand omdraait
Ik weet het niet hoor maar bij mij loopt het niet goed ondanks de juiste instellingen

Edwin
 
Probeer deze variant anders eens:
Code: 
                        dtDatum = CDate(Me.geldigtot1.Value)
                        iDatum = CDbl(dtDatum)
                        Cells(iRow, 4).Value = CDate(iDatum)
Wel twee variabelen declareren:
Code: 
Dim dtDatum As Date
Dim iDatum As Long
Door de gekozen datum eerst om te zetten naar een getal, kun je dat later probleemloos terug converteren naar een datum. Bij mij werkt dat in ieder geval perfect.
 
Heb je de opties van spaarie en octafish ook geprobeerd.

Niels
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan