Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.01.2015 14:29:57 |
Öle |
|
|
|
06.01.2015 14:46:16 |
Gast |
|
|
|
06.01.2015 14:53:05 |
Gast74497 |
|
|
offTopic |
06.01.2015 16:06:34 |
Gast50922 |
|
|
Von:
Gast50922 |
Datum:
06.01.2015 16:06:34 |
Views:
753 |
Rating:
|
Antwort:
|
Thema:
offTopic |
Option Explicit
Sub Test()
Dim m, vm
Dim z3 As String
z3 = "01.01.2015" 'Testfelder geben String zurück
m = Date - CDate(z3)
MsgBox "Der Wert von m " & Format(m, "#0") & Chr(13) & _
"Dazu Typ von m : " & GetVarType1(m)
End Sub
Private Function GetVarType1(vType As Variant) As String
Select Case VarType(vType)
Case 0
GetVarType1 = "vbEmpty"
Case 1
GetVarType1 = "vbNull"
Case 2
GetVarType1 = "vbInteger"
Case 3
GetVarType1 = "vbLong"
Case 4
GetVarType1 = "vbSingle"
Case 5
GetVarType1 = "vbDouble"
Case 6
GetVarType1 = "vbCurrency"
Case 7
GetVarType1 = "vbDate"
Case 8
GetVarType1 = "vbString"
Case 9
GetVarType1 = "vbObject"
Case 10
GetVarType1 = "vbError"
Case 11
GetVarType1 = "vbBoolean"
Case 12
GetVarType1 = "vbVariant"
Case 13
GetVarType1 = "vbDataObject"
Case 14
GetVarType1 = "vbDecimal"
Case 17
GetVarType1 = "vbByte"
Case Is >= 8192
GetVarType1 = "vbArray"
Case Else
GetVarType1 = vbNullString
End Select
End Function
Option Explicit
Dim InputDate As Date
Private Sub CommandButton1_Click()
Me.Label2.Caption = Format(Date - InputDate, "#0")
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
InputDate = CDate(Me.Label1.Caption)
On Error Resume Next
InputDate = CDate(Me.TextBox1.Value)
On Error GoTo 0
End Sub
Private Sub UserForm_Initialize()
Me.Label1.Caption = CStr(Date)
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.01.2015 14:29:57 |
Öle |
|
|
|
06.01.2015 14:46:16 |
Gast |
|
|
|
06.01.2015 14:53:05 |
Gast74497 |
|
|
offTopic |
06.01.2015 16:06:34 |
Gast50922 |
|
|