Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

mir platzt gleich der schädel
Autor: M_Weckner
Datum: 11.03.02 06:56
Moin Moin!! ich bin schon seit einer woche am folgenden Proggy: das steht im Hauptformular----> ---------------------------------------------------------------------------------------------------------------- Dim A As Integer Private Sub Form_Load() Dim GetUserName As String Dim UserName As String MsgBox "Tage bis der Benutzername """ & GetUserName() & """ nicht mehr funktioniert: " & _ CStr(DateDiff("d", Date, CDate(sDeinDatum))) End Sub Private Function Mod1() Call Mod1(GetUserName, GetBenutzer) Call Mod1.GetBenutzer End Function Dim sDeinDatum As String sDeinDatum = "01.04.2002" End Function Unload Me End Function End Function ------------------------------------------------------------------------------------------------------------- Es soll der aktuelle benutzer gelesen und in die msgbox übertragen werden... das folgende steht in einem standardModul----> ------------------------------------------------------------------------------------------------------------- Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long Public Function GetBenutzer() As String Dim UserName As String Dim Result As Long UserName = Space$(256) Result = GetUserName(UserName, Len(UserName)) If InStr(UserName, Chr$(0)) > 0 Then _ UserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1) GetBenutzer = UserName End Function ----------------------------------------------------------------------------------------------------------------- Ich brauch ein bissel Hilfe, denn mir plazt gleich der schädel!!! wer kann mir verraten was ich falsch gemacht hab. es kommt bloss ein fenster und nix passiert... *brechzusamm* Wär super wenn mir einer Helfen könnte! danke im Vorraus. mfg Maik P.S.: Greetings to Dieter

mir platzt gleich der schädel	132	M_Weckner	11.03.02 06:56
Re: mir platzt gleich der schädel	119	Maverick	11.03.02 10:39
Re: mir platzt gleich der schädel	74	TheTimoo	11.03.02 12:54
wie kann ich das denn so schreiben wie die moderatoren?(weis...	80	Peter	12.03.02 11:53
Re: wie kann ich das denn so schreiben wie die moderatoren?(...	68	TheTimoo	12.03.02 18:27
Re: wie kann ich das denn so schreiben wie die moderatoren?(...	93	Peter	13.03.02 08:24
Re: wie kann ich das denn so schreiben wie die moderatoren?(...	84	TheTimoo	14.03.02 20:41
Re: wie kann ich das denn so schreiben wie die moderatoren?(...	65	TheTimoo	14.03.02 20:41

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen