Zufälliger Artikel

Problemstellung:

Wie kann ich den letzten Tag des Quartals, ausgehend von einem beliebigen Datum, ermitteln?

Public Function LastDayQuartal(dateDatum As Date)
'*******************************************
'Name:      LastDayQuartal (Function)
'Purpose:   Ermittelt den letzten Tag des aktuellen Quartals ausgehend von dateDatum
'Author:    Thomas Keßler
'Date:      Februar 12, 2004, 11:45:00
'Inputs:    dateDatum= Datum ab dem gerechnet werden soll
'Output:
'*******************************************
    Dim wrkDate As Variant
    Dim intQtr As Integer
    Dim intMonth As Integer
    Dim intYear As Integer
    intYear = Year(dateDatum)
    intQtr = Int((Month(dateDatum) - 1) / 3)
    intMonth = (intQtr * 3) + 4
    wrkDate = DateSerial(intYear, intMonth, 1)
    LastDayQuartal = DateAdd("d", -1, wrkDate)
End Function

Aufruf:

Dim x As Variant
x =LastDayQuartal(#02.04.2004#)

Das Ergebniswäre x = 30.06.2004

Ähnliche Artikel

Home

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Problemstellung:

Wie kann ich das Backend-Passwort aus Connectstring einer Tabelle auslesen?


Das folgende Beispiel ist kein Hackertipp!
Es soll nur die Möglichkeit gezeigt werden.

Normalerweise bekommt man in der Entwurfsansicht einer verknüpften Accesstabelle

nur den Connectstring ohne das DB-Passwort angezeigt.

Jetzt kann es aber erforderlich sein dieses Passwort auszulesen.

Dies kann mittels DAO oder ADO(X) erfolgen.

DAO:

Dim sConnect As String
sConnect = CurrentDb.TableDefs("Tabelle1").Connect

Hiermit würde die Variable "sConnect" den kompletten Connectstring der "Tabelle1" enthalten.

In diesem ist auch das DB-Passwort enthalten.

Dieser String kann dann mit der Split()-Funktion o.ä. zerlegt werden.

ADO(X):

Dim cn As New ADODB.Connection
 Dim cat As New ADOX.Catalog
 Dim sConnect As String
 Set cn = CurrentProject.Connection
 Set cat.ActiveConnection = cn
 sConnect = cat.Tables("Tabelle1").Properties("Jet OLEDB:Link Provider String").Value 

Hier gilt dann das Gleiche wie bei der Lösung mit DAO

 

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

1.png1.png9.png1.png3.png6.png2.png
Heute13
Gestern75
Diese Woche411
Dieser Monat1295
Total1191362

  • IP: 54.81.116.187
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

2
Online

21. April 2018