🚀 go-pugleaf

kunde gewoon niet werken met

dim mDatum as Date ?

--

I have to go back in time to pretend to be myself when I tell myself to tell
myself, because I don't remember having been told by myself to tell myself.
I love temporal mechanics.

Look @ my engine : http://users.pandora.be/whizzo/engine/
www.deeplove.be  : the chat & meet - community
"Sven Daems" <cyberbike9@NOSPAMhotmail.com> wrote in message
news:3e595c6a$0$81492$ba620e4c@news.skynet.be...
: Hoi
:
: Ik moet in excell ervoor zorgen dat als de gebruiker op een knop drukt
: hij verschillende inputboxen krijgt waar hij allerlei informatie moet
: invullen. Dit 'programmatje' wordt dan met verschillende klanten
: meegegeven zodat die het op hun eigen computer kunnen invullen. In een
: van die inputboxen moet de gebruiker een datum in geven en ergens
: anders op het document wordt de huidige datum ingevuld. Hoe kan ik er
: nu voor zorgen dat die datum op elke computer in het engels wordt
: ingegeven en niet bij de een in het engels, de andere in het chinees
: enz.. Ik had al een stukje code geschreven:
:
: Dim Dag As String
: Dim DagMaand As String
: Dim MaandNummer As String
: Dim Maand As String
: Dim Jaar As String
: Dim Datum As String
:
: Private Sub CommandButton1_Click()
: Dag = Left(Date, 2)
: DagMaand = Left(Date, 5)
: MaandNummer = Right(DagMaand, 2)
: If MaandNummer = "01" Then
:     Maand = "january"
: Else
:     If MaandNummer = "02" Then
:         Maand = "february"
:     Else
:         If MaandNummer = "03" Then
:             Maand = "march"
:         Else
:             If MaandNummer = "04" Then
:                 Maand = "april"
:             Else
:                 If MaandNummer = "05" Then
:                     Maand = "may"
:                 Else
:                     If MaandNummer = "06" Then
:                         Maand = "june"
:                     Else
:                         If MaandNummer = "07" Then
:                             Maand = "july"
:                         Else
:                             If MaandNummer = "08" Then
:                                 Maand = "august"
:                             Else
:                                 If MaandNummer = "09" Then
:                                     Maand = "september"
:                                 Else
:                                     If MaandNummer = "10" Then
:                                         Maand = "october"
:                                     Else
:                                         If MaandNummer = "11" Then
:                                             Maand = "november"
:                                         Else
:                                             Maand = "december"
:                                         End If
:                                     End If
:                                 End If
:                             End If
:                         End If
:                     End If
:                 End If
:             End If
:         End If
:     End If
: End If
: Jaar = Right(Date, 4)
: Datum = Dag & " " & Maand & " " & Jaar
: Range("a1").Value = Datum
: End Sub
:
: Maar in cel A1 zet de computer dan 22/feb/02.  De voor mij ideale
: oplossing zou dus zijn 22 february 2003
:
: Iemand een idee?
:
: dank bij voorbaat
:
: Sven Daems
:
: