LexWIKI Contact Details:
Main address: Celsiusstrasse 28 12207 Berlin, Germany ,
Tel:( 49 30) 55 14 54 38 , Fax:( 49 30) 70 01 43 11 28 , E-mail: info(at)lexwiki.de URL: Logo LexWIKI Founder:
Udo Netzel Director (CEO)

Alles Wichtige mach' ich selbst! Erst recht, wenn es um meine Finanzen geht. Mit Software von Lexware, z.B. Buchhaltung, Lohn und Gehalt, Aufträge, Rechnungen und Warenwirtschaft.

Function DateStrToDateNum()

Manchmal ist es notwendig, mit einem Datum-Feld zu rechnen. Dafür kann man sich eine eigene Funktion programmieren:

'DateStrToDateNum wandelt einen DatumsText (TT.MM.JJJJ oder TT.MM.JJ) um
'und gibt einen numerischen Datumswert zurück
 
Function DateStrToDateNum(StrDateToNumDate as String) as Numeric
 
Dim Tag_TT as Numeric = 0
Dim Monat_MM as Numeric = 0
Dim Jahr_JJ as Numeric = 0
Dim Add_J as Numeric = 0
Dim Add_M as Numeric = 0
Dim Add_T as Numeric = 0
Dim Schalt_Tag as Numeric = 0
 
Tag_TT = StringToNumeric(StringLeft(StrDateToNumDate, 2))
Monat_MM = StringToNumeric(StringMid(StrDateToNumDate, 4, 2))
Jahr_JJ = StringToNumeric(StringRight(StrDateToNumDate, 2))
 
if Jahr_JJ = 12 then Add_J = 40908 end if
if Jahr_JJ = 13 then Add_J = 41274 end if
if Jahr_JJ = 14 then Add_J = 41639 end if
if Jahr_JJ = 15 then Add_J = 42004 end if
if Jahr_JJ = 16 then Add_J = 42369 end if
if Jahr_JJ = 17 then Add_J = 42735 end if
if Jahr_JJ = 18 then Add_J = 43100 end if
if Jahr_JJ = 19 then Add_J = 43465 end if
if Jahr_JJ = 20 then Add_J = 43830 end if
 
if Monat_MM = 01 then Add_M = 000 end if
if Monat_MM = 02 then Add_M = 031 end if
if Monat_MM = 03 then Add_M = 059 end if
if Monat_MM = 04 then Add_M = 090 end if
if Monat_MM = 05 then Add_M = 120 end if
if Monat_MM = 06 then Add_M = 151 end if
if Monat_MM = 07 then Add_M = 181 end if
if Monat_MM = 08 then Add_M = 212 end if
if Monat_MM = 09 then Add_M = 243 end if
if Monat_MM = 10 then Add_M = 273 end if
if Monat_MM = 11 then Add_M = 304 end if
if Monat_MM = 12 then Add_M = 334 end if
 
Add_T = Tag_TT
 
if Monat_MM > 02 then
 
if Jahr_JJ = 12 then Schalt_Tag = 1 end if
if Jahr_JJ = 16 then Schalt_Tag = 1 end if
if Jahr_JJ = 20 then Schalt_Tag = 1 end if
end if
 
DateStrToDateNum = Add_J + Add_M + Add_T + Schalt_Tag
 
end function
Anzeige

Lexware neue SteuerkanzleiDie leistungsstarke Kanzleisoftware für Steuerberater

Dank tausendfach bewährter Lexware-Technologie unterstützt Sie die Kanzleisoftware für Steuerberater effizient bei Kanzleimanagement, Buchhaltung, Lohnabrechnung und Steuererklärung für Ihre Mandanten. Die Bedienung von Lexware neue Steuerkanzlei ist intuitiv und denkbar einfach.

 

Jetzt kennenlernen und überzeugen

 

 

Corporate Social Responsibility (CSR) bzw. Unternehmerische Sozialverantwortung

Logo CEFOMEC Wenn alle gesellschaftlichen Gruppen ihrer Verantwortung gerecht werden, dann lassen sich die globalen Herausforderungen gemeinsam meistern – zum gegenseitigen Vorteil ökonomischer, sozialer und ökologischer Ziele. Die LexSHOP GmbH & Co.KG, als Betreiberin dieses LexWIKI®, unterstützt mit regelmäßigen Spenden den gemeinnützigen Verein CEFOMEC® e.V. beim Bau eines Krankenhauses in Lomié, im Süd-Osten von Kamerun, und unterstützt dort Kinder und Jugendliche. Bitte helfen auch Sie mit und spenden Sie für diese Projekte. Vielen Dank.

© 2008-2019 by LexWIKI® | Ein Projekt der LexSHOP GmbH & Co.KG