Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Solid Edge
  Konvertierung in VB

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SolidEdge
Autor Thema:  Konvertierung in VB (416 mal gelesen)
amg13
Mitglied



Sehen Sie sich das Profil von amg13 an!   Senden Sie eine Private Message an amg13  Schreiben Sie einen Gästebucheintrag für amg13

Beiträge: 942
Registriert: 20.12.2002

Aktuell:
FSC R550 2x Xeon X5450 QuadCore
8GB RAM
Nvidia FX4800
Dell Precision M6300
Solid Edge ST3
NX 7.5
Solid Works 2010
Pro/E
Das war einmal:
HP Workstation
>80x SolidEdge V19 (Classic & Foundation)
14x SMAP3D Piping/Partfinder

erstellt am: 25. Jul. 2008 13:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi,

is steh nun mal wieder im Wald.

ich versuch in VB einen String in ein Datum zu Konvertieren.
Aber VB will net so wie ich will.

Ich habe die Strings "7/1/2008" und "7/16/2008".
Beide will ich in Date umwandeln.


Private Sub Form_Load()
Dim a1 As String
Dim a2 As String

a1 = "7/1/2008"
a2 = "7/16/2008"
MsgBox (CDate(a1) & "  " & CDate(a2))

End Sub

VB spukt mir als Ergebnis aus "07.01.2008 16.07.2008".
Das kann doch net sein. Es sollte lauten 01.07.2008 und 16.07.2008

MfG
AMG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

VBSpawn
Mitglied
Programmierer


Sehen Sie sich das Profil von VBSpawn an!   Senden Sie eine Private Message an VBSpawn  Schreiben Sie einen Gästebucheintrag für VBSpawn

Beiträge: 514
Registriert: 23.08.2005

Sorgfältige Planung ersetzt niemals pures Glück.<P>S.W.X 2005/2006/2007
S.E 14-17
A.I.P 9-11
Win.XP + SP2

erstellt am: 25. Jul. 2008 15:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für amg13 10 Unities + Antwort hilfreich

Hi,

und Willkommen in der wunderbaren Welt des Datums.

Du kannst es nicht definitiv Lösen, jedenfalls nicht wenn deine Systemeinstellungen von deinen Eingabe Daten sich Unterscheiden.

In deinem Fall hast du ein US-Datum das du in das "Deutsche" Datum konvertieren willst... wobei die CDate Funktion dabei die im Systemeingestellte Region ermittelt -  und anhand deren Datumsformat dir einen Datumsstring formatiert. -> einen 1.16 gibt es nicht also musst du den 16.1 meinen. Den 7.1. gibt es also bekommst du den als Ergebniss...


Code:

Sub Test()
    Dim a1 As String
    Dim a2 As String
        a1 = "7/1/2008"
        a2 = "1/16/2008"
   
    Dim a1Date As Date
    Dim a2Date As Date
        a1Date = CDate(Format(a1, "MM.dd.YYYY"))
        a2Date = CDate(Format(a2, "MM.dd.YYYY"))
       
    MsgBox (CDate(a1Date) & "  " & CDate(a2Date))

End Sub


------------------
Stell dir vor, es geht, und keiner kriegts hin.

  

Zitat:
Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

amg13
Mitglied



Sehen Sie sich das Profil von amg13 an!   Senden Sie eine Private Message an amg13  Schreiben Sie einen Gästebucheintrag für amg13

Beiträge: 942
Registriert: 20.12.2002

Aktuell:
FSC R550 2x Xeon X5450 QuadCore
8GB RAM
Nvidia FX4800
Dell Precision M6300
Solid Edge ST3
NX 7.5
Solid Works 2010
Pro/E
Das war einmal:
HP Workstation
>80x SolidEdge V19 (Classic & Foundation)
14x SMAP3D Piping/Partfinder

erstellt am: 25. Jul. 2008 15:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz