vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Und optimiert... 
Autor: ModeratorDieter (Moderator)
Datum: 23.11.02 15:33
... sieht die Funktion Nachkommazahl dann so aus... 
Private Function Nachkommazahl(ByVal vZahl As Variant) As Double
  Dim sZahl As String
 
  sZahl = Replace(IIf(VarType(vZahl) = vbString, vZahl, CStr(vZahl)), ",", ".")
  Nachkommazahl = Val(sZahl) - Fix(Val(sZahl))
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Wert auf 1 bringen441Lupin23.11.02 15:18
Re: Wert auf 1 bringen299ModeratorDieter23.11.02 15:29
Und optimiert...292ModeratorDieter23.11.02 15:33
Es geht noch simpler.....75Mabo23.11.02 18:19
Re: Es geht noch simpler.....309unbekannt23.11.02 18:22
Simple Lösung.....Nachtrag74Mabo23.11.02 18:59
Re: Simple Lösung.....Nachtrag299RalfH24.11.02 03:59
Re: Simple Lösung.....Nachtrag80Mabo24.11.02 11:17
Re: Wert auf 1 bringen260dbayer24.11.02 12:02

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel