| U bevindt zich > Oude forum > Visual Basic 6.0 > Strings en text ... (VB 6.0) > datum naar amerikaans systeem |
| Gepost door filip gepost op 20/10/2004 om 07:18 |
| op welke wijze, met Cdate(?), kan ik de waarde "27/04/1961", die uit de microsoft calendar control8.0 komt, opslaan als "19610427" ? |
| Gepost door Dudeke gepost op 20/10/2004 om 10:31 |
hoy,
Je kan dit oplossen dmv de commando's left, right en middle.
http://www.vb-helper.com/howto_pad_string.html
Dim value As String
Dim pad_text As String
Dim length As Integer
value = txtString.Text
pad_text = txtPad.Text
length = CInt(txtLength.Text)
If optSide(0).value Then
' Pad on left.
txtResult.Text = Right$( _
String(length, pad_text) & value, length)
Else
' Pad on right.
txtResult.Text = Left$( _
value & String(length, pad_text), length)
End If
|
| Gepost door Ronneke gepost op 20/10/2004 om 12:17 |
Hallo filip
Uiteraard kan men dit met left, right en mid oplossen maar een kortere en eleganter methode is:
Code:
Dim strDatum As String
strDatum = Format(CDate("27/04/1961"), "yyyymmdd") |
In strDatum bevindt zich dan de waarde "19610427"
Greetz |
| Gepost door malloc gepost op 27/10/2004 om 06:04 |
Hey,
Geen CDate nodig voor dit.
In Ronneke's code vervang je
Code:
gewoon door
Code:
(Mycalendar is de naam van de calendar control)
|
