Datum in NL genereren VB

Pagina: 1
Acties:

  • Jaapiooo
  • Registratie: September 2003
  • Laatst online: 01-01-2023
Ik heb een form gemaakt die gebruikers in word opslaan als een html bestand, daarin zit een datum in verwerkt. De ingevoerde items in het form, worden met een bookmark in het doc bestand gezet. Vervolgens kan de gebruiker op een extra knop drukken om het als html bestand in Microsoft sharepoint op te slaan. Mijn vraag is echter, hoe kan ik deze datum converteren naar een nl datum zodat ik een goede datum (6 januari 2005) in het document krijg.
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Userform_Initialize()
    
    With Me.CbGemelddoor
        .AddItem "gebruiker1"
        .AddItem "gebruiker2"
        .AddItem "gebruiker3"
        .AddItem "gebruiker4"
    End With
    
        With Me.Cbgebouwnummer
        .AddItem "BV1"
    End With
    
End Sub

Private Sub CmdCancel_Click()

    Unload Me

End Sub



Private Sub CmdOk_Click()

    ActiveDocument.Bookmarks("bmDatum").Select
    Selection.TypeText Me.CbDatum
    
    
    ActiveDocument.Bookmarks("bmGebouwnummer").Select
    Selection.TypeText Me.Cbgebouwnummer
    
    
    ActiveDocument.Bookmarks("bmProces").Select
    Selection.TypeText Me.TxtProces
    
    
    ActiveDocument.Bookmarks("bmGemelddoor").Select
    Selection.TypeText Me.CbGemelddoor
    
    ActiveDocument.Bookmarks("bmOmschrijving").Select
    Selection.TypeText Me.TxtOmschrijving
    
    ActiveDocument.Bookmarks("bmOplossing").Select
    Selection.TypeText Me.TxtOplossing
    
    Unload Me

End Sub

  • Creepy
  • Registratie: Juni 2001
  • Nu online

Creepy

Tactical Espionage Splatterer

Hier zit niks voor je tussen?

Lees: Wat heb je zelf al geprobeerd? Wat lukt daar niet mee? Google stuk?

"I had a problem, I solved it with regular expressions. Now I have two problems". That's shows a lack of appreciation for regular expressions: "I know have _star_ problems" --Kevlin Henney


  • RobIII
  • Registratie: December 2001
  • Niet online

RobIII

Admin Devschuur®

^ Romeinse Ⅲ ja!

(overleden)
code:
1
Format(myDate,"d mmmm yyyy")
:?

MyDate is dus een variabele, mocht je dat gemist hebben...
Gebruik
code:
1
Format(Date,"d mmmm yyyy")

als je de huidige datum wilt gebruiken, en deze:
code:
1
Format(Now,"d mmmm yyyy hh:nn:ss")


mag je zelf verklaren ;)

[ Voor 106% gewijzigd door RobIII op 06-01-2005 14:56 ]

There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.

Je eigen tweaker.me redirect

Over mij