Ændring af stort bogstav i fuld dato

Tags:    visual-basic

User
Bruger #745 @ 10.01.02 13:42
Jeg har et problem, som snart gør mig hårløs....jeg har et datofelt, hvor datoen kommer som følgende; 10. januar 2002....Jeg vil gerne have kodet, at den altid skal sætte det først bogstav i måneden med stort, men jeg kan ikke hitte ud af det.

Nogle der liiiige har KODEN.

Mvh. Helene Christiansen



5 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
<quote>Dette skulle kunne løse dir problem Helene:

Dim a, b, c
a = DinDatoStreng
b = InStr(1, a, " ")
c = Left(a, b) & UCase(Mid(a, b + 1, 1)) & Right(a, Len(a) - b - 1)

c er nu den rigtige streng med Måned med stort
</quote>

jeg kunne ikke få det til at virke men jeg kunne få dette til at virker:

Dim xZ As String
xZ = Format(Date, "dd/mmmm/yyyy")
Mid$(xZ, 4, 1) = UCase(Mid$(xZ, 4, 1))

Label1.Caption = xZ


hvor 4 er pladsen hvor det første bogstav af måned står!


håber du kan bruge det!


mvh.
Thomas Christensen
:D





User
Bruger #746 @ 10.01.02 15:05
Dette skulle kunne løse dir problem Helene:

Dim a, b, c
a = DinDatoStreng
b = InStr(1, a, " ")
c = Left(a, b) & UCase(Mid(a, b + 1, 1)) & Right(a, Len(a) - b - 1)

c er nu den rigtige streng med Måned med stort




User
Bruger #745 @ 10.01.02 16:19
<quote>Dette skulle kunne løse dir problem Helene:

Dim a, b, c
a = DinDatoStreng
b = InStr(1, a, " ")
c = Left(a, b) & UCase(Mid(a, b + 1, 1)) & Right(a, Len(a) - b - 1)

c er nu den rigtige streng med Måned med stort
</quote>



Hej igen,

Hvor ville du putte det ind, når nu min kode ser sådan ud :

ActiveDocument.Bookmarks("dato").Select
If chkDagsDato.Value = True Then
Selection.InsertDateTime DateTimeFormat:="d. MMMM yyyy", InsertAsField:=True
End If
If chkLaasDagsDato.Value = True Then
ActiveDocument.Bookmarks("dato").Select
With Selection
.EndKey Unit:=wdLine, Extend:=wdExtend
.Fields.Locked = True
End With
Else
Selection.InsertAfter Text:=txtDato.Text
End If



User
Bruger #745 @ 10.01.02 16:20
<quote>Dette skulle kunne løse dir problem Helene:

Dim a, b, c
a = DinDatoStreng
b = InStr(1, a, " ")
c = Left(a, b) & UCase(Mid(a, b + 1, 1)) & Right(a, Len(a) - b - 1)

c er nu den rigtige streng med Måned med stort
</quote>



Hej igen,

Hvor ville du putte det ind, når nu min kode ser sådan ud :

ActiveDocument.Bookmarks("dato").Select
If chkDagsDato.Value = True Then
Selection.InsertDateTime DateTimeFormat:="d. MMMM yyyy", InsertAsField:=True
End If
If chkLaasDagsDato.Value = True Then
ActiveDocument.Bookmarks("dato").Select
With Selection
.EndKey Unit:=wdLine, Extend:=wdExtend
.Fields.Locked = True
End With
Else
Selection.InsertAfter Text:=txtDato.Text
End If



User
Bruger #745 @ 10.01.02 17:20
<quote>Dette skulle kunne løse dir problem Helene:

Dim a, b, c
a = DinDatoStreng
b = InStr(1, a, " ")
c = Left(a, b) & UCase(Mid(a, b + 1, 1)) & Right(a, Len(a) - b - 1)

c er nu den rigtige streng med Måned med stort


jeg kunne ikke få det til at virke men jeg kunne få dette til at virker:

Dim xZ As String
xZ = Format(Date, "dd/mmmm/yyyy")
Mid$(xZ, 4, 1) = UCase(Mid$(xZ, 4, 1))

Label1.Caption = xZ


hvor 4 er pladsen hvor det første bogstav af måned står!


håber du kan bruge det!


mvh.
Thomas Christensen
:D

</quote>


Hej Thomas,

Du er en KNAG.....jeg har bare måtte fjerne den sætning der hvor der stod label1.caption = xZ.... OG DET VIRKER.....

Tak.

Mvh. Helene



t