🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: be.comp.programming
5 messages
5 total messages Started by Sven Daems Sun, 23 Feb 2003 23:42
Juiste taal van de datum in excel
#5882
Author: Sven Daems
Date: Sun, 23 Feb 2003 23:42
81 lines
3719 bytes
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
Re: Juiste taal van de datum in excel
#5881
Author: Oelewapperke
Date: Mon, 24 Feb 2003 00:23
24 lines
2125 bytes
Sven Daems wrote:

> 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:

Datums worden in vrijwel elke taal opgeslagen als een aantal seconden
relatief tov een bepaalde dag, en achteraf vertaald in de taal van de
gebruiker. 

Dit is zeker mogelijk.

-- 
Krijg nu spontaan een bluescreen

Oelewapperke
Re: Juiste taal van de datum in excel
#5883
Author: Sven Daems
Date: Mon, 24 Feb 2003 07:47
13 lines
1180 bytes
> Datums worden in vrijwel elke taal opgeslagen als een aantal seconden
> relatief tov een bepaalde dag, en achteraf vertaald in de taal van de
> gebruiker. 
> 
> Dit is zeker mogelijk.

Ok�, dit is misschien wel mogelijk (dacht ik ook al) maar HOE?

Toch al bedankt

mvg

Sven Daems
Re: Juiste taal van de datum in excel
#5892
Author: BlubBlub
Date: Tue, 25 Feb 2003 10:09
42 lines
2580 bytes
Sven Daems wrote:
> 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:
> 
[snip code]
> 
> 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?

Ik dacht dat excell de taal overneemt uit de windows-instellingen.

Dus bij u kan deze perfect in het Frans staan en iemand anders die de 
file opent krijgt de datums in het Nederlands te zien.

Wat je wel moet doen is bij de celeigenschappen instellen dat de 
datumnotatie moet gebruikt worden.

> 
> dank bij voorbaat

yw

> 
> Sven Daems
> 
> 
Groetjes,

Yuri -BlubBlub- Teirlynck
-- 
The light at the end of a tunnel is an incomming train.
Re: Juiste taal van de datum in excel
#5894
Author: Slaets F
Date: Tue, 25 Feb 2003 16:33
97 lines
4491 bytes
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
:
:
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads