Punt, komma en datum.

[Woffels]

Goedendag allen,

Ik heb een probleempje.

Ik heb een excelsheet met VBA code gemaakt die in verschillende landen gebruikt wordt.

Hier loop ik tegen twee problemen aan:

- Datum/tijd. De datum tijd notatie kan verschillend zijn. Bestaat er een mogelijkheid dat mijn sheet zich automatisch aanpast aan de in Windows geldende settings qua datum en tijd. Ik gebruik namelijk de datum en tijd voor het genereren van een uniek certificaat nummer. Dit loopt helemaal mis als de sheet in China gebruikt wordt.
- Punt en komma. Eigenlijk hetzelfde verhaal. De sheet is opgesteld met de komma zoals 9,35, maar in China en bv Amerika wordt de punt gebruikt. Is het mogelijk om met één en dezelfde sheet toch op alle continenten te kunnen werken? Het gaat ook om de toets die onder de 3 op het numerieke toetsenbord zit, in China wordt dat een punt en bij ons een komma. Ik wil er naar streven dat het numeriek toetsenbord overal gebruikt kan blijven worden.

 

[Ginger]

Ga 'ns wat stoeien met de regional settings (Application.International Property) in VBA https://msdn.microsoft.com/en-us/library/bb177675(v=office.12).aspx
Dan kom je er vast wel uit gok ik.

 

[Woffels]

De tip van Ginger werkt perfect. Door de instructie zoals Year(Now) te gebruiken, ben je niet afhankelijk van de regionale settings van zowel Windows als Excel.

Private Sub R_CommandButton_CreateSerial_Click()
Range("R_Year").Value = Year(Now)
Range("R_Month").Value = Month(Now)
Range("R_Day").Value = Day(Now)
Range("R_Hour").Value = Hour(Now)
Range("R_Minute").Value = Minute(Now)
Range("R_Seconds").Value = Second(Now)
End Sub